IBM Version 4 manual Abc, Move Qlicobjd to API-NAME, Perform Errcod

\If an exception occurs, the API returns the exception in t￿he

\error code parameter. The bytes available field is set to

\zero if no exception occurs and greater than zero if an

\exception does occur.

\

IF BYTES-AVAILABLE OF QUS-EC > ð

MOVE "QSZCRTPL" TO API-NAME, PERFORM ERRCOD.

\

\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\

\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\

\

\Subroutine: COBJD

\Descriptive Name: Change object descriptions for ABC Pro￿duct.

\Description: This subroutine will change the object

\	descriptions		for all objects		that make	up the
\	ABC	Product.		Currently that	is 15 objects. They
\	are	listed at		the end of this program.
\

\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\

\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\

\

COBJD.

\

\Need to associate all objects with the ABC Product

PERFORM CHG-OBJD VARYING I FROM 1 BY 1 UNTIL I > 15.

CHG-OBJD.

STRING OBJ-NAME(I), "ABC" DELIMITED BY SIZE INTO OBJNAM. MOVE LP-ID(I) TO LP5.

MOVE PRD-OPT-ID(I) TO PID13. MOVE PRD-OPT-LD(I) TO LID12. MOVE OBJ-TYPE(I) TO OBJ-TYPE-2.

CALL "QLICOBJD" USING RTN-LIB, OBJNAM, OBJ-TYPE-2,

COBJI, QUS-EC.

\

\If an exception occurs, the API returns the exception in t￿he

\error code parameter. The bytes available field is set to

\zero if no exception occurs and greater than zero if an

\exception does occur.

\

IF BYTES-AVAILABLE OF QUS-EC > ð

MOVE "QLICOBJD" TO API-NAME, PERFORM ERRCOD.

\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\

\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\

\

\Subroutine: PKGPO

\Descriptive Name: Package software ABC Product.

\Description: This subroutine will package the ABC Produc￿t.

\	It makes sure that all objects exist that are
\	associated with the product.

B-142System API Programming V4R1