IBM Version 4 manual DCL DD Numparms BIN, DCL Spcptr Usrspc DCL Sysptr USRSPC@

/\	which calls QPRCRTPG API.	\/
/\		\/
/\		\/
/\	Header Files Included: None	\/
/\		\/
/\		\/

/\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\/

/\ Entry point and associated parameters	\/
ENTRY \ (\ENTRY) EXT;
DCL SPCPTR FIL@ PARM;
DCL SPCPTR MBR@ PARM;
DCL OL \ENTRY (MBR@, FIL@) PARM EXT MIN(1);
DCL DD FIL CHAR(1ð) BAS(FIL@);
DCL DD MBR CHAR(1ð) BAS(MBR@);
DCL DD NUM_PARMS BIN( 4);
/\ Control field for first time initialization	\/
DCL DD READY CHAR( 1) INIT("ð");
/\ Binary offset into the space	\/
DCL DD BINOFFSET BIN(4) AUTO INIT(ð);
DCL SPCPTR BINOFFSET@ AUTO INIT(BINOFFSET);
/\ Pointers for accessing the space	\/
DCL SPCPTR USRSPC;
DCL SYSPTR USRSPC@;
/\ QCMDEXC and associated CL commands	\/

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

DCL DD CLOVRCMD CHAR(65);

DCL DD OVRSTR CHAR(39) DEF(CLOVRCMD) POS(1)

INIT("OVRDBF MISRC 123456789ð MBR(123456789ð)");

DCL DD OVRSTR2 CHAR(26) DEF(CLOVRCMD) POS(4ð)

INIT(" POSITION(\RRN 123456789ð)");

DCL DD FILNAM CHAR(1ð) DEF(CLOVRCMD) POS(14);

DCL DD MBRNAM CHAR(1ð) DEF(CLOVRCMD) POS(29);

DCL DD RECNUM ZND(1ð,ð) DEF(CLOVRCMD) POS(55);

DCL SPCPTR CLOVRCMD@ INIT(CLOVRCMD);

DCL DD CLOVRLNG PKD(15,5) INIT(P'65');

DCL SPCPTR CLOVRLNG@ INIT(CLOVRLNG);

DCL OL QCMDOVROL (CLOVRCMD@, CLOVRLNG@) ARG;

DCL DD CLDLTCMD CHAR(12) INIT("DLTOVR MISRC");

DCL SPCPTR CLDLTCMD@ INIT(CLDLTCMD);

DCL DD CLDLTLNG PKD(15,5) INIT(P'12');

DCL SPCPTR CLDLTLNG@ INIT(CLDLTLNG);

DCL OL QCMDDLTOL (CLDLTCMD@, CLDLTLNG@) ARG;

/\ CLð6 and associated parameters \/

DCL SYSPTR CLð6 INIT("CLð6", TYPE(PGM));

DCL DD OFFSET PKD(15,5);

DCL SPCPTR OFFSET@ INIT(OFFSET);

DCL OL CLð6OL (USRSPC, OFFSET@) ARG;

7-24System API Programming V4R1