Re: Convert an MI program to RPG

["Leif Svalgaard" <leif@xxxxxxxx>]

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