RPG Enhancement: Use of other indicator fields on OFLIND

[Rob Berendt <rob@xxxxxxxxx>]

Currently I am doing the following code and was thinking how 
sweet it would be if we could define our own indicators on the 
OFLIND instead of using just *IN indicators.


FCHGAUTOBJPO    E             PRINTER OFLIND(*IN01)     
------------ 29 data records excluded ------------------
 * Redefine the Overflow Indicator                      
D OverflowP       S               *   inz(%addr(*in01)) 
D OverFlow        S               N   based(OverflowP)  
------------ 35 data records excluded ------------------
C     *INZSR        BEGSR                               
C                   write     HEADER                    
C                   EndSr                               
                                                        
C     DetSub        BEGSR                               
C------------ 1 data records excluded ------------------
C                   If        OverFlow                  
C                   eval      OverFlow=*off             
C                   Write     HEADER                    
C                   EndIf                               
C                   Write     DETAIL                    
C                   EndSr
+---
| 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
+---