Re: Convert an MI program to RPG

["Simon Coulter" <shc@xxxxxxxxxxxxxxxxx>]

M
Hello Bill,

You wrote:
>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:

You will break the code without the NULL.  The C function being used REQUIRES a 
NULL_terminator for both the 2nd and 3rd parameters.

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

>  INTOBJTYPE          CHAR(2)              '  '             '1911'X

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

You changed the size of the INTOBJTYPE field.  It must be 4-bytes because C is 
expecting 
an integer.  The C function sees your 2 bytes and whatever 2-bytes follow.  It 
then 
converts that 4-byte value into the 2-byte value expected by the MI instruction.

>Any ideas?

See my earlier response where I explain what I think the problem really is.

Regards,
Simon Coulter.

«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»
«» FlyByNight Software         AS/400 Technical Specialists       «»
«» Eclipse the competition - run your business on an IBM AS/400.  «»
«»                                                                «»
«» Phone: +61 3 9419 0175      Mobile: +61 0411 091 400           «»
«» Fax:   +61 3 9419 0175      mailto: shc@flybynight.com.au      «»
«»                                                                «»
«» Windoze should not be open at Warp speed.                      «»
«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»
+---
| 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
+---