Re: [MI400] Error accessing pdm default space

[Bobby.Hicks@xxxxxxxxxxxxxxxx]

My code did have a SETSPPFP following the RSLVSP. It reads:

/*--Point to beginning of associated space     */
  SETSPPFP        .Profile_Data,.ProfileDfn;


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 09:03 AM
                      Please respond to
                      mi400






From: Leif Svalgaard <leif@leif.org>
> From: <Bobby.Hicks@ccc-michigan.com>
> > The error is on the RSLSVP instruction.  Basically I wanted to get PDM
> > option defaults.    The code is as follows:
> >   CPYBLA           Object_Type,X'0EC4';
> >   CPYBLAP          Object_Name,Profile,' ';
> >   RSLVSP          .ProfileDfn,Object,.Library,*;
> you are resolving a SYSTEM pointer, not a SPACE pointer, so you
> need to have an extra step to get a space pointer from the system
> pointer. I just tried your little snippet and get: "cannot resolve to
> <profile>".

as Gene points out you must follow the RSLVSP by a SETSPPFP
to get a space pointer from the system pointer. The error must be
on that instruction not the RSLVP.

_______________________________________________
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.