RE: Ext File to non-Ext file

Hmm, I know that I've done something like that before, but I see this
won't work. However, you should be able to handle this with a DS...

Fpgpcomp if e k disk

D g_Data E DS Qualified
D EXTNAME(pgpcomp:pgpcompr:*input)
D RawImg 52a overlay(g_data:1)

/free
chain 'abc123' pgpcomp g_data;
dsply g_Data.RawImg;
*InLR = *On;
/end-free

Hth,
-Eric DeLong

-----Original Message-----
From: rpg400-l-bounces@xxxxxxxxxxxx
[mailto:rpg400-l-bounces@xxxxxxxxxxxx] On Behalf Of Buddy McClean
Sent: Monday, March 08, 2010 9:39 AM
To: rpg400-l@xxxxxxxxxxxx
Subject: RE: Ext File to non-Ext file

Thanks Eric
If I try an Eval - Error - right and left don't match.
If I try a Move - Factor 2 (the ext record format name ) is not valid
for the operation.

Should the output field be something other than a plain 128A if the ext
format is 128

EDeLong@xxxxxxxxxxxxxxx 3/5/2010 4:48:58 PM >>>

If you're looking for an exact image of the existing record format (all
packed decimal values remain packed), just copy the record format name
to your output field...

-Eric

-----Original Message-----
From: rpg400-l-bounces@xxxxxxxxxxxx
[mailto:rpg400-l-bounces@xxxxxxxxxxxx] On Behalf Of Buddy McClean
Sent: Friday, March 05, 2010 3:52 PM
To: rpg400-l@xxxxxxxxxxxx
Subject: Ext File to non-Ext file

It's been a while since I have had to deal with this.

If I input an externally described file and want to write out the entire
record to a program described file, what is a good way to do that.

With 2 program described files, I just code a field for 1-256 REC and
write out REC as the only output field. Without 'REC', what is the
easiest way to get all the fields from the Ext-described file to the
prog-described file, without referencing all the fields.

I suspect it's pretty obvious and I'll feel stupid, but thought I would
ask.