IBM Version 4 manual Source for the Micrtpg Program, Source for Micrtpg follows

DCL	VAR(&PRTFNAM) TYPE(\CHAR) LEN(2ð) +
	VALUE('QSYSPRT	\LIBL	')
DCL	VAR(&PRTSTRPAG) TYPE(\CHAR) LEN(4) +
	VALUE(X'ððððððð1')
DCL	VAR(&PGMPUBAUT) TYPE(\CHAR) LEN(1ð) +
	VALUE('\ALL	')
DCL	VAR(&PGMOPTS) TYPE(\CHAR) LEN(22) +
	VALUE('\LIST	\REPLACE	')
DCL	VAR(&NUMOPTS) TYPE(\CHAR) LEN(4) +
	VALUE(X'ððððððð2')
CHGVAR	VAR(%SST(&PGMNAM 1 1ð)) VALUE(&SRCMBR)
CALL	PGM(QSYS/QPRCRTPG) PARM(&MIPGMSRC +

&MIPGMSRCSZ &PGMNAM &PGMTXT &PGMSRCF + &PGMSRCM &PGMSRCCHG &PRTFNAM &PRTSTRPAG + &PGMPUBAUT &PGMOPTS &NUMOPTS)

ENDPGM

Source for the MICRTPG Program

The source for MICRTPG follows:

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

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

/\		\/
/\	Program Name: MICRTPG	\/
/\		\/
/\	Programming Language: MI	\/
/\		\/
/\	Description: Initial version of MI program to create	\/
/\	additional MI programs using the QPRCRTPG API.	\/
/\		\/
/\		\/
/\	Header Files Included: None	\/
/\		\/
/\		\/

/\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\/ ENTRY \ (PARM_LIST) EXT;

DCL SPCPTR MBR@ PARM;

DCL SPCPTR BINOFFSET@ PARM;

DCL OL PARM_LIST (MBR@, BINOFFSET@) PARM EXT; DCL DD MBR CHAR(1ð) BAS(MBR@);

DCL DD BINOFFSET BIN(4) BAS(BINOFFSET@); DCL DD RSLVOBJ CHAR(34);

DCL DD RSLVTYPE CHAR(1) DEF(RSLVOBJ) POS(1) INIT(X'19'); DCL DD RSLVSUBTYPE CHAR(1) DEF(RSLVOBJ) POS(2) INIT(X'34'); DCL DD RSLVNAME CHAR(3ð) DEF(RSLVOBJ) POS(3);

DCL DD RSLVAUTH CHAR(2) DEF(RSLVOBJ) POS(33) INIT(X'ðððð');

DCL SYSPTR USRSPCOBJ; DCL SPCPTR USRSPC;

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

DCL OL CLð5OL (MBR@, USRSPC, BINOFFSET@) ARG; CPYBLAP RSLVNAME, MBR, ' ';

RSLVSP USRSPCOBJ, RSLVOBJ, \, \;

SETSPPFP USRSPC, USRSPCOBJ; CALLX CLð5, CLð5OL, \; RTX \;

PEND;

Chapter 7. Machine Interface Programming7-15