IBM Version 4 manual Source for CL05 follows

/\					\/
/\	Description: Load a source physical file member into the				\/
/\		\USRSPC named &MBR.			\/
/\					\/
/\					\/
/\	Header Files Included: None				\/
/\					\/
/\					\/
/\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\/
	PGM	PARM(&MBR &BINOFFSET)
	DCLF	FILE(MISRC)
	DCL	VAR(&MBR) TYPE(\CHAR) LEN(1ð)
	DCL	VAR(&BINOFFSET) TYPE(\CHAR) LEN(4)
	DCL	VAR(&OFFSET) TYPE(\DEC) LEN(8 ð) VALUE(1)
	DCL	VAR(&LENGTH) TYPE(\CHAR) LEN(4) +
		VALUE(X'ðððððð5ð')
	DCL	VAR(&SPCNAM) TYPE(\CHAR) LEN(2ð) +
		VALUE('	\LIBL	')
	CHGVAR	VAR(%SST(&SPCNAM 1 1ð)) VALUE(&MBR)
LOOP:	RCVF
	MONMSG	MSGID(CPFð864) EXEC(GOTO CMDLBL(DONE))
	CALL	PGM(QUSCHGUS) PARM(&SPCNAM &BINOFFSET +
		&LENGTH &SRCDTA 'ð')
	CHGVAR	VAR(&OFFSET) VALUE(&OFFSET + 8ð)
	CHGVAR	VAR(%BIN(&BINOFFSET)) VALUE(&OFFSET)
	GOTO	CMDLBL(LOOP)
DONE:	ENDPGM

Source for the CL05	Program
The source for CL05 follows:
/\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\/
/\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\/
/\		\/
/\	Program Name: CLð5	\/
/\		\/
/\	Programming Language: CL	\/
/\		\/
/\	Description: Create an MI program using the QPRCRTPG API.	\/
/\		\/
/\		\/
/\	Header Files Included: None	\/
/\		\/
/\		\/

	/\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\/
	PGM	PARM(&SRCMBR	&MIPGMSRC &MIPGMSRCSZ)
	DCL	VAR(&SRCMBR)	TYPE(\CHAR) LEN(1ð)
	DCL	VAR(&MIPGMSRC) TYPE(\CHAR) LEN(1)
	DCL	VAR(&MIPGMSRCSZ) TYPE(\CHAR) LEN(4)
	DCL	VAR(&PGMNAM)	TYPE(\CHAR) LEN(2ð) +
		VALUE('	\CURLIB	')
	DCL	VAR(&PGMTXT)	TYPE(\CHAR) LEN(5ð) +
		VALUE(' ')
	DCL	VAR(&PGMSRCF) TYPE(\CHAR) LEN(2ð) +
		VALUE('\NONE')
	DCL	VAR(&PGMSRCM) TYPE(\CHAR) LEN(1ð) VALUE(' ')
	DCL	VAR(&PGMSRCCHG) TYPE(\CHAR) LEN(13) VALUE(' ')
7-14	System API Programming V4R1