D\Prototype for calling List Spooled File API QUSLSPL
D\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\
D QUSLSPL C 'QUSLSPL'
D\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\
D\Type definition for the SPLFð2ðð format.
D\\\\\\\
D\NOTE: The following type definition only defines the fixed
D\ portion of the format. Any varying length field will
D\ have to be defined by the user.
D\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\
DQUSSPLKI DS 1ðð BASED(LSTPTR2)
D\ Qus LSPL Key Info
D QUSLFIRð2 1 4B ð
D\ Len Field Info Retd
D QUSKFFFRðð 5 8B ð
D\ Key Field for Field Retd
D QUSTODð2 9 9
D\ Type of Data
D QUSR3ðð 12
D\ Reserv3
D QUSDLð2 13 16B ð
D\ Data Length
D\QUSDATAð8 17 17
D\
D\ Varying length
D\QUSERVED34 18 18
D\
D\ Varying length
DQUSFð2ðð DS BASED(LSTPTR)
D\ Qus SPLFð2ðð
D QUSNBRFRðð 1 4B ð
D\ Num Fields Retd
D\QUSKIðð 18
D\ QUSLFIRð3 5 8B ð
D\ QUSKFFFRð1 9 12B ð
D\ QUSTODð3 13 13
D\ QUSR3ð1 14 16
D\ QUSDLð3 17 2ðB ð
D\ QUSDATAð9 21 21
D\ QUSERVED35 22 22
D\
D\ Varying length
C\
C\ Start of mainline
C\
C\
C\ Set Error Code structure to use exceptions
C\
C Z-ADD ð QUSBPRV .1/
C\
C\ Create a User Space for the List generated by QUSLSPL
C\
C CALL 'QUSCRTUS' .2/
C PARM SPC_NAME
C PARM 'QUSLSPL ' EXT_ATTR
C PARM SPC_SIZE
C PARM SPC_INIT
C PARM '\ALL' SPC_AUT
B-44 System API Programming V4R1