Tuesday 18 October 2011

RPGLE - Creating an array of from defining an external table as data structure

 RPGLE  - Creating an array of from defining an external table as data structure

D*
     D* The file BUDGET hold budget info both $dollars and expected sold qtys
     D* We just want the money, so it starts in position 6 and ends with 77.
     D*  Its also stored by month (thats why 12) so now we have all $'s for all
     D* months in one place BUD
     D*
     D               E DS                  EXTNAME(BUDGET)
     D  BUD                    6     77P 2
     D                                     DIM(12)

No comments:

Post a Comment