RE: Printing arrays through externally described printer file

Tom, I guess I don't understand, this is what I have:

A          R DETAILA
A            DADESC        30   O     1
A            DATYPE        15   O    32
A            DAJANSLS       9  0O    48EDTCDE(1)
A            DAFEBSLS       9  0O    60EDTCDE(1)
  .
  .
  .
A            DADECSLS       9  0O   180EDTCDE(1)
A            DATOTALSLS    10  0O   192SPACEA(1)
A                                      EDTCDE(1)

Can I do an override like you can on a physical file in the input specs?

I         Field1         array(1)
I         Field2         array(2)
I         Field3         array(3)

Then I can do this

        Do       3      x
        Eval     array(x) = formula here
        enddo

instead of

        eval      Field1 = formula
        eval      Field2 = formula
        eval      Field3 = formula

-----Original Message-----
From: Westdorp, Tom

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