IBM Version 4 Universal Remote User Manual


  Open as PDF
of 505
 
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 Product.
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
 previous next