Re: Defining two fields as one.

["Peter Dow (ML)" <maillist@xxxxxxxxxxxxxxx>]

Hi Willie,

From the sound of it you have externally defined the PF.  Does the PF 
have two fields, or one?

For the particular program you're talking about, if the PF has one field 
(lotall), then forget about the two subfields (lot1 and lot2).  If the 
PF has two fields, you can concatentate them in code as lot1 + lot2.  Of 
course the data structure is more efficient than concatenation.

Another solution, that would handle the program you're converting, or 
other programs that use those 3 fields would be to define a logical that 
has them all, for example:

Physical file FILE1
A          R FORMAT1         
A            LOT1           5A
A            LOT2           5A

Logical file FILE1LF
A          R FORMAT1                   PFILE(FILE1)   
A            LOT1                                      
A            LOT2                                      
A            LOTALL                    CONCAT(LOT1 LOT2)

Keep in mind that the order of the fields in the logical file is 
important.  If your program does the following:

   LOT1 = 'ABC';
   LOT2 = 'DEF';
   LOTALL = '1234567890';

what you'll end up with in the physical file is:

   LOT1='12345'
   LOT2='67890'

hth,
*Peter Dow* /
Dow Software Services, Inc.
909 793-9050
pdow@xxxxxxxxxxxxxxx <mailto:pdow@xxxxxxxxxxxxxxx> /




Willie J. Moore wrote:
> I am converting some old RPG programs with internally defined files to RPGIV.
>
> What I have run across is two fields defined as one in the old RPG program.
> Ex:     1       5       lot1
>         6       10      lot2
>         1       10      lotall
> Then lotall is used though out the program.
>
> I know that I can do this with DS (Data Structures). Chain to file then move 
> fields in the DS.  But that seams like a lot of work and extra programming.
>
> I would like to know if there is an easier way to do this that would not 
> require the use of the DS. I would prefer that whenever a chain/read is done on 
> file that lotall is build and ready.
>
> Thanks in advance for the help,
> William Moore
> Cal Fine Wire
>
>
>