\ 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