DCL SPCPTR .PARM1 PARM;
DCL SPCPTR .PARM2 PARM;
DCL SPCPTR .PARM3 PARM;
DCL SPCPTR .PARM4 PARM;
DCL SPCPTR .PARM5 PARM;
DCL DD PARM5 CHAR(16) BAS(.PARM5);
    DCL DD PARM-RECORD-SIZE CHAR(4) DEF(PARM5) POS(1);
    DCL DD PARM-FILENAME   CHAR(10) DEF(PARM5) POS(5);

DCL OL PARMS(.PARM1, .PARM2, .PARM3, .PARM4, .PARM5) EXT PARM;

DCL DD POINTERS CHAR(64) BDRY(16);
    DCL SPCPTR .P1  DEF(POINTERS) POS( 1);
        DCL DD INFO CHAR(32000)   BAS(.P1);
    DCL SPCPTR .P2  DEF(POINTERS) POS(17);
    DCL SPCPTR .P3  DEF(POINTERS) POS(33);
    DCL SPCPTR .P4  DEF(POINTERS) POS(49);

DCL SPCPTR .FILE;
DCL DD FILE CHAR(256) BAS(.FILE);
DCL DD CHAR-NBR BIN(4);

ENTRY * (PARMS) EXT;
    CPYBWP     .P1, .PARM1;
    CPYBWP     .P2, .PARM2;
    CPYBWP     .P3, .PARM3;
    CPYBWP     .P4, .PARM4;

    CPYNV       CHAR-NBR, -15;
FIND-POINTER:
    ADDN(S)     CHAR-NBR,  16;
    CMPBLA(B)   INFO(CHAR-NBR:64), POINTERS/NEQ(FIND-POINTER);

    ADDN(S)     CHAR-NBR, -112;
    SETSPP     .FILE, INFO(CHAR-NBR:1);
    CPYBLA      PARM-RECORD-SIZE, FILE(57:4);
    CPYBLA      PARM-FILENAME,    FILE(1:10);
 BRK "1";
    RTX         *;