Filter
Top Products
ᑍ CREATE THE SPACE TO HOLD THE DATA
C CALL 'QUSCRTUS'
C PARM SPCNAM
C PARM 'EXT_ATTR'EXTATR 1
C PARM SIZ
C PARM INTVAL
C PARM 'ᑍALL 'PUBAUT 1
C PARM 'NO TEXT 'TXTDSC 5
C PARM 'ᑍXXXXXXX'REPLAC 1 2
C PARM QUSBN
ᑍᑍ
ᑍ DISPLAY EXCEPTION IDENTIFIER TO THE USER
C QUSBNC IFGT ᑍZEROS 4
C EXSR DSPERR
C END
ᑍ
C SETON LR
ᑍ
C DSPERR BEGSR
C DSPLY QUSBND
C ENDSR
9-4 System API Programming V4R1