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