Re: EXTNAME ( MyDSPF : MyFormat )

[Gene Burns <burns.gene@xxxxxxxxx>]

Yes, the DS is declared globally.


Gene

On Wed, Nov 18, 2009 at 7:01 AM, David FOXWELL <David.FOXWELL@xxxxxxxxx>wrote:

> Gene,
>
> Is your DS global? I think it might crash if declared locally and with
> numeric fields in your DSPF.
>
> > -----Message d'origine-----
> > De : rpg400-l-bounces@xxxxxxxxxxxx
> > [mailto:rpg400-l-bounces@xxxxxxxxxxxx] De la part de Gene Burns
> > Envoyé : mardi 17 novembre 2009 16:21
> > À : RPG programming on the IBM i / System i
> > Objet : 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.
> > >
> > --
> > 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.
> --
> 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.