Re: Convert an MI program to RPG

["Bill" <bubbzbill@xxxxxxxxx>]

Leif and Richard, thanks.  The original program from Simon specified
appending the null char after the trimmed names.  It seems to work better
leaving off the null, but I have a new problem:

Message . . . . :   Cannot resolve to object SDBOOKCOS. Type and Subtype
  X'0FFF' Authority X'0000'.

@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
'D8E4C5D9E8D3C9C24040404040404040404040404040404040404040404040'X
  INTOBJNAME          CHAR(31)             'SDBOOKCOS                      '
                      VALUE IN HEX
'E2C4C2D6D6D2C3D6E240404040404040404040404040404040404040404040'X
  INTOBJTYPE          CHAR(2)              '  '             '1911'X
  REQAUTH             CHAR(2)              '  '             '0000'X
RTNCODE               CHAR(1)              '1'              'F1'X
SPCPTR                POINTER              SPP:*NULL

As you can see, objtype=X'1911', but the msg says it's looking for type
'0fff'.

As a reminder here is the call to rslvsp:
C                   Eval      @obj       = RSLVSP( intObjType :
C                                                  intObjName :
C                                                  intLibName :
C                                                  reqAuth     )

Any ideas?

Bill


__________________________________________________
Do You Yahoo!?
Talk to your friends online with Yahoo! Messenger.
http://im.yahoo.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
+---