RE: Populating External DS at V5R1.

This is not really what I want.
I want to read a record from the file OBFUPC30 and pass a copy of the data
(dsBFUC30) to a subprocedure. My problem is that after the file is read
dsBFUC30 remains blank (unless I use a field from the record - d3ord).

I remember seeing mention of this in the past but I have been unable to find
it.

Rob R.

-----Original Message-----
From: rpg400-l-bounces@xxxxxxxxxxxx [mailto:rpg400-l-bounces@xxxxxxxxxxxx]
On Behalf Of DeLong, Eric
Sent: April 29, 2008 12:18 PM
To: RPG programming on the AS400 / iSeries
Subject: RE: Populating External DS at V5R1.

If the file object OBFUPC30 has DFT() values specified, you could use
INZ(*EXTDFT) to initialize the fields in the DS to their default values...

Eric DeLong

-----Original Message-----
From: rpg400-l-bounces@xxxxxxxxxxxx
[mailto:rpg400-l-bounces@xxxxxxxxxxxx]On Behalf Of Robert Rogerson
Sent: Tuesday, April 29, 2008 10:47 AM
To: RPG programming on the AS400 / iSeries
Subject: Populating External DS at V5R1.


I have a short test program



FOBFUPC30 IF E K DISK



d dsBFUC30 E DS EXTNAME(OBFUPC30)

d order S Like(d3ord)



/FREE

Read OBFUPC30;

order = d3ord;

*INLR = *ON;

Return;

/END-FREE



If I set a break point at *INLR = *ON the only field populated in dsBFUC30
is d3ord.

Only by using the field in the C specs is it populated.

My question is, at V5R1 is there another way to populate all the remaining
fields of dsBUFC30 without using the fields in the C specs?



Thanks in advance,



Rob R.