PGM        PARM(&PARAM1 &PARAM2 &FMT)
             DCL        VAR(&DEP) TYPE(*DEC) LEN(2 0) VALUE(-7)
             DCL        VAR(&PARAM1) TYPE(*CHAR) LEN(20)
             DCL        VAR(&PARAM2) TYPE(*CHAR) LEN(32)
             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)
             DCL        VAR(&NUMB) TYPE(*CHAR) LEN(2)
             DCL        VAR(&NUMP) TYPE(*DEC) LEN(2 0)
 
             CHGVAR     VAR(&FICH) VALUE(%SST(&PARAM1 1 10))
             CHGVAR     VAR(&LIB) VALUE(%SST(&PARAM1 11 10))
             CHGVAR     VAR(&NUMB) VALUE(%SST(&PARAM2 1 2))
             CHGVAR     VAR(&NUMP) VALUE(%BIN(&NUMB))
 CPY:        CHGVAR     VAR(&DEP) VALUE(&DEP + 10)
             CHGVAR     VAR(&MBR) VALUE(%SST(&PARAM2 &DEP 10))
             CPYF       FROMFILE(&LIB/&FICH) TOFILE(*PRINT) +
                          FROMMBR(&MBR) OUTFMT(&FMT)
             CHGVAR     VAR(&NUMP) VALUE(&NUMP - 1)
             IF         COND(&NUMP *NE 0) THEN(GOTO CMDLBL(CPY))
ENDPGM