Re: Populate a one-field file from a multi-field physical file

[Alan Campin <alan0307d@xxxxxxxxx>]

What I hear you saying is that the format of the two files is not the same
so you have something like this:

File1 (DDS described)

Field1  5p 2
Field2  7p 2
Field3 50a

File 2 (Single field)

Field1  3a   (H01 or D01)
Field2  5s 2
Field3  7s 2
Field4 50a

If yes, then

1. Define a qualified data structure for the new table.

d dsFile1...
d                    ds                   Qualified
d  FieldType...
d                                        3a
d  Field1...
d                                        5s 2
d  Field2...
d                                        7s 2
d  Field3...
d                                       50a

2. Read the record into an externally defined data structure.

3. Use a eval corresponding to move the data.

eval-corr dsFile1 = FileIn.

Is this what you are talking about?

On Wed, Sep 14, 2011 at 10:56 AM, Florin Todor - YYZ Concord <
ftodor@xxxxxxxxxxxxxxxx> wrote:

> Paul (and Rory)
>
> The CPY command would work fine except that I have many packed fields in
> the input file; plus, on the first three positions on the output record
> I have to hardcode the record type ('H01' - Header, 'D01' - Detail)
> (I simply forgot to mention this in my OP - sorry for that)
>
>
> Thank you
>
>
> Florin Todor
>
>
>
>
> -----Original Message-----
> From: rpg400-l-bounces@xxxxxxxxxxxx
> [mailto:rpg400-l-bounces@xxxxxxxxxxxx] On Behalf Of Morgan, Paul
> Sent: Wednesday, September 14, 2011 12:07 PM
> To: RPG programming on the IBM i / System i
> Subject: RE: Populate a one-field file from a multi-field physical file
>
> Florin,
>
> Use a program defined file for the 50 field file.  Alternatively you
> could just use CPYF with FMTOPT(*NOCHK).
>
> Paul Morgan
>
> Principal Programmer Analyst
> IT Supply Chain/Replenishment
>
> -----Original Message-----
> From: rpg400-l-bounces@xxxxxxxxxxxx
> [mailto:rpg400-l-bounces@xxxxxxxxxxxx] On Behalf Of Florin Todor - YYZ
> Concord
> Sent: Wednesday, September 14, 2011 10:32 AM
> To: rpg400-l@xxxxxxxxxxxx
> Subject: Populate a one-field file from a multi-field physical file
>
> Hello all,
>
>
>
> I have this situation: a physical file having, let's say, 50 fields and
> another file having one-field of 2000 characters long; I would like to
> move the entire record from the first file to the second one...
>
> Obviously, this could be accomplished using %subst BIF but I could bet
> 100 bucks there is a better and simpler way (I've tried something with
> data structures but I couldn't make it work).
>
> Any suggestion would be appreciated.
>
>
>
>
>
> Thank you
>
>
>
>
>
> Florin Todor
>
>
>
>
>
>
>
>
>
> --
> This is the RPG programming on the IBM i / System i (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.
>
>
> --
> This is the RPG programming on the IBM i / System i (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.
>
> --
> This is the RPG programming on the IBM i / System i (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.