home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: 10 Tools / 10-Tools.zip / viscobv7.zip / vac22os2 / ibmcobol / macros / pli.smp < prev    next >
Text File  |  1998-02-24  |  777b  |  32 lines
  1. /* COMMENT */
  2.  MCLDL: PROC(FUNCTION_TYPE, NUM_STATE,
  3.              ALPHA_STATE, VALID_SWTCH,
  4.              CANADA_SWTCH);
  5.    DCL
  6.     FUNCTION_TYPE    CHAR(1);
  7.    DCL
  8.     NUM_STATE        CHAR(2);
  9.    DCL
  10.     1 STATE_TABLE(10),
  11.     2 NUMBER  CHAR(2) INIT ('01', '02', '03',
  12.                             '04', '05', '06',
  13.                             '07', '08', '09', '10');
  14.    DCL
  15.     X FIXED BIN(15) INIT(0)
  16.  
  17.    VALID_SWTCH = 'N';
  18.    DO X = 1 TO 10;
  19.      IF FUNCTION_TYPE = '1' THEN
  20.        DO;
  21.          IF NUM_STATE = STATE_TABLE(X).NUMBER THEN
  22.            DO;
  23.              CALL CHECK_CANADA;
  24.  
  25.              ALPHA_STATE = STATE_TABLE(X).ABBREV;
  26.              VALID_SWTCH = 'Y';
  27.              X = 5;
  28.            END;
  29.        END;
  30.    END;
  31.  END;  /* MCLDL */
  32.