RE: Multi Printer files in a program

Steve,

Simply use different OFLIND indicators for each prtf.  Then before you
write to a given file, check its overflow line indicator variable and
write the files headings if needed.

fPRTF1     o    e             printer oflind(gPrintFile1Overflowed) 
fPRTF2     o    e             printer oflind(gPrintFile2Overflowed) 

d gPrintFile1Overflowed...              
d                 s               n   inz(*ON)
d gPrintFile2Overflowed...              
d                 s               n   inz(*ON)

 /free

  // do whatever
  
  select;
    when NeedToWritePrtf1();
      if gPrintFile1OverFlowed();
        WritePrtf1Headings();
      endif;
      WritePrtf1Detail();
    when NeedToWritePrtf2();
      if gPrintFile2OverFlowed();
        WritePrtf2Headings();
      endif;
      WritePrtf2Detail();
  endsl;

 /end-free    


For additional consideration, here's some alternative code:

 /free

  // do whatever

  wPrtfToUse = DeterminePrinterFile(fld1:fld2:fld3);
  if PrinterFileOverflowed(wPrtfToUse);
    WriteHeadings(wPrtfToUse);
  endif
  WriteDetail(wPrtfToUse);

 /end-free



HTH,


Charles Wilt
--
iSeries Systems Administrator / Developer
Mitsubishi Electric Automotive America
ph: 513-573-4343
fax: 513-398-1121
  

> -----Original Message-----
> From: rpg400-l-bounces@xxxxxxxxxxxx 
> [mailto:rpg400-l-bounces@xxxxxxxxxxxx] On Behalf Of 
> steema@xxxxxxxxxxxxx
> Sent: Thursday, May 04, 2006 4:51 PM
> To: RPG programming on the AS400 / iSeries
> Subject: Multi Printer files in a program
> 
> HI I have an RPG program, that checks a few different files for a
> descrepancy, w/ a particular field. In doing this, I noticed other
> descrpancies that the program uncovered and could print out. 
> However, my
> problem is that if I use one Printer file, I can't cover all 
> the issues
> under one set of headings, unless by having a phrase on the side that
> would indicate which problem is being listed, but this is 
> messy. So the
> other way is to have different Printer files. The problem is 
> that in the
> sequence of the data, there could be one problem listed, lets say on
> Printer_file_1, then the next problem would belong to 
> Printer_file_2, then
> 3, then back to 2. All the while, I have to keep track of 
> when to effect
> the page headings. Is there an easy way to do this? I could 
> simply make 4
> versions of the program and run one-at-a-time, but this seems 
> amateurish.
> Thanks,
> Steve
> -- 
> This is the RPG programming on the AS400 / iSeries (RPG400-L) 
> mailing list
> To post a message email: RPG400-L@xxxxxxxxxxxx
> To subscribe, unsubscribe, or change list options,
> visit: http://lists.midrange.com/mailman/listinfo/rpg400-l
> or email: RPG400-L-request@xxxxxxxxxxxx
> Before posting, please take a moment to review the archives
> at http://archive.midrange.com/rpg400-l.
> 
>