Filter
Top Products
ᑍ extract age of spooled file for report
ᑍ
IF KEY-FIELD-FOR-FIELD-RETD OF QUS-LSPL-KEY-INFO = 216 2425
MOVE SPACES TO OPNDAT,
MOVE DATA-FIELD OF QUS-LSPL-KEY-INFO(
1:DATA-LENGTH OF QUS-LSPL-KEY-INFO)
TO OPNDAT.
ᑍ
ᑍ address next variable length entry
ᑍ
SET ADDRESS OF STRING-SPACE TO ADDRESS OF QUS-LSPL-KEY-INFO.
SET ADDRESS OF QUS-LSPL-KEY-INFO TO ADDRESS OF
STRING-SPACE(
LEN-FIELD-INFO-RETD OF QUS-LSPL-KEY-INFO + 1:1).
Using Keys with List Spooled Files API—ILE RPG Example
Refer to “Using Keys with List Spooled Files API—Example” on page 3-24 for the
original example.
Fᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍ
Fᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍ
Fᑍ
Fᑍ Program: List Spooled Files for Current User
Fᑍ
Fᑍ Language: ILE RPG
Fᑍ
Fᑍ Description: This example shows the steps necessary to
Fᑍ process keyed output from an API.
Fᑍ
Fᑍ APIs Used: QUSLSPL - List Spooled Files
Fᑍ QUSCRTUS - Create User Space
Fᑍ QUSPTRUS - Retrieve Pointer to User Space
Fᑍ
Fᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍ
Fᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍ
Fᑍ
FQPRINT O F 132 PRINTER OFLIND(ᑍINOF)
Dᑍ
Dᑍ Error Code parameter include
Dᑍ
D/COPY QSYSINC/QRPGLESRC,QUSEC 11
Dᑍ
DSPC_NAME S 2 INZ('SPCNAME QTEMP ')
DSPC_SIZE S 9B INZ(2) 2
DSPC_INIT S 1 INZ(X'')
DLSTPTR S ᑍ
DLSTPTR2 S ᑍ
DSPCPTR S ᑍ
DARR S 1 BASED(LSTPTR) DIM(32767)
D DS
DPAGES# 1 4B
DPAGESA 1 4
DKEYS DS 7
D 9B INZ(21) 8
D 9B INZ(216)
D 9B INZ(211)
B-42 System API Programming V4R1