× The internal search function is temporarily non-functional. The current search engine is no longer viable and we are researching alternatives.
As a stop gap measure, we are using Google's custom search engine service.
If you know of an easy to use, open source, search engine ... please contact support@midrange.com.



Hi! - I am getting an error when calling a java program from RPG

 

The Java Virtual Machine has ended.                                   

Function check. MCH74A5 unmonitored by QJVAJNI at statement 0000002959

  instruction X'0000'.                                                

Pointer not set for location referenced.                              

Internal failure in compiler or subroutine.                           

Application error.  RNX9998 unmonitored by SENDEMAIL at statement *N, 

  instruction X'0000'.                                                

 

Code looks like this:

main            PR                  EXTPROC(*JAVA                     

                                     : 'com.tsi.email.SimpleSendEmail' 

                                     : 'main')                         

                                     STATIC                            

                                 O   class(*JAVA:'java.lang.String')   

                                     CONST                             

                                     Dim(4)                            

                                     Options(*varSize)                 

 newString       PR              O   EXTPROC(*JAVA:                    

                                     'java.lang.String':               

                                     *CONSTRUCTOR)                     

                              100A   CONST VARYING                     

 args            S                   like(newstring)                   

                                     Dim(4)                            

                                                                       

/free                                                                  

 args(1) = newString('robglasener@xxxxxxxxxxxxx');                     

 args(2) =  newString('rglasener@xxxxxxxxxxxxxxxx');                   

args(3) = newString('Important Message from AS/400');            

args(4) = newString('Here is a sample message from the AS/400'); 

main(args);                                                      

return;                                                          

                                                                 

*INLR = *ON;                                                     

/end-free                       

 

I am thinking that it has something to do the way I have the args array
setup. Any help would be greatly appreciated. Thanks



As an Amazon Associate we earn from qualifying purchases.

This thread ...


Follow On AppleNews
Return to Archive home page | Return to MIDRANGE.COM home page

This mailing list archive is Copyright 1997-2024 by midrange.com and David Gibbs as a compilation work. Use of the archive is restricted to research of a business or technical nature. Any other uses are prohibited. Full details are available on our policy page. If you have questions about this, please contact [javascript protected email address].

Operating expenses for this site are earned using the Amazon Associate program and Google Adsense.