RE: Populate a one-field file from a multi-field physical file -- RPG400-L

Thank you, Jeff; I am currently not using this technique, I do, like
Alan suggested, eval-corr between two data structures with the same
field names in order to resolve packed fields from the file and I move
the result to an alpha string in order to populate my flat file.
I thought I can do something here, but it looks like I have to use the
procedure Paul and you suggested.

Florin Todor

-----Original Message-----
From: rpg400-l-bounces@xxxxxxxxxxxx
[mailto:rpg400-l-bounces@xxxxxxxxxxxx] On Behalf Of Jeff Young
Sent: Thursday, September 15, 2011 2:23 PM
To: RPG programming on the IBM i / System i
Subject: Re: Populate a one-field file from a multi-field physical file

When you specify the numeric fields in the "O" specification, be sure to
use
the edit code 'Z' to suppress zeros and give leading blanks.

On Thu, Sep 15, 2011 at 12:21 PM, paul therrien <
paultherrien@xxxxxxxxxxxxxxxxxx> wrote:

Do you want the output data to zero suppress yet keep the same size?

Ex:

000123456.99 as ' bbb123456.99' taking up 12 positions, where b=blank?

do you want 000123456.99 to show up as 123456.99 and only take up 9
positions in the output?
I think you are after the first option so that the numeric values in

each

record are in the same position. In which case you data structure

numeric

values need to be character fields and you need to set them by using

the

editc bif.
But what I really think you want now is an internally defined output

spec.

Do your output to the file as an output spec with all of the numeric
formatting specified in the output spec. In this way you have an F

spec

for
the input file, and F spec for the output file as a program described

file

and a bunch of o specs for the output record fields with the

formatting

specified there. You would only need calcs to set your H01, D01.
You are essentially creating a report as a flat file instead of to

paper.

-----Original Message-----
From: rpg400-l-bounces@xxxxxxxxxxxx

[mailto:rpg400-l-bounces@xxxxxxxxxxxx]

On Behalf Of Florin Todor - YYZ Concord
Sent: Thursday, September 15, 2011 10:33 AM
To: RPG programming on the IBM i / System i
Subject: RE: Populate a one-field file from a multi-field physical

file

When I move the values from the qualified data structure (for the new
table) to an alpha string, I got the numeric values correctly except

they

have leading zeroes.
I was wondering if it's possible to edit somehow those numeric fields
*before* moving to the string (after I know it's possible using the

%editc

BIF but you need to know the exact position of those fields and I

don't

want
that).

Thank you

Florin Todor

-----Original Message-----
From: rpg400-l-bounces@xxxxxxxxxxxx
[mailto:rpg400-l-bounces@xxxxxxxxxxxx] On Behalf Of Alan Campin
Sent: Wednesday, September 14, 2011 1:45 PM
To: RPG programming on the IBM i / System i
Subject: Re: Populate a one-field file from a multi-field physical

file

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)

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

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

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

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

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.

--
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.