ENTRY * (*ENTRY) EXT;
DCL SPCPTR FIL@ PARM;
DCL SPCPTR MBR@ PARM;
DCL OL *ENTRY (MBR@, FIL@) PARM EXT MIN(1);
DCL DD FIL CHAR(10) BAS(FIL@);
DCL DD MBR CHAR(10) BAS(MBR@);
DCL DD NUM_PARMS BIN( 4);

/* QPRCRTPG and associated parameters         */
DCL SPCPTR PGM@ INIT(PGM);
DCL DD PGM CHAR(20);
    DCL DD PGMNAM    CHAR(10) DEF(PGM) POS( 1);
    DCL DD PGMLIBNAM CHAR(10) DEF(PGM) POS(11) INIT("*CURLIB   ");

DCL SPCPTR PGMTXT@ INIT(PGMTXT);
DCL DD PGMTXT CHAR(50) INIT(" ");

DCL SPCPTR PGMSRCF@ INIT(PGMSRCF);
DCL DD PGMSRCF CHAR(20) INIT("*NONE");

DCL SPCPTR PGMSRCM@ INIT(PGMSRCM);
DCL DD PGMSRCM CHAR(10) INIT(" ");

DCL SPCPTR PGMSRCCHG@ INIT(PGMSRCCHG);
DCL DD PGMSRCCHG CHAR(13) INIT(" ");

DCL SPCPTR PRTFNAM@ INIT(PRTFNAM);
DCL DD PRTFNAM CHAR(20);
    DCL DD PRTFNAM-FILE CHAR(10) DEF(PRTFNAM) POS( 1) INIT("QSYSPRT   ");
    DCL DD PRTFNAM-LIB  CHAR(10) DEF(PRTFNAM) POS( 1) INIT("*LIBL     ");

DCL SPCPTR PRTSTRPAG@ INIT(PRTSTRPAG);
DCL DD PRTSTRPAG BIN(4) INIT(1);

DCL SPCPTR PGMPUBAUT@ INIT(PGMPUBAUT);
DCL DD PGMPUBAUT CHAR(10) INIT("*ALL      ");

DCL SPCPTR PGMOPTS@ INIT(PGMOPTS);
DCL DD PGMOPTS(16) CHAR(11)
       INIT(*(1)(1)"*LIST"    , *(2)(1)"*REPLACE" , *(3)(1)"*ATR",
            *(4)(1)"*NOSUBSCR", *(5)(1)"*NOSUBSTR");

DCL SPCPTR NUMOPTS@ INIT(NUMOPTS);
DCL DD NUMOPTS BIN(4) INIT(5);

DCL OL QPRCRTPG (USRSPC, BINOFFSET@, PGM@,  PGMTXT@,  PGMSRCF@,
                 PGMSRCM@,   PGMSRCCHG@, PRTFNAM@, PRTSTRPAG@,
                 PGMPUBAUT@, PGMOPTS@,   NUMOPTS@) ARG;

DCL SYSPTR .QPRCRTPG INIT("QPRCRTPG", CTX("QSYS"), TYPE(PGM));

/* Start of instruction stream                */
STPLLEN NUM_PARMS;
CMPNV(B) NUM_PARMS, 2 / EQ(PARM2);
       CPYBLAP FILNAM, 'QMISRC', ' ';
B PARM1;
PARM2: CPYBLA FILNAM, FIL;
PARM1: CPYBLA MBRNAM,MBR;
       CMPBLA(B) READY, '1' / EQ(SKIP);
CPYBWP CONTEXT, QTEMP@;
CRTS USRSPC@, CRTSTMPLT@;
SETSPPFP USRSPC,USRSPC@;
       CPYBLA READY, '1';
SKIP:  CPYNV RECNUM, 1;
MORE:  CALLX QCMDEXC, QCMDOVROL, *;
CPYNV OFFSET,1;
CALLX CL06, CL06OL, *;
SUBN(S) OFFSET, 1;
ADDN(S) BINOFFSET, OFFSET;
SETSPPO USRSPC, BINOFFSET;
ADDN(S) RECNUM, 20;
CALLX QCMDEXC, QCMDDLTOL, *;
CMPNV(B) OFFSET, 1600 /EQ(MORE);
CPYBLA PGMNAM, MBR;
SETSPPO USRSPC, 0;
CALLX .QPRCRTPG, QPRCRTPG, *;
RTX *;
PEND;