PGM PARM(&PGM &INFILE &INLIB &OUTFILE &OUTLIB &PARM) DCL VAR(&PGM) TYPE(*CHAR) LEN(10) DCL VAR(&INFILE) TYPE(*CHAR) LEN(10) DCL VAR(&INLIB) TYPE(*CHAR) LEN(10) DCL VAR(&OUTFILE) TYPE(*CHAR) LEN(10) DCL VAR(&OUTLIB) TYPE(*CHAR) LEN(10) DCL VAR(&PARM) TYPE(*CHAR) LEN(50) DLTF FILE(&OUTLIB/&OUTFILE) MONMSG MSGID(CPF2105) /* FILE NOT FOUND */ CRTPF FILE(&OUTLIB/&OUTFILE) RCDLEN(132) + SIZE(*NOMAX) LVLCHK(*NO) CALL PGM(&PGM) PARM(&INFILE &INLIB &OUTFILE &OUTLIB &PARM) ENDPGM