\ 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-4System API Programming V4R1

Page 210
Image 210
IBM Version 4 manual Parm Extattrextatr 1ð