IBM Version 4 manual Cobjd, Move OBJ,I Objds Name CAT ABC, Cobji, Pkgpo

C\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\

C\
C\ Subroutine: COBJD
C\
C\ Descriptive Name: Change object descriptions for the
C\ ABC Product.
C\
C\ Description: This subroutine changes the object
C\	descriptions for all objects that make up the
C\	ABC Product. Currently, 15 objects exist.						They
C\	are listed at the end of this program.
C\
C\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\
C\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\
C\
C	COBJD	BEGSR
C\
C\ Need to associate all objects with the ABC Product
C	1	DO	15	I	3ð
C		MOVE OBJ,I		OBJDS
C	NAME	CAT	'ABC'	QOBJNM 2ð
C		MOVELLP		LP5
C		MOVELPID		PID13
C		MOVELLID		LID12
C		MOVELTYP		TYPE	1ð
C		MOVEL'QLICOBJD'API
C		CALL 'QLICOBJD'
C		PARM		RTNLIB 1ð		Returned Lib. Name
C		PARM		QOBJNM		Qual. Object Name
C		PARM		TYPE		Object Type
C		PARM		COBJI		Chg'd Object Info.
C		PARM		QUSBN		Error Code
C\ Check for any errors returned in the error code paramete￿r.
C		EXSR ERRCOD
C		ENDDO
C		ENDSR
C\
C\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\
C\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\
C\
C\ Subroutine: PKGPO
C\
C\ Descriptive Name: Package software ABC Product.
C\
C\ Description: This subroutine packages the ABC Product.
C\	It makes sure that all objects exist that are
C\	associated with the product.
C\
C\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\
C\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\
C\
C	PKGPO	BEGSR
C\
C\ Setup for packing the ABC Product.
C\ Fill Product Option Information Parameter
C		MOVEL'ðððð'		QSZBRB		Product Option
C		MOVEL'ðABCABC' QSZBRC				Product ID
C		MOVEL'V3R1Mð'		QSZBRD		Release Level
			Appendix	A. Performing Tasks		Using	APIs—ExamplesA-9