IBM Version 4 Universal Remote User Manual


  Open as PDF
of 505
 
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;
/ᑍ Access QTEMP address ᑍ/
DCL SYSPTR QTEMP@ BASPCO POS(65);
/ᑍ Template for CRTS MI instruction ᑍ/
DCL DD CRTSTMPLT CHAR(16) BDRY(16);
DCL DD TMPLTSPEC CHAR(8) DEF(CRTSTMPLT) POS(1);
DCL DD TMPLTSIZE BIN(4) DEF(TMPLTSPEC) POS(1) INIT(16);
DCL DD TMPLTBA BIN(4) DEF(TMPLTSPEC) POS(5) INIT();
DCL DD OBJID CHAR(32) DEF(CRTSTMPLT) POS(9);
DCL DD SPCTYPE CHAR(1) DEF(OBJID) POS(1) INIT(X'19');
DCL DD SPCSUBTYPE CHAR(1) DEF(OBJID) POS(2) INIT(X'EF');
Chapter 7. Machine Interface Programming 7-29
 previous next