Code:
     FQSYSPRT   O    F  132        Printer InfDs( PrtLinInf )  OflInd( *InOf ) 

     D PrtLinInf       Ds                  Qualified                 
     D  OvfLin                        5i 0 Overlay( PrtLinInf: 188 ) 
     D  CurLin                        5i 0 Overlay( PrtLinInf: 367 ) 
     D  CurPag                        5i 0 Overlay( PrtLinInf: 369 ) 

       /Free
             If  PrtLinInf.CurLin > PrtLinInf.OvfLin - x;
                 Except  Header;      // oder Write bei ext. PRTF                   
             EndIf;                                      
             Except  Detail;           // s.o.
   
       /End-Free

     OQSYSPRT   EF           Header         2  2 
     O                                            2 'Intern beschriebene Druckausgabe'                             
     O                       PAGE             +   1 
     O                       *DATE         Y     38