home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: 10 Tools / 10-Tools.zip / viscobv6.zip / vac22os2 / ibmcobol / samples / sdu / userexit.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><ConvertToUpperOrLowerCaseChar>'
  28.                  (  input1,
  29.                     LENGTH( input1 ),
  30.                     TRUE,             /* Convert to upper case character.     */
  31.                     output1,
  32.                     LENGTH( output1 )
  33.                  );
  34.    CALL '<USEREXIT><ConvertToUpperOrLowerCaseChar>'
  35.                  (  input1,
  36.                     LENGTH( input1 ),
  37.                     FALSE,            /* Convert to lower case character.     */
  38.                     output2,
  39.                     LENGTH( output2 )
  40.                  );
  41. END;
  42. /*----------------------------------------------------------------------------*/
  43.