|
yo lo
hago asi
WRKSPLF SELECT(USUARIO) OUTPUT(*PRINT)
CPYSPLF FILE(QPRTSPLF) TOFILE(QTEMP/FSPOOL)
+
JOB(570636/SANTILLANG/QPADE0122) SPLNBR(*LAST) y el
archivo FSPOOL (que aqui te lo envio) tiene la informacion que necesitas,
despues lo puedes utilizar para manejarlo con subfiles
Espero
te sirva
Gerardo Santillana
|
A*--------------------------------------------------------------
A R RSPOOL
A SESP0 1 TEXT('ESPACIO')
A SFILE 10 TEXT('FILE')
A SESP1 1 TEXT('ESPACIO')
A SUSER 10 TEXT('USER')
A SESP2 1 TEXT('ESPACIO')
A SDEVQ 10 TEXT('DEVICE OR QUEUE')
A SESP3 1 TEXT('ESPACIO')
A SUSRD 10 TEXT('USER DATA')
A SESP4 1 TEXT('ESPACIO')
A SSTS 3 TEXT('STATUS')
A SESP5 1 TEXT('ESPACIO')
A STOTP 6 TEXT('TOTAL PAGES')
A SESP6 1 TEXT('ESPACIO')
A SCURP 5 TEXT('CURRENT PAGE')
A SESP7 1 TEXT('ESPACIO')
A SCOPY 4 TEXT('COPY')
A SESP8 1 TEXT('ESPACIO')
A SFORM 4 TEXT('FORM')
A SESP9 1 TEXT('ESPACIO')
A STYPE 4 TEXT('TYPE')
A SESP10 2 TEXT('ESPACIO')
A SPTY 3 TEXT('PRIORITY')
A SESP11 1 TEXT('ESPACIO')
A SCRTD 8 TEXT('CREATION DATE')
A SESP12 1 TEXT('ESPACIO')
A SCRTT 8 TEXT('CREATION TIME')
A SESP13 1 TEXT('ESPACIO')
A SFILN 6 TEXT('FILE NBR')
A SESP14 1 TEXT('ESPACIO')
A SJOB 10 TEXT('JOB')
A SESP15 1 TEXT('ESPACIO')
A SNUMB 6 TEXT('NUMBER')
A SESP16 1 TEXT('ESPACIO')
A SQUEUE 10 TEXT('QUEUE')
A SESP17 1 TEXT('ESPACIO')
A SLIBR 10 TEXT('LIBRARY')
A SESP18 1 TEXT('ESPACIO')
A SASP 4 TEXT('ASP')
A SESP19 1 TEXT('ESPACIO')
A SLSTUD 8 TEXT('LAST USED DATE')
A SESP20 1 TEXT('ESPACIO')
A SSIZE 9 TEXT('SPOOLED FILE SIZE')
A K SCRTD
A K SCRTT
