Re: Convert an MI program to RPG

M
Hello Bill,

I think I've found your problem ... 

>  INTOBJTYPE          CHAR(4)              '    '           '19114040'X

should be X'00001911'  The C function will interpret this as a BIN(4) which is 
a number.  
I know I declared it as CHAR but that was just to simplify the code.  What I 
passed in 
when I called the program to test it was:

PGM                                                          
                                                             
DCL &LIBNAME *CHAR 10 'SHC'                                  
DCL &OBJNAME *CHAR 10 'TESTMI'                               
DCL &OBJTYPE *CHAR 4 X'00000201'                             
DCL &RTNCDE *CHAR 1                                          
DCL &S@@@@@ *CHAR 8 /* FORCE 16-BYTE BOUNDARY ALIGNMENT */   
DCL &SPCPTR *CHAR 16                                         
                                                             
CHGVAR &S@@@@@ &S@@@@@                                       
CALL TESTMI (&LIBNAME &OBJNAME &OBJTYPE &SPCPTR &RTNCDE)     
                                                             
ENDPGM                                                       

Note the &OBJTYPE parameter.  Told you it was the template for operand 2 :)

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