DCL SPCPTR .PARM1 PARM;
DCL PTR    .PTR    BAS(.PARM1);
DCL SPCPTR .SPCPTR BAS(.PARM1);
DCL OL PARAMETERS (.PARM1) PARM EXT MIN(1);

ENTRY * (PARAMETERS) EXT;
    SETSPPFP  .SPCPTR, .PTR;
    RTX       *;