IBM Version 4 Universal Remote User Manual


  Open as PDF
of 505
 
Fᑍ
Fᑍ Header Files Included: QUSEC - Error Code Parameter
Fᑍ QUSGEN - User Space Generic Header
Fᑍ QUSLSPL - List Spooled Files
Fᑍ
Fᑍ APIs Used: QUSLSPL - List Spooled Files
Fᑍ QUSCRTUS - Create User Space
Fᑍ QUSRTVUS - Retrieve User Space
Fᑍ
Fᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍ
FQSYSPRT O F 132 OF PRINTER
Iᑍ
Iᑍ Copy User Space Generic Header
Iᑍ
I/COPY QSYSINC/QRPGSRC,QUSGEN 11
Iᑍ
Iᑍ Copy API Error Code parameter
Iᑍ
I/COPY QSYSINC/QRPGSRC,QUSEC
Iᑍ
Iᑍ Copy List Spooled Files API include
Iᑍ
I/COPY QSYSINC/QRPGSRC,QUSLSPL
Iᑍ
Iᑍ Data structure to hold space name
Iᑍ
ISPCNAM DS
I I 'SPCNAME ' 1 1 SPC
I I 'QTEMP ' 11 2 LIB
Iᑍ
Iᑍ Data structure to hold requested key values
Iᑍ
IKEYARA DS 5 7
I I 21 B 1 4KEY1
I I 216 B 5 8KEY2
I I 211 B 9 12KEY3 8
Iᑍ
Iᑍ Receiver variable for QUSRTVUS
Iᑍ
IRECVR DS 1
Iᑍ
Iᑍ Other assorted variables
Iᑍ
I DS
I B 1 4SIZ
I B 5 8START
I B 9 12LENDTA
I B 13 16KEY#
I B 17 2PAGES#
I 17 2 PAGESA
I I X'' 21 21 INTVAL
Cᑍ
Cᑍ Initialize Error Code structure to accept exceptions
Cᑍ
C Z-ADD QUSBNB 1
Cᑍ
Cᑍ Create the User Space to hold the QUSLSPL API results
Cᑍ
C CALL 'QUSCRTUS' 2
C PARM SPCNAM
C PARM 'quslspl' EXTATR 1
C PARM 2 SIZ
C PARM INTVAL
C PARM 'ᑍALL' PUBAUT 1
C PARM TXTDSC 5
C PARM 'ᑍYES' REPLAC 1
C PARM QUSBN
Cᑍ
Cᑍ Call QUSLSPL to get all spooled files for ᑍCURRENT user
Cᑍ
C CALL 'QUSLSPL' 3
C PARM SPCNAM
Chapter 3. Common Information across APIs—Basic (OPM) Example
3-25
 previous next