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 = 'QLICOBJD'

 

 

C

 

EXSR

ERRCOD

 

 

 

C

 

ENDIF

 

 

 

 

C\

 

 

 

 

 

 

C

 

ENDDO

 

 

 

 

C\

 

 

 

 

 

 

C

 

ENDSR

 

 

 

 

C\

 

 

 

 

 

 

C\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\

 

C\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\

 

C\

 

 

 

 

 

 

C\ Subroutine: PKGPO

 

 

 

 

C\

 

 

 

 

 

 

C\ Descriptive Name: Package software ABC Product.

 

 

C\

 

 

 

 

 

 

C\ Description: This subroutine will package the ABC Produ￿ct.

 

 

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\

 

 

 

 

 

 

C

 

EVAL

QSZOPTð2 = 'ðððð'

 

 

C

 

EVAL

QSZPIDð1 = PROD_ID

 

 

C

 

EVAL

QSZRLð1 = RLS_LVL

 

 

C

 

EVAL

QSZLIDðð = '\ALL'

 

 

C

 

EVAL

QSZERVEDð3 = \BLANKS

 

 

C\

 

 

 

 

 

 

C\ Let's package the ABC Product.

 

 

 

C\

 

 

 

 

 

 

C\

 

 

 

 

 

 

C

 

CALL

'QSZPKGPO'

 

 

 

C

 

PARM

 

QSZPOI

 

 

C

 

PARM

'\YES'

REPKG

4

 

C

 

PARM

'\NO'

ALWCHG

5

 

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 = 'QSZPKGPO'

 

 

C

 

EXSR

ERRCOD

 

 

 

C

 

ENDIF

 

 

 

 

C\

 

 

 

 

 

B-150

System API Programming

V4R1

 

 

 

 

Page 428
Image 428
IBM Version 4 manual 150