Re: [MI400] Error accessing pdm default space

[Bobby.Hicks@xxxxxxxxxxxxxxxx]

The error is on the RSLSVP instruction.  Basically I wanted to get PDM
option defaults.    The code is as follows:

/*--Resolve pointers to library and query definition.
  CPYBLA           Object_Type,X'0401';
  CPYBLAP          Object_Name,Library,' ';
  RSLVSP          .Library,Object,*,*;

  CPYBLA           Object_Type,X'0EC4';
  CPYBLAP          Object_Name,Profile,' ';
  RSLVSP          .ProfileDfn,Object,.Library,*;

I commented out the error monitor: /*DCL  EXCM       * EXCID(H'0000') BP
(@EXIT);*/

I don't know the structure, so i am just retrieving a block of data and
testing it to see where certain things are.   I am going to take the
pointer returned and use it to move a chunk of data into a data variable
32000 bytes in length and return it to my test program.

Bobby.

Robert Hicks
Combinatorics Consulting Company
Tel.: (248) 347 - 7222, ext. 222
Fax: (248) 347 - 7227
Email:  Robert.Hicks@ccc-michigan.com





                      "Leif Svalgaard"
                      <leif@leif.org>          To:       <mi400@midrange.com>
                      Sent by:                 cc:
                      mi400-admin@midra        Subject:  Re: [MI400] Error 
accessing pdm default space
                      nge.com


                      07/03/02 08:13 AM
                      Please respond to
                      mi400






From: <Bobby.Hicks@ccc-michigan.com>

> I am getting the following error when resolving a pointer to the pdm
> defaults for a user profile (object type 0EC4)
>
> Tried to address a space in object that does not contain a space.
>

more details please. Is the error on the RSLVSP instruction?
what do you do with the pointer, etc...


_______________________________________________
This is the MI Programming on the AS400 / iSeries (MI400) mailing list
To post a message email: MI400@midrange.com
To subscribe, unsubscribe, or change list options,
visit: http://lists.midrange.com/cgi-bin/listinfo/mi400
or email: MI400-request@midrange.com
Before posting, please take a moment to review the archives
at http://archive.midrange.com/mi400.