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

Got it! Thank you, Paul...

... and you were right, I was looking for the first option where the
numeric values are in the same position for each record...

Florin Todor

-----Original Message-----
From: rpg400-l-bounces@xxxxxxxxxxxx
[mailto:rpg400-l-bounces@xxxxxxxxxxxx] On Behalf Of paul therrien
Sent: Thursday, September 15, 2011 12:22 PM
To: 'RPG programming on the IBM i / System i'
Subject: RE: Populate a one-field file from a multi-field physical file

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?
Or
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

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.

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