IBM Version 4 Universal Remote User Manual


  Open as PDF
of 505
 
/ᑍ 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-24 System API Programming V4R1
 previous next