RE: Convert an MI program to RPG

["Richard Jackson" <richardjackson@xxxxxxxxxxxxxxxxxx>]

I might observe that the character string names in INTOBJNAME and INTLIBNAME
are null-terminated and that the INTOBJTYPE is blank filled.  In the
context, the names are certain not to have any hex zeros in them so these
names won't find a hit in the context.  I always set the type field to hex
zeros before stuffing in the type and subtype.  I suppose that POINTER is
valid for the return value but I always used SYSPTR for those.

Richard Jackson
mailto:richardjackson@richardjackson.net
www.richardjacksonltd.com
Voice: 1 (303) 808-8058
Fax:   1 (303) 663-4325

-----Original Message-----
From: owner-mi400@midrange.com [mailto:owner-mi400@midrange.com]On
Behalf Of Leif Svalgaard
Sent: Tuesday, July 18, 2000 11:17 AM
To: MI400@midrange.com
Subject: Re: Convert an MI program to RPG



----- Original Message -----
From: Bill <bubbzbill@yahoo.com>
To: <MI400@midrange.com>
Sent: Tuesday, July 18, 2000 10:07 AM
Subject: Re: Convert an MI program to RPG


> Well, OK, I'll stay public with this.  Yes, you are correct, the problem
is
> in the RslvSP call.  Here is the dump:
>
>  @OBJ                  POINTER              SPP:*NULL
>  LIBNAME               CHAR(10)             'QUERYLIB  '
> 'D8E4C5D9E8D3C9C24040'X
>  OBJNAME               CHAR(10)             'SDBOOKCOS '
> 'E2C4C2D6D6D2C3D6E240'X
>  OBJTYPE               CHAR(2)              '  '             '1911'X
>  RSLVOBJ_T             DS
>    INTLIBNAME          CHAR(31)             'QUERYLIB
> '
>                        VALUE IN HEX
> 'D8E4C5D9E8D3C9C20040404040404040404040404040404040404040404040'X
>    INTOBJNAME          CHAR(31)             'SDBOOKCOS
> '
>                        VALUE IN HEX
> 'E2C4C2D6D6D2C3D6E200404040404040404040404040404040404040404040'X
>    INTOBJTYPE          CHAR(4)              '    '           '19114040'X
>    REQAUTH             CHAR(4)              '    '           '00000000'X
>  RTNCODE               CHAR(1)              '1'              'F1'X
>  SPCPTR                POINTER              SPP:*NULL
>
> As I look at the dump, I see everything is aligned as I would expect them
to
> be.

the names should be padded with x'40'. You have a x'00' in there .


+---
| 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
+---

+---
| 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
+---