PGM        PARM(&PARAM &MBR &FMT)
 
             DCL        VAR(&PARAM) TYPE(*CHAR) LEN(20)
 
             DCL        VAR(&MBR) TYPE(*CHAR) LEN(10)
             DCL        VAR(&FMT) TYPE(*CHAR) LEN(10)
             DCL        VAR(&FICH) TYPE(*CHAR) LEN(10)
             DCL        VAR(&LIB) TYPE(*CHAR) LEN(10)
             CHGVAR     VAR(&FICH) VALUE(%SST(&PARAM 1 10))
             CHGVAR     VAR(&LIB) VALUE(%SST(&PARAM 11 10))
 EXECUT:     CPYF       FROMFILE(&LIB/&FICH) TOFILE(*PRINT) +
                          FROMMBR(&MBR) OUTFMT(&FMT)
             ENDPGM