IBM Version 4 manual MOVEL\ALL Qszbrf, Movelqszpkgpoapi Call Qszpkgpo Parm Qszbr, Parm \YES Repkg

C	MOVEL'\ALL	'QSZBRF		Load ID
C	MOVEL\BLANKS	QSZBRG		Reserved
C\
C\ Package the ABC Product.
C\
C\
C	MOVEL'QSZPKGPO'API
C	CALL 'QSZPKGPO'
C	PARM	QSZBR		Prod. Option Info.
C	PARM '\YES'	REPKG	4	Repackage
C	PARM '\NO '	ALWCHG	5	Allow Object Change
C	PARM	QUSBN		Error Code
C\ Check for any errors returned in the error code paramete￿r.
C	EXSR ERRCOD
C	ENDSR

C\

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

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

C\

C\ Subroutine: ERRCOD

C\

C\ Descriptive Name: Process API errors.

C\

C\ Description: This subroutine prints a line to a spooled

C\	file if any errors are returned in the error code
C\	parameter.
C\
C\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\
C\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\
C\
C	ERRCOD	BEGSR
C	QUSBNC	IFNE ð

C\

C\ Process errors returned from the API.

C\
C	EXCPTBADNWS
C	END
C	ENDSR
OQPRINT E 1ð6	BADNWS
O	'Failed in API '
O	API
O	'with error '
O	QUSBND

O\ The information below is for array OBJ. O\111 represents the object name. O\2222222222 represents the object type. O\3333 represents the product option ID. O\4444 represents the product option load ID. O\5555555555555 represents the licensed program. O\1112222222222333344445555555555555

\\

ABCPGMMRM1\PGM ðððð5ðð1ðABCABCV3R1Mð

ABCPGMMRM2\PGM ðððð5ðð1ðABCABCV3R1Mð

ABCPGMMRI1\PGM ðððð2924ðABCABCV3R1Mð

ABCPGMMRI2\PGM ðððð2924ðABCABCV3R1Mð

ABCPGM \PGM ðððð5ðð1ðABCABCV3R1Mð

QCLSRC \FILE ðððð2924ðABCABCV3R1Mð

ABCDSPF \FILE ðððð2924ðABCABCV3R1Mð

A-10System API Programming V4R1