C PARM 'ABC2924' SEC_LANG
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 ENDSR
C\
C\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\
C\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\
C\
C\ Subroutine: COBJD
C\
C\ Descriptive Name: Change object descriptions for ABC Product.
C\
C\ Description: This subroutine will change the object
C\ descriptions for all objects that make up the
C\ ABC Product. Currently that is 15 objects. 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\
C 1 DO 15 I 3 ð
C EVAL OBJ_PTR = %ADDR(OBJ_INFO(I))
C EVAL OBJNAM = OBJ_NAME + 'ABC'
C EVAL LP5 = LP_ID
C EVAL PID13 = PRD_OPT_ID
C EVAL LID12 = PRD_OPT_LD
C EVAL TYPE = OBJ_TYPE
C\
C CALL 'QLICOBJD'
C PARM RTN_LIB 1ð
C PARM OBJNAM
C PARM TYPE 1ð
C PARM COBJI
C PARM QUSEC
C\
Appendix B. Original Examples in Additional Languages B-149