RE: Display -- RPG400-L

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   

-----Original Message-----
From: Booth Martin [mailto:Booth@xxxxxxxxxxxx] 
Sent: Monday, January 26, 2004 10:30 AM
To: rpg400-l@xxxxxxxxxxxx
Subject: Re: Display

You have a limit of 8 pieces and 4 columns?  This is a max of 32 fields
on
the screen at one time if I understand the issue.

I'd probably define a data structure of an array of 8 elements, 79 long.

Then I would define 4 subfields of18 characters long, overlaying the
array. 
I'd probably space the fields in the array by 1 so I could eval the
array
element into a 79 character output field for the screen (I doubt that I
would use a subile as there are never more than 8 elements).  

Filling the char fields is no problem.  Use %editC(field:'N') to format
the
numeric fields nicely.
 
 
 
---------------------------------------------------------
Booth Martin   http://www.MartinVT.com
Booth@xxxxxxxxxxxx
---------------------------------------------------------
 
-------Original Message-------
 
From: RPG programming on the AS400 / iSeries
Date: 01/26/04 07:17:48
To: rpg400-l@xxxxxxxxxxxx
Subject: Display
 
I have a very simple request however I think I am looking at this in a
very cumbersome program and am hoping someone out there has done this in
a 'slick' way.
 
I want to display data in a column format for upto 8 pieces of info.
Like a subfile but each piece in the subfile could be different type of
info (some character, some numeric.)   I don't want to have to define
each piece of info as its own individual name and move from the file to
all these hardcoded fields.
 
 
Ie.
 
RecipeName          RecipeName          RecipeName         RecipeName
 
Ingredient1             Ingredient1             Ingredient1
Ingredient1
Ingredient2              Ingredient2            Ingredient2
Ingredient2
SpecInstruction1     SpecInstruction1   SpecInstruction1
SpecInstruction1
 .
.
.
.
 
 
 
Each Read on the file will fill one of these columns.
 
Thanks!
 
 
 
Angela Wawrzaszek
Programmer/Analyst
Nucor Steel Auburn
wawrzaszek@xxxxxxxxxxxxxxx
(315) 258-4205
_______________________________________________
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.