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 Pr￿oduct.

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 BLanguages-149

Page 426 Page 428
Page 427
Image 427
IBM Version 4 manual Parm Qszal, Parm Qszpe Nbrpe Qszfl, Cobjd Begsr
Page 426 Page 428
Top Page Image Contents