ENTRY * (PARM_LIST) EXT; 
DCL SPCPTR MBR@ PARM; 
DCL SPCPTR BINOFFSET@ PARM; 
DCL OL PARM_LIST (MBR@, BINOFFSET@) PARM EXT; 
DCL DD MBR CHAR(10) BAS(MBR@); 
DCL DD BINOFFSET BIN(4) BAS(BINOFFSET@); 
DCL DD RSLVOBJ CHAR(34); 
  DCL DD RSLVTYPE CHAR(1) DEF(RSLVOBJ) POS(1) INIT(X'19'); 
  DCL DD RSLVSUBTYPE CHAR(1) DEF(RSLVOBJ) POS(2) INIT(X'34'); 
  DCL DD RSLVNAME CHAR(30) DEF(RSLVOBJ) POS(3); 
  DCL DD RSLVAUTH CHAR(2) DEF(RSLVOBJ) POS(33) INIT(X'0000'); 
DCL SYSPTR USRSPCOBJ; 
DCL SPCPTR USRSPC; 
DCL SYSPTR CL05 INIT("CL05", TYPE(PGM)); 
DCL OL CL05OL (MBR@, USRSPC, BINOFFSET@) ARG; 
CPYBLAP RSLVNAME, MBR, ' '; 
RSLVSP USRSPCOBJ, RSLVOBJ, *, *; 
SETSPPFP USRSPC, USRSPCOBJ; 
CALLX CL05, CL05OL, *; 
RTX *; 
PEND;