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

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.