DCL DD POINTERS CHAR(32) BDRY(16);
    DCL SYSPTR .SYSPTR DEF(POINTERS) POS( 1);
    DCL SPCPTR .SPCPTR DEF(POINTERS) POS(17);

    SETSPPFP  .SPCPTR, .SYSPTR;