cpp de commande lstf1

BoTTom | 
             PGM        PARM(&FICH &MBR &FMT)
             DCL        VAR(&FICH) TYPE(*CHAR) LEN(10)
             DCL        VAR(&MBR) TYPE(*CHAR) LEN(10)
             DCL        VAR(&FMT) TYPE(*CHAR) LEN(10)
             CPYF       FROMFILE(&FICH) TOFILE(*PRINT) FROMMBR(&MBR) +
                          OUTFMT(&FMT)
             ENDPGM




©AF400