RE: Record Number / RPG cycle

Booth wrote:

>With OPNQRYF the cycle suddenly makes 
>RPG programming really simple again.  Add in 
>L1 and we have the simple RPG of years ago.   
>Now, if there was a reasonable report printing layout 
>tool.....

Auto report still works although it only uses program described files.

DSPOBJD OBJ(yourlib/*ALL) OBJTYPE(*DTAARA) 
OUTPUT(*OUTFILE) OUTFILE(QTEMP/DTAARA)


FDTAARA  IP  F     539            DISK                  
FQSYSPRT O   F     132     OF    LPRINTER               
LQSYSPRT 066FL060OL                                     
IDTAARA  AA  01                                         
I                                       14  23 ODLBNML1 
I                                       24  33 ODOBNM   
I                                       34  41 ODOBTP   
I                                       42  51 ODOBAT   
I                                    P  53  580ODOBSZ   
I                                       59 108 ODOBTX   
OQSYSPRT H                *AUTO                         
O                                      'Data area list' 
O        D        01      *AUTO                         
O                 L1      ODLBNM       'Library'        
O                         ODOBNM       'Object'         
O                         ODOBTP       'Type'           
O                         ODOBAT       'Attr'           
O                         ODOBTX       'Text'           
O                         ODOBSZ A     'Size'           
O                                1     'Library total'  
O                                R     'Final total'    

Buck
+---
| This is the RPG/400 Mailing List!
| To submit a new message, send your mail to RPG400-L@midrange.com.
| To subscribe to this list send email to RPG400-L-SUB@midrange.com.
| To unsubscribe from this list send email to RPG400-L-UNSUB@midrange.com.
| Questions should be directed to the list owner/operator: david@midrange.com
+---