IBM Version 4 manual 144, Packaging a, Refer To Program For

Program	for	Packaging a	Product—ILE			RPG	Example
		Refer		to “Program			for	Packaging	a Product—OPM RPG	Example” on page A-3 fo
		the	original		example.
			F\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\
			F\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\
			F\
			F\Program Name: SFTWPRDEX
			F\
			F\Language: ILE RPG
			F\
			F\Descriptive Name: Software Product Example
			F\
			F\Description: This example shows you the steps necessary￿ to
			F\			package your product like IBM products.
			F\
			F\Header Files Included: QUSEC						- Error Code Parameter
			F\					QSZCRTPD - Create Product Definition API
			F\					QSZCRTPL - Create Product Load API
			F\					QSZPKGPO - Package Product Option API
			F\
			F\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\
			F\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\
			F\
			FQPRINT		O	F	132	PRINTER OFLIND(\INOF) USROPN
			D\
			D\	Error Code parameter include.					As this sample program
			D\	uses /COPY to include the error code structure, only the f￿irst
			D\	16 bytes of the error code structure are available.						If the
			D\	application program needs to access the variable lengt￿h
			D\	exception data for the error, the developer should physi￿cally
			D\	copy the QSYSINC include and modify the copied include t￿o
			D\	define additional storage for the exception data.
			D\
			D/COPY QSYSINC/QRPGLESRC,QUSEC
			D\
			D\	Create Product Definition API Include
			D\
			D/COPY QSYSINC/QRPGLESRC,QSZCRTPD
			D\
			D\	Create Product Load API Include
			D\
			D/COPY QSYSINC/QRPGLESRC,QSZCRTPL
			D\
			D\	Package Product Option API Include
			D\
			D/COPY QSYSINC/QRPGLESRC,QSZPKGPO
			D\
			D\	Compile Time Array
			D\
			DOBJ_INFO				S	41	DIM(15) CTDATA PERRCD(1)
			D\
			DOBJ_INFO_I				DS		BASED(OBJ_PTR)
			D OBJ_NAME					1ð
			D OBJ_TYPE					1ð
			D PRD_OPT_ID					4
			D PRD_OPT_LD					4
			D LP_ID					13
B-144	System	API Programming		V4R1