IBM Version 4 manual Source for CL03 follows, Source for CL04 follows

Source for the CL03	Program
The source for CL03 follows:
/\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\/
/\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\/
/\		\/
/\	Program Name: CLð3	\/
/\		\/
/\	Programming Language: CL	\/
/\		\/
/\	Description: Main driver program for initial version of	\/
/\	MI program MICRTPG. This program creates a	\/
/\	\USRSPC, calls CLð4 to load MI source from	\/
/\	a \SRC physical file into the \USRSPC, and	\/
/\	then calls MICRTPG to create MI programs.	\/
/\		\/
/\	Header Files Included: None	\/
/\		\/
/\		\/

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

PGM	PARM(&FILE &MBR)
DCL	VAR(&FILE) TYPE(\CHAR) LEN(1ð)
DCL	VAR(&MBR) TYPE(\CHAR) LEN(1ð)
DCL	VAR(&SPCNAM) TYPE(\CHAR) LEN(2ð) +
	VALUE('	\CURLIB	')
DCL	VAR(&SPCEXTATR) TYPE(\CHAR) LEN(1ð) VALUE(' ')
DCL	VAR(&SPCSIZ) TYPE(\CHAR) LEN(4) +
	VALUE(X'ððð1ðððð')
DCL	VAR(&SPCINTVAL) TYPE(\CHAR) LEN(1) VALUE(X'ðð')
DCL	VAR(&SPCSPCAUT) TYPE(\CHAR) LEN(1ð) +
	VALUE('\ALL')
DCL	VAR(&SPCTXTDSC) TYPE(\CHAR) LEN(5ð) VALUE(' ')
DCL	VAR(&SPCRPLOPT) TYPE(\CHAR) LEN(1ð) +
	VALUE('\YES')
DCL	VAR(&ERRCOD) TYPE(\CHAR) LEN(4) +
	VALUE(X'ðððððððð')
DCL	VAR(&SPCDMN) TYPE(\CHAR) LEN(1ð) VALUE('\USER')
DCL	VAR(&BINOFFSET) TYPE(\CHAR) LEN(4) +
	VALUE(X'ððððððð1')
CHGVAR	VAR(%SST(&SPCNAM 1 1ð)) VALUE(&MBR)
CALL	PGM(QUSCRTUS) PARM(&SPCNAM &SPCEXTATR +
	&SPCSIZ &SPCINTVAL &SPCSPCAUT &SPCTXTDSC +
	&SPCRPLOPT &ERRCOD &SPCDMN)
OVRDBF	FILE(MISRC) TOFILE(&FILE) MBR(&MBR)
CALL	PGM(CLð4) PARM(&MBR &BINOFFSET)
CALL	PGM(MICRTPG) PARM(&MBR &BINOFFSET)
ENDPGM

Source for the CL04	Program
The	source for CL04 follows:

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

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

/\		\/
/\	Program Name: CLð4	\/
/\		\/
/\	Programming Language: CL	\/
	Chapter	7. Machine Interface Programming7-13