home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: 10 Tools / 10-Tools.zip / viscobv6.zip / vac22os2 / ibmcobol / samples / sdu / iwzzsux.adl < prev    next >
Text File  |  1997-03-14  |  2KB  |  43 lines
  1.   /*************************************************************/
  2.   /*  USEREXIT.ADL                                              */
  3.   /*  ADL source for the USER EXIT sample.                      */
  4.   /*************************************************************/
  5.  
  6.   /*-----------------DECLARE of the source data----------------*/
  7.   source: DECLARE
  8.    BEGIN;
  9.       number_of_char: CONSTANT 10;
  10.       input1:         CHAR LENGTH( number_of_char);
  11.    END;
  12.   /*-----------------------------------------------------------*/
  13.  
  14.   /*-----------------DECLARE OF the target data----------------*/
  15.   target: DECLARE
  16.    BEGIN;
  17.       output1:        CHAR LENGTH( 20 );
  18.       output2:        CHAR LENGTH( 20 );
  19.    END;
  20.   /*-----------------------------------------------------------*/
  21.  
  22.   /*-----------------PLAN--------------------------------------*/
  23.   user_exit_plan: PLAN ( input1: INPUT,
  24.                          output1: OUTPUT,
  25.                          output2: OUTPUT )
  26.    BEGIN;
  27.       CALL '<USEREXIT><CONVERTTOUPPERLOWERCASECHAR>'
  28.                      ( input1,
  29.                        LENGTH( input1 ),
  30.                        TRUE,  /* Convert to upper case character */
  31.                        output1,
  32.                        LENGTH( output1 )
  33.                      );
  34.       CALL '<USEREXIT><CONVERTTOUPPERLOWERCASECHAR>'
  35.                      ( input1,
  36.                        LENGTH( input1 ),
  37.                        FALSE, /* Convert to lower case character */
  38.                        output2,
  39.                        LENGTH( output2 )
  40.                      );
  41.    END;
  42.   /*-----------------------------------------------------------*/
  43.