RE: Populating External DS at V5R1.

Not sure if this will work....
Have you tried reading the file directly into the data structure?
You may have to change the EXTNAME to use *INPUT.

Read OBFUPC30 dsBFUC30 ;

-----Original Message-----
From: rpg400-l-bounces@xxxxxxxxxxxx
[mailto:rpg400-l-bounces@xxxxxxxxxxxx] On Behalf Of Robert Rogerson
Sent: Tuesday, April 29, 2008 12:25 PM
To: RPG programming on the AS400 / iSeries
Subject: 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.