Filter
Top Products
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