Re: Resolving to QTEMP + Template Mappings.

["Leif Svalgaard" <leif@xxxxxxxx>]

>
> I have attempted to convert this into RPG MI Builtins using _RSLVSP2 to
resolve
> to the context first then _RSLVSP4 to resolve to the object. The _SYP
variables
> are declared as pointers and LibParm and ObjParm hold the object and
library
> names to resolve to.
>
>
>    c                   callp     rslvsp2(ctx_SYP : x'0401' + LibParm +
>    Resolve to Context
>    c                             '                    ' + x'0000')
>    (i.e. Library)
>    c                   callp     rslvsp4(obj_SYP : x'0201' + ObjParm +
>    Resolve to Object
>    c                             '                    ' + x'0100' :
ctx_SYP)
>
>
> The RPG works fine for rslvsp2 for a permanent object context (i.e. QSYS,
QGPL)
> but when I try QTEMP, I get the following errror:
>
>    Cannot resolve to object QTEMP. Type and Subtype X'0401' Authority
X'0000'.
> Does anyone have an idea what I'm doing wrong? I have also tried different
> authority types but get the same error.
>
> The only alternative I can think of to get QTEMP is to find the PCO (using
> PCOPTR, get the SEPT and then offset 65 to find the address of QTEMP). But
I'm
> not sure if this will change to point to a job QTEMP if I service another
job
> via STRSRVJOB.

QTEMP really does not have the name QTEMP, but a 30-character internal
name. I haven't tried what RPG does, but my guess is that you a passing the
10-character
name QTEMP.

The PCO method should work. About the other job, you have to have the PCO
for the other job.



+---
| This is the MI Programmers Mailing List!
| To submit a new message, send your mail to MI400@midrange.com.
| To subscribe to this list send email to MI400-SUB@midrange.com.
| To unsubscribe from this list send email to MI400-UNSUB@midrange.com.
| Questions should be directed to the list owner/operator: dr2@cssas400.com
+---