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 >
Wrap
Text File
|
1998-02-24
|
777b
|
32 lines
/* COMMENT */
MCLDL: PROC(FUNCTION_TYPE, NUM_STATE,
ALPHA_STATE, VALID_SWTCH,
CANADA_SWTCH);
DCL
FUNCTION_TYPE CHAR(1);
DCL
NUM_STATE CHAR(2);
DCL
1 STATE_TABLE(10),
2 NUMBER CHAR(2) INIT ('01', '02', '03',
'04', '05', '06',
'07', '08', '09', '10');
DCL
X FIXED BIN(15) INIT(0)
VALID_SWTCH = 'N';
DO X = 1 TO 10;
IF FUNCTION_TYPE = '1' THEN
DO;
IF NUM_STATE = STATE_TABLE(X).NUMBER THEN
DO;
CALL CHECK_CANADA;
ALPHA_STATE = STATE_TABLE(X).ABBREV;
VALID_SWTCH = 'Y';
X = 5;
END;
END;
END;
END; /* MCLDL */