Re: EXTNAME ( MyDSPF : MyFormat )

I have a program that is doing this on V5R4 as follows:

fdspfile cf E workstn

d screenDS e ds extname(dspfile:screenc:*input)



The exfmt to screenc loads the data structure. It is very similar to the
use of a DS on a file. Reading the file loads the DS.

fpffile uf E K DISK

d mstrDS e ds extname(pffile)



Gene

On Tue, Nov 17, 2009 at 8:13 AM, David FOXWELL <David.FOXWELL@xxxxxxxxx>wrote:

Hi, all.

I just added a DS to a procedure with the idea that it would be populated
automatically when the user enters data. In the record MyFormat is one zoned
decimal field, all the rest are character fields.
At the EXFMT MyDSPF, I get MCH1202.

The code is basically this :
D MyDS E DS EXTNAME ( MyDSPF : MyFormat:*INPUT )

/FREE
MyNumField = 0;
EXFMT MyFormat;

While debugging, there seems to be confusion between MyNumField of MyDS and
MyNumField of MyDSPF. If I do EVAL MyNumField at the EXFMT, I see that
MyNumFld = 0. If I step into the EXFMT, and then type EVAL MyNumField, I
then see that MyNumFld = blank. I've tried INZ on the MyDS declaration and
also CLEAR MyDS.

What am I doing wrong? Is there a better way?

In the DSPF there are many many field names that occur in different record
formats.
For that reason, I wanted to store the contents of MyFormat in a global
qualified DS.



Thanks



--
This is the RPG programming on the IBM i / System i (RPG400-L) mailing list
To post a message email: RPG400-L@xxxxxxxxxxxx
To subscribe, unsubscribe, or change list options,
visit: http://lists.midrange.com/mailman/listinfo/rpg400-l
or email: RPG400-L-request@xxxxxxxxxxxx
Before posting, please take a moment to review the archives
at http://archive.midrange.com/rpg400-l.