Re: Extname problem

 
 In your scenario I have the following little thing I do:
 
     D RecordDS      E DS                  ExtName(UtlFAQ10P)          
     D SavedData       S                   Like(RecordDS)              
     D NewData         S                   Like(RecordDS)  
 This works perfectly fine for me.  The key is to always use the field names
in the RecordDS, and never use the standalone save-fields except to move
data in and out as needed.  No need to ever reference values in the
standalone fields as their values can hold unreadable data.
 
---------------------------------------------------------
Booth Martin   http://www.MartinVT.com
Booth@xxxxxxxxxxxx
---------------------------------------------------------
 
-------Original Message-------
 
From: RPG programming on the AS400 / iSeries
Date: Sunday, February 16, 2003 12:19:08
To: rpg400-l@xxxxxxxxxxxx
Subject: Extname problem
 
Any ideas on this?
 
Here's what I have:
---
Fslll01A if e k disk 
 
Dslfl01A1 e ds extname(slfl01a) 
Dslfl01A2 S like(slfl01a1) 
 
after a chain:
move SLFL01A1 SLFL01A2
---
 
In slfl01a1 I get the contents of the file.
In slfl01a2 I get garbage in all of the numeric fields that exist in the
file.
 
If I add a prefix to the file or the EDS it gets worse. 
I've also tried inz; inz(*extfmt) and using a pf as the extname ref;
changing the field to a: subfield & a DS.
 
 
What am I doing wrong?
 
Thanks!
Bill