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 DO15 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
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 parameter.
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—Examples A-9