IBM Version 4 manual 148

	C\ Fill Additional Library List Parameter
	C\	None
	C\
	C\ Fill Folder List Parameter
	C\	None
	C\
	C\ Let's create the product load for the ABC Product - MRM Obj￿ects
	C\
	C	CALL	'QSZCRTPL'
	C	PARM	'ABCðð5ð'	PROD_ID_NM	1ð
	C	PARM		QSZLI
	C	PARM	\BLANKS	SEC_LANG	1ð
	C	PARM		QSZLIðð
	C	PARM		QSZAL
	C	PARM		NBR_ADD_LB
	C	PARM		QSZPE
	C	PARM		NBR_PE
	C	PARM		QSZFL
	C	PARM		NBR_FLDRS
	C	PARM		TEXT_DESC
	C	PARM		PUB_AUT
	C	PARM		QUSEC
	C\
	C\ If an exception occurs, the API returns the exception in￿ the
	C\ error code parameter.		The bytes available field is set to
	C\ zero if no exception occurs and greater than zero if an
	C\ exception does occur.
	C\
	C	IF	QUSBAVL > ð
	C	EVAL	API_NAME = 'QSZCRTPL'
	C	EXSR	ERRCOD
	C	ENDIF
	C\
	C\ Setup for Product Load for MRI Objects
	C\ Fill Product Load Information Parameter
	C\
	C	EVAL	QSZLT = '\LNG'
	C	EVAL	QSZLID = '2924'
	C\
	C\ Fill Principal Library Information Parameter
	C\
	C	EVAL	QSZPEP = 'ABCPGMMRI2'
	C\
	C\ Fill Preoperation Exit Programs Parameter
	C\
	C	EVAL	QSZPEPðð = 'ABCPGMMRI1'
	C\
	C\ Fill Additional Library List Parameter
	C\	None
	C\
	C\ Fill Folder List Parameter
	C\	None
	C\
	C\ Let's create the product load for the ABC Product - MRI Obj￿ects
	C\
	C	CALL	'QSZCRTPL'
	C	PARM	'ABCðð29'	PROD_ID_NM
	C	PARM		QSZLI
B-148	System API Programming	V4R1