Re: Ext Print Files - In the Beginning

[John Rusling <jrusling@xxxxxxxxxxxxxxxxxxx>]

Buddy,

Ie; (of what Charles said) -

> 1) You don't have an OFLIND keyword on the printer file's f-spec to
> specify an indicator to be used to indicate overflow.

      // Printer file
     fediinrrpf o    e             printer oflind(overflow)


> Once you have the overflow indicator defined, you simply check it
> before printing to determine when you've gotten to the overflow line
> and if so you write your headings again to get to the next page.


Here I check for overlow, i use a local function, and call it immediately
after I write a line on the report.

      //===============================================================
     p checkforOverFlow...
     p                 b
     d                 pi
      //===============================================================
      /free

         if Overflow = *on;
           doOverFlow();
         endif;

      /end-free
     p                 e

If there's overflow, I call the dooverflow() local function to 'do-it'.

      //===============================================================
     p doOverFlow...
     p                 b
     d                 pi
      //===============================================================
      /free

         write NEWPAGE;
         write REPORTHDR;
         Overflow = *off;

      /end-free
     p                 e



prt file specs -


     A*         ------------
     A          R NEWPAGE
     A*         ------------
     A                                      SKIPB(001)

     A*         ------------ Report Header/beginning
     A          R REPORTHDR
     A*         ------------
     A                                     1'Device .:'
     A            RPJOB         10A  O    11
     A            RPTITLE1      50A  O    24
     A                                    87'Page:'
     A            PAGE           4  0O    97EDTCDE(Z)

     A                                     1'Program :'
     A                                      SPACEB(001)
     A            RPPGM         10A  O    11
     A            RPTITLE2      50A  O    24
     A                                    87'Date:'
     A            RPDATE         8A  O    93

     A                                     1'User . .:'
     A                                      SPACEB(001)
     A            RPUSER        10A  O    11
     A            RPTITLE3      50A  O    24
     A                                    87'Time:'
     A            RPTIME         8A  O    93

     A            RPTITLE4      50A  O    24
     A                                      SPACEB(001)


I just snipped these out of a program, but the idea is there.
hth
John B.