Re: PDM Default Options, F18. Where are they stored, how toretrieve them in an RPG program.

The execution generates MCH5601.  The compile generates nothing but
RNF7031 (The name or indicator is not referenced.)

You mentioned in your post with the code that it was only a snippet,
so I don't know if I'm missing anything that would keep it from
running.  Hmmm, was just looking at the messages again, maybe this
would help:

MCH5601: Template value not valid for instruction.
CPF9999: Function check. MCH5601 unmonitored by RTVPDMDFTG at 
          statement 0000000077, instruction X'0000'.
RNQ0202: The call to _FNDINXEN ended in error (C G D F).

The dump doesn't reveal anything to me out of the ordinary, but I can
post it if you think it could help.  

Thanks, Dan

--- Carsten Flensburg <flensburg@novasol.dk> wrote:
> Hello Gary,
> 
> Yes, the code works for me!
> 
> Is it the compilation or the execution of the code that generates
> the MCH5601?
> 
> Best regards,
> Carsten Flensburg
> 
> ----- Original Message ----- 
> From: "Gary Thornton" <gthornton2003@yahoo.com>
> To: "RPG programming on the AS400 / iSeries"
> <rpg400-l@midrange.com>
> Sent: Thursday, January 09, 2003 3:50 PM
> Subject: Re: PDM Default Options, F18. Where are they stored, how
> to retrieve them in an RPG program.
> 
> 
> > --- Carsten Flensburg <flensburg@novasol.dk> wrote:
> > > Hello John,
> > > 
> > > Here's a snippet - based on a similar example written by Gene
> Gaunt
> > > - demonstrating how to get at the PDM defaults.
> > > 
> > > I've just (almost) outlaid the information from first 4 index
> > > entries - using the dmpsysobj option described in other mails
> you
> > > could surely identify the rest of the fields...
> > 
> > Has anyone finished off this code to work?  And be willing to
> share
> > the code?  
> > 
> > Compiling the code as given in Carsten's post generates MCH5601:
> > Message . :   Template value not valid for instruction.
> > Cause . . :   The location of the value is template with an 
> >   offset to field in bytes X'0002', an offset in field in bits
> >   X'0000', a length of field of 2, and an instruction operand
> >   number of 3.  The reason code is X'0000'. If the reason code
> >   is X'0000', a reason code may not be available.


__________________________________________________
Do you Yahoo!?
Yahoo! Mail Plus - Powerful. Affordable. Sign up now.
http://mailplus.yahoo.com