PGM PARM(&FCT &INFILE &INLIB &OUTFILE &OUTLIB)
       DCL VAR(&FCT)     TYPE(*CHAR) LEN(1)
       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)
       DLTF    FILE(&OUTLIB/&OUTFILE)
       MONMSG  MSGID(CPF2105)  /* FILE NOT FOUND */
       CRTPF   FILE(&OUTLIB/&OUTFILE) RCDLEN(132) +
                   SIZE(*NOMAX) LVLCHK(*NO)
       CALL PGM(MIFCMPRS) PARM(&FCT &INFILE &INLIB &OUTFILE &OUTLIB)
       ENDPGM