DCL SPCPTR .PARM1 PARM; DCL DD PARM1 CHAR(10) BAS(.PARM1); DCL SPCPTR .PARM2 PARM; DCL DD PARM2 CHAR(10) BAS(.PARM2); DCL SPCPTR .PARM3 PARM; DCL DD PARM3 CHAR(10) BAS(.PARM3); DCL OL MICPGM2 (.PARM1, .PARM2, .PARM3) PARM EXT MIN(1); DCL DD NBR-PARMS BIN(2); ENTRY * (MICPGM2) EXT; STPLLEN NBR-PARMS; CPYBLAP PARM1, "PARM1", " "; CMPNV(B) NBR-PARMS, 2/LO(=+2); CPYBLAP PARM2, "PARM2", " ";: CMPNV(B) NBR-PARMS, 3/LO(=+2); CPYBLAP PARM3, "PARM3", " ";: RETURN: RTX *;