RE: Printing arrays through externally described printer file

This message is in MIME format. Since your mail reader does not understand
this format, some or all of this message may not be legible.
--
[ Picked text/plain from multipart/alternative ]
I've done it as follows:

An external PF for definition:
      A          R FOLPRTR                   TEXT('FOLIO LINE ITEMS')
      A            DATE01    R               REFFLD($DISPDATE)
      A            DATE02    R               REFFLD($DISPDATE)
      A            DATE03    R               REFFLD($DISPDATE)
.....
      A            AMNT01    R   -2          REFFLD(AMNT)
      A            AMNT02    R   -2          REFFLD(AMNT)
      A            AMNT03    R   -2          REFFLD(AMNT)
.....

Referenced in the RPGIV

D DTDS          E DS                  ExtName(FOLPRTDS)
D  DT                     1    144P 0 Dim(36) PackEven
D  AM                   145    288P 2 Dim(36)

and then referencing the external field names in the external print file
.....
      A            FLIO21    R        O     1SKIPB(026)
      A            DATE21    R        O   + 1REFFLD(DESC)
      A            AMNT21    R   -2   O   + 1REFFLD(AMNT)
      A                                      EDTCDE(K)
.....

Hope this helps


-----Original Message-----
From: Wills, Mike N. (TC) [mailto:MNWills@taylorcorp.com]
Sent: Monday, February 25, 2002 11:54 AM
To: 'rpg400-l@midrange.com'
Subject: Printing arrays through externally described printer file


I need to do a sales report where every month is printed on one line. I
would like to process this in a loop versus one line of code for every month
across the page. How do I set up my external description so I can process
this in a loop? Or can I do this?

Thanks for any help,

Mike
_______________________________________________
This is the RPG programming on the AS400 / iSeries (RPG400-L) mailing list
To post a message email: RPG400-L@midrange.com
To subscribe, unsubscribe, or change list options,
visit: http://lists.midrange.com/cgi-bin/listinfo/rpg400-l
or email: RPG400-L-request@midrange.com
Before posting, please take a moment to review the archives
at http://archive.midrange.com/rpg400-l.