IBM Version 4 manual DCL Spcptr CRTSTMPLT@ Initcrtstmplt, CTXQSYS, Typepgm

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);

DCL SPCPTR NUMOPTS@ INIT(NUMOPTS);

DCL OL QPRCRTPGOL (USRSPC, BINOFFSET@, PGM@, PGMTXT@, PGMSRCF@,￿ PGMSRCM@, PGMSRCCHG@, PRTFNAM@, PRTSTRPAG@, PGMPUBAUT@, PGMOPTS@, NUMOPTS@) ARG;

DCL SYSPTR QPRCRTPG INIT("QPRCRTPG",	CTX("QSYS"), TYPE(PGM))￿;
/\ Exception Description Monitor for	MCH14ð1	\/
DCL EXCM DUPERROR EXCID(H'ðEð1') INT(M14ð1) IMD;
/\ Start of instruction stream		\/
STPLLEN NUM_PARMS;
CMPNV(B) NUM_PARMS, 2 / EQ(PARM2);
CPYBLAP FILNAM, 'MISRC', ' ';

7-30System API Programming V4R1