Recuperar atributos spool (RTVSPLFA)

He recuperado esta utilidad, basada en la API QUSRSPLA, de las antiguas TAATools. Con ella podemos recuperar la mayoría de atributos de un archivo de spool que tengamos en una cola de salida.

Podéis descargar el código de esta utilidad en este enlace.

Los valores que recupera esta utilidad son los siguientes:
Form type                 (10)   FORMTYPE 
Output priority            (1)   OUTPTY   
Number of copies left      (3)   CPYLEFT  
Total number of copies     (3)   COPIES   
Maximum records           (10)   MAXRCDS  
File separators            (1)   FILESEP  
Schedule                   (8)   SCHEDULE 
Hold file                  (4)   HOLD     
Save after output          (4)   SAVE     
Device type               (10)   DEVTYPE  
Printer type               (5)   PRTTYPE  
Device file               (10)   DEVFILE   
Device file library       (10)   DEVFILEL  
User data                 (10)   USRDTA    
Accounting code           (15)   ACGCDE    
Program which opened file (10)   OPNPGM    
Pgm lib which opened file (10)   OPNPGML   
Qpen date                  (8)   OPNDAT    
Open time                  (8)   OPNTIM    
Page being written        (10)   PAGWTN    
Total pages               (10)   TOTPAG    
Record length              (5)   RCDLEN    
Page length                (3)   PAGLEN    
Page width                 (3)   PAGWDT    
Lines per inch             (1)   LPI       
Characters per inch        (2)   CPI       
Overflow line              (3)   OVRFLW    
Fold print line            (4)   FOLD     
Control character          (5)   CTLCHAR  
Replace unprintable char   (4)   RPLUNPRT 
Align forms                (4)   ALIGN    
Print quality              (6)   PRTQLTY  
Form feed                  (8)   FORMFEED 
Drawer                     (1)   DRAWER   
Printer font               (5)   FONT     
Page rotation              (5)   PAGRTT   
Justification              (3)   JUSTIFY  
Print on both sides       (10)   DUPLEX