Re: EXTNAME ( MyDSPF : MyFormat )

[Gene Burns <burns.gene@xxxxxxxxx>]

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.