email mit java

[muadeep]

so, habe mal mit der QSHELL
und dem Befehl "find * | grep SystemDefault"
nach der Datei "SystemDefault.properties" suchen lassen!
(hoffe der Befehl stimmte so?)

das einzige, was gefunden wurde war dies:
QIBM/ProdData/Java400/SystemDefaultCacheExample.properties

aber die hat ja damit leider nicht's zu tun!

wie sollte denn die SystemDefault.properties" aussehen?
kann/muß ich die nachträglich installieren?
Fehlt mir vieleicht was bestimmtes auf meinem System?
Sollen noch bestimmte Daten/Programme auf der AS400 installiert werden?

[BenderD]

Hallo,

das heißt dass es daran nicht liegt, der default ist ja richtig. Ich wollte nur sicher gehen, dass da nicht irgendwo eine Einstellung umgeknipst wird.
Was kriegst du denn bei dem OS400 Command Java für einen default für
den Parameter CHKPATH angezeigt?
Hast du irgendeinen funktionierenden Java Aufruf aus RPG auf eine kleine Testklasse, oder geht das immer schief?

mfg

Dieter Bender

so, habe mal mit der QSHELL
und dem Befehl "find * | grep SystemDefault"
nach der Datei "SystemDefault.properties" suchen lassen!
(hoffe der Befehl stimmte so?)

das einzige, was gefunden wurde war dies:
QIBM/ProdData/Java400/SystemDefaultCacheExample.properties

aber die hat ja damit leider nicht's zu tun!

wie sollte denn die SystemDefault.properties" aussehen?
kann/muß ich die nachträglich installieren?
Fehlt mir vieleicht was bestimmtes auf meinem System?
Sollen noch bestimmte Daten/Programme auf der AS400 installiert werden?

[muadeep]

also mit dem Command "Java" erhalte ich folgendes

Java-Programm ausführen (JAVA)

Auswahl eingeben und Eingabetaste drücken.

Klassendatei oder JAR-Datei . .

Parameter . . . . . . . . . . . *NONE

+ für weitere Werte

Klassenpfad . . . . . . . . . . *ENVVAR

Zusätzliche Parameter

Sicherh.prüf.stufe Klassenpfad *WARN *WARN, *SECURE, *IGNORE
Weitere ...
F3=Verlassen F4=Bedienerf. F5=Aktualisieren F12=Abbrechen
F13=Verwendung der Anzeige F24=Weitere Tasten


Ich benutze ein Java Programm um mit SQL eine Excelabfrage zu erstellen!
Dieses müßte das Java von Jakarta (POI) benutzen!
Das funkt auf jeden Fall!

Kann dir dazu gerne den RPGLE-Code posten!

[BenderD]

Hallo,

das mit dem default sieht gut aus und der Mechanismus des JVM Starts aus RPG scheint ok zu sein.
Was passiert in deinem Programm mit dem eMail senden denn vorher noch?
in welchem Kontext läuft das Programm? interaktiv oder Batch oder in einem Serverdienst?

mfg

Dieter Bender

also mit dem Command "Java" erhalte ich folgendes

Java-Programm ausführen (JAVA)

Auswahl eingeben und Eingabetaste drücken.

Klassendatei oder JAR-Datei . .

Parameter . . . . . . . . . . . *NONE

+ für weitere Werte

Klassenpfad . . . . . . . . . . *ENVVAR

Zusätzliche Parameter

Sicherh.prüf.stufe Klassenpfad *WARN *WARN, *SECURE, *IGNORE
Weitere ...
F3=Verlassen F4=Bedienerf. F5=Aktualisieren F12=Abbrechen
F13=Verwendung der Anzeige F24=Weitere Tasten


Ich benutze ein Java Programm um mit SQL eine Excelabfrage zu erstellen!
Dieses müßte das Java von Jakarta (POI) benutzen!
Das funkt auf jeden Fall!

Kann dir dazu gerne den RPGLE-Code posten!

[muadeep]

Habe mal versucht in der QSHELL die "JavaMail.java" mit javac umzuwandeln so daß mir die *.class - Datei erstellt wird!
(javac JavaMail.java)

Bekomme dann folgende Fehlermeldungen!
JavaMail.java:7: package javax.mail does not exist
import javax.mail.*;

JavaMail.java:8: package javax.mail.internet does not exist
import javax.mail.internet.*;
^
JavaMail.java:54: cannot resolve symbol
symbol : class Session
location: class JavaMail
Session session = Session.getDefaultInstance(systemProperty, null);
^
JavaMail.java:54: cannot resolve symbol
symbol : variable Session
location: class JavaMail
Session session = Session.getDefaultInstance(systemProperty, null);
:
:
JavaMail.java:88: cannot resolve symbol
symbol : class MessagingException
location: class JavaMail
realException = ((MessagingException)realException).getNextExcepti on();
^
JavaMail.java:92: cannot resolve symbol
symbol : class MessagingException
location: package mail
if (realException instanceof javax.mail.MessagingException)
^
18 errors

hab dann mal nach der "javax.mail" suchen lassen, die ist gar nicht auf meiner AS/400!
genaus wie die "javax.mail.internet"

könnte es veileicht daran liegen?
Fals ja, wo bekomme ich die her und wie muß ich sie installieren!

Im RPGL habe ich folgendes:
H DftActGrp(*NO) ActGrp(*CALLER)
************************************************** ************************
* JavaMail: RPG call Java method to send email *
* *
* 22.03.2004 *
************************************************** ************************
D Class1 C 'JavaMail'
D Class2 C 'JavaMailwithAttachment'

/Copy QRPGLESRC,JAVAMAILPR

D from S 50
D to S 50
D replyTo S 50
D subject S 50
D text S 9999
D filename S 100
D charRtnCode S 3
D rtnCode S 5I 0
D rtnText S 100

D sFrom S O Class(*JAVA:'java.lang.String')
D sTo S O Class(*JAVA:'java.lang.String')
D sReplyTo S O Class(*JAVA:'java.lang.String')
D sSubject S O Class(*JAVA:'java.lang.String')
D sText S O Class(*JAVA:'java.lang.String')
D sFilename S O Class(*JAVA:'java.lang.String')

**
**
C *entry PList
C Parm from
C Parm to
C Parm replyTo
C Parm subject
C Parm text
C Parm filename
C Parm charRtnCode
C Parm rtnText

* Create String objects from the alphanumeric constants
c If from <> ' ' and to <> ' '
C Eval sFrom = newString(%trim(from))
C Eval sTo = newString(%trim(to))

C If replyTo = ' '
C Eval sReplyTo = newString(' ')
C Else
C Eval sReplyTo = newString(%trim(replyTo))
C EndIf

C If subject = ' '
C Eval sSubject = newString(' ')
C Else
C Eval sSubject = newString(%trim(subject))
C EndIf

C If text = ' '
C Eval sText = newString(' ')
C Else
C Eval sText = newString(%trim(text))
C EndIf

C If filename = ' '
C Eval rtnCode = sendMail1(sFrom:sTo:sReplyTo:
C sSubject:sText)
C Else
C Eval sFilename = newString(%trim(filename))
C Eval rtnCode = sendMail2(sFrom:sTo:sReplyTo:
C sSubject:sText:sFilename)
C EndIf

C Else
C Eval rtnCode = 105
C EndIf

C ExSr $setRtnCode

C Eval *InLR = *On
************************************************** **************
* $SetRtnCode: Set return code *
************************************************** **************
C $SetRtnCode BegSr

C Select
C When rtnCode = 0
C Eval rtnText = 'Send mail completed.'
C When rtnCode = 100
C Eval rtnText = 'Email property file not found.'
C When rtnCode = 101
C Eval rtnText = 'javax.mail.MessagingException'
C When rtnCode = 102
C Eval rtnText = 'java.net.ConnectException'
C When rtnCode = 103
C Eval rtnText = 'java.net.UnknownHostException'
C When rtnCode = 104
C Eval rtnText = 'Attachment file not found!'
c When rtnCode = 105
c Eval rtnText = 'Email address not found!'
C When rtnCode = 999
C Eval rtnText = 'Run time error.'

C EndSl

C Move rtnCode charRtnCode

C EndSr