IBM Version 4 manual DCL Sysptr QTEMP@ Baspco, Crts MI

/\	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'); DCL DD SPCNAME CHAR(3ð) DEF(OBJID) POS(3) INIT("MICRTPG2");

DCL DD OBJCRTOPT CHAR(4) DEF(CRTSTMPLT) POS(41) INIT(X'6ðð2ðð￿ðð'); DCL DD OBJRCVOPTS CHAR(4) DEF(CRTSTMPLT) POS(45);

DCL DD \ CHAR(2) DEF(OBJRCVOPTS) POS(1) INIT(X'ðððð'); DCL DD ASP CHAR(2) DEF(OBJRCVOPTS) POS(3) INIT(X'ðððð'); DCL DD SPCSIZ BIN(4) DEF(CRTSTMPLT) POS(49) INIT(1);

DCL DD INTSPCVAL CHAR(1) DEF(CRTSTMPLT) POS(53) INIT(X'ðð');

DCL DD PERFCLASS CHAR(4) DEF(CRTSTMPLT) POS(54) INIT(X'ðððððð￿ðð'); DCL DD \ CHAR(1) DEF(CRTSTMPLT) POS(58) INIT(X'ðð');

DCL DD PUBAUT CHAR(2) DEF(CRTSTMPLT) POS(59) INIT(X'ðððð'); DCL DD TMPLTEXTN BIN(4) DEF(CRTSTMPLT) POS(61) INIT(96);

DCL SYSPTR CONTEXT DEF(CRTSTMPLT) POS(65); DCL SYSPTR ACCESSGRP DEF(CRTSTMPLT) POS(81); DCL SYSPTR USRPRF DEF(CRTSTMPLT) POS(97);

DCL DD MAXSPCSIZ BIN(4) DEF(CRTSTMPLT) POS(113) INIT(ð); DCL DD DOMAIN CHAR(2) DEF(CRTSTMPLT) POS(117) INIT(X'ððð1'); DCL DD \ CHAR(42) DEF(CRTSTMPLT) POS(119) INIT((42)X'ðð');

DCL SPCPTR CRTSTMPLT@ INIT(CRTSTMPLT);

/\ QPRCRTPG and associated parameters	\/
DCL DD PGM CHAR(2ð);
DCL DD PGMNAM CHAR(1ð) DEF(PGM) POS(1);
DCL DD PGMLIBNAM CHAR(1ð) DEF(PGM) POS(11) INIT("\CURLIB		");
DCL SPCPTR PGM@ INIT(PGM);
DCL DD PGMTXT CHAR(5ð) INIT(" ");
DCL SPCPTR PGMTXT@ INIT(PGMTXT);
DCL DD PGMSRCF CHAR(2ð) INIT("\NONE");
DCL SPCPTR PGMSRCF@ INIT(PGMSRCF);
DCL DD PGMSRCM CHAR(1ð) INIT(" ");
DCL SPCPTR PGMSRCM@ INIT(PGMSRCM);

DCL DD PGMSRCCHG CHAR(13) INIT(" ");
DCL SPCPTR PGMSRCCHG@ INIT(PGMSRCCHG);
DCL DD PRTFNAM CHAR(2ð) INIT("QSYSPRT	\LIBL	");
DCL SPCPTR PRTFNAM@ INIT(PRTFNAM);
DCL DD PRTSTRPAG BIN(4) INIT(1);
DCL SPCPTR PRTSTRPAG@ INIT(PRTSTRPAG);
DCL DD PGMPUBAUT CHAR(1ð) INIT("\ALL	");
DCL SPCPTR PGMPUBAUT@ INIT(PGMPUBAUT);
DCL DD PGMOPTS(16) CHAR(11) INIT((1)"\LIST", \(2)(1)"\REPLACE",
\(3)(1)"\XREF");
DCL SPCPTR PGMOPTS@ INIT(PGMOPTS);
DCL DD NUMOPTS BIN(4) INIT(3);
Chapter 7.		Machine Interface Programming7-25