|
In this case you might consider defining 9 Data Structures with EXTNAME(InputFile). Data Structure 2 thru 9 would have Prefix(xx). The prefix xx would be "A_" thru "H_". Name the fields on the screen with the prefixed names and use REF or REFFLD to define the fields. As each record is read you can eval DataStructure1 into the next one of the remaining 8 data structures. Once the 8 records are read you are ready to do the EXFMT as all of the fields are already populated. No moving or %BIFS would be needed. --------------------------------------------------------- Booth Martin http://www.MartinVT.com Booth@xxxxxxxxxxxx --------------------------------------------------------- -------Original Message------- From: RPG programming on the AS400 / iSeries Date: 01/26/04 12:03:28 To: RPG programming on the AS400 / iSeries Subject: RE: Display This is my actual display. I have each field currently defined separately. Column 1 the fields are A1-A21 Column2 the fields are B1-B21 etc. Each column represents a record on the file. I am currently reading the file moving the data to the names on the display, read the next record move to the 'B' fields, next record to the 'C' fields etc. Once all columns are populated I do an exfmt. This is okay, I just thought there might be an easier way to do this. MELT SHOP DAILY HEAT DETAIL CMD 3-Exit Team OO OO OO OO OO OO OO Heat # OOOOO OOOOO OOOOO OOOOO OOOOO OOOOO OOOOO Grade OOO OOO OOO OOO OOO OOO OOO Operator OOO OOO OOO OOO OOO OOO OOO KWH 66666 66666 66666 66666 66666 66666 66666 Gas 6666 6666 6666 6666 6666 6666 6666 O2 666666 666666 666666 666666 666666 666666 66666 Inj. Carb 666.66 666.66 666.66 666.66 666.66 666.66 666.66 Coal 666666 666666 666666 666666 666666 666666 666666 Tires 66666 66666 66666 66666 66666 66666 66666 Shred Tires 66666 66666 66666 66666 66666 66666 66666 Tires on Rims 66666 66666 66666 66666 66666 66666 66666 TTL Energy Cost 666666 666666 666666 666666 666666 666666 666666 SiMn 6666 6666 6666 6666 6666 6666 6666 FeSi 6666 6666 6666 6666 6666 6666 6666 Moly 6666 6666 6666 6666 6666 6666 6666 Cr 6666 6666 6666 6666 6666 6666 6666 FeV 6666 6666 6666 6666 6666 6666 6666 Feal 6666 6666 6666 6666 6666 6666 6666 Lime 66666 66666 66666 66666 66666 66666 66666 Dolag 66666 66666 66666 66666 66666 66666 66666
As an Amazon Associate we earn from qualifying purchases.
This mailing list archive is Copyright 1997-2024 by midrange.com and David Gibbs as a compilation work. Use of the archive is restricted to research of a business or technical nature. Any other uses are prohibited. Full details are available on our policy page. If you have questions about this, please contact [javascript protected email address].
Operating expenses for this site are earned using the Amazon Associate program and Google Adsense.