|
midrange.com
Hi Albert,
just make an override to STDOUT
OVRDBF FILE(STDOUT) TOFILE(QTEMP/QSHO)
see my sample.
Stefan
mit freundlichen Gru?en,
Stefan Lorei,
BYK-Chemie GmbH,
D - 46462 Wesel, Abelstra?e 45
DV-Abteilung
Telefon: +049 281 670 451
Fax: +049 281 670 9451
5769PW1 V4R4M0 990521 SEU-QUELLENLISTE
19.06.02 14:21:47 S. 1
QUELLENDATEI . . . . . . P03SBYK/QCLSRC
TEILDATEI . . . . . . . . MAILATC1
SEQNBR*...+... 1 ...+... 2 ...+... 3 ...+... 4 ...+... 5 ...+... 6 ...+...
7 ...+... 8 ...+... 9 ...+... 0
100 /* Programmname MAILATC1
*/ 04.03.02
200 /* Programmart CLP
*/ 27.12.00
300 /* Bezeichnung Versenden eMail mit Anhang (opt.)
*/ 01.03.02
400 /*
*/ 01.03.02
500 /*
*/ 01.03.02
600 /* Programmierer Stefan Lorei
*/ 06.04.01
700 /* Erstellungsdatum 01.03.2002
*/ 01.03.02
800 /* Anderungsdatum
*/ 27.12.00
900 /*
*/ 27.12.00
1000 /* Kurzbeschreibung:
*/ 27.12.00
1100 /*
*/ 28.12.00
1200 /*
*/ 28.12.00
1300 /*
*/ 28.12.00
1400 /* Copyright (C) 2002
*/ 01.02.02
1500 /* Stefan Lorei
*/ 06.04.01
1600 /* -----------------------------------------------------------
*/ 27.12.00
1700 PGM PARM(&MENP &VON &AN &BETREFF &NACHRICHT +
04.03.02
1800 &DATEI &LOESCH)
04.03.02
1900 /* PGM PARM(&MENP) */
01.03.02
2000
27.12.00
2100 /* Definition Programmparameter
*/ 05.04.01
2200 /* Menuzeilenparameter
*/ 05.04.01
2300 DCL VAR(&MENP) TYPE(*CHAR) LEN(63) /* +
05.04.01
2400 Menuzeilenparameter, Mand/SB */
06.02.01
2500
27.12.00
2600 /* Programmvariablen
*/ 27.12.00
2700 /* String fur diverse Sachen
*/ 05.03.02
2800 DCL VAR(&STRING) TYPE(*CHAR) LEN(100)
05.03.02
2900 /* eMail Absender
*/ 05.03.02
3000 DCL VAR(&VON) TYPE(*CHAR) LEN(50)
05.03.02
3100 /* eMail Empfanger
*/ 01.03.02
3200 DCL VAR(&AN) TYPE(*CHAR) LEN(50)
01.03.02
3300 /* Betreff-Zeile
*/ 01.03.02
3400 DCL VAR(&BETREFF) TYPE(*CHAR) LEN(200)
01.03.02
3500 /* Nachricht
*/ 01.03.02
3600 DCL VAR(&NACHRICHT) TYPE(*CHAR) LEN(1000)
01.03.02
3700 /* Dateiname (Attachment)
*/ 01.03.02
5769PW1 V4R4M0 990521 SEU-QUELLENLISTE
19.06.02 14:21:47 S. 2
QUELLENDATEI . . . . . . P03SBYK/QCLSRC
TEILDATEI . . . . . . . . MAILATC1
SEQNBR*...+... 1 ...+... 2 ...+... 3 ...+... 4 ...+... 5 ...+... 6 ...+...
7 ...+... 8 ...+... 9 ...+... 0
3800 DCL VAR(&DATEI) TYPE(*CHAR) LEN(200)
01.03.02
3900 /* Option loschen Attachment nach dem Versenden J/N
*/ 04.03.02
4000 DCL VAR(&LOESCH) TYPE(*CHAR) LEN(1)
04.03.02
4100
01.03.02
4200 /* Max 512 Zeichen fur &MSG !!!
*/ 04.03.02
4300 DCL VAR(&MSG) TYPE(*CHAR) LEN(512)
01.02.02
4400
05.04.01
4500 /* Java-Klassenpfad (max 1024)
*/ 05.04.01
4600 DCL VAR(&CLASSP) TYPE(*CHAR) LEN(1000)
05.04.01
4700 /* HOME-Verzeichnis (max 1024)
*/ 05.04.01
4800 DCL VAR(&HOME) TYPE(*CHAR) LEN(1000)
05.04.01
4900 /* String fur QSH-Aufruf
*/ 04.03.02
5000 DCL VAR(&QSHS) TYPE(*CHAR) LEN(1000)
04.03.02
5100 /* Anzahl Fehler in Fehlerdatei
*/ 05.03.02
5200 DCL VAR(&COUNT) TYPE(*DEC) LEN(3) VALUE(0)
17.05.02
5300
05.04.01
5400 /* Variablen fur Nachrichtenbehandlung, STANDARD
*/ 05.04.01
5500 DCL VAR(&MSGDTA) TYPE(*CHAR) LEN(100)
05.04.01
5600 DCL VAR(&MSGID) TYPE(*CHAR) LEN(7)
05.04.01
5700 DCL VAR(&MSGF) TYPE(*CHAR) LEN(10)
05.04.01
5800 DCL VAR(&MSGFLIB) TYPE(*CHAR) LEN(10)
05.04.01
5900 DCL VAR(&MSGSWITCH) TYPE(*CHAR) LEN(1)
VALUE('0') 05.04.01
6000
05.03.02
6100 /* QSHO als Eingabedatei definieren */
05.03.02
6200 DCLF FILE(*LIBL/QSHO)
05.03.02
6300
05.04.01
6400 /* -----------------------------------------------------------
*/ 05.04.01
6500 MONMSG MSGID(CPF0000) EXEC(GOTO CMDLBL(ABNORMAL))
05.04.01
6600 /* -----------------------------------------------------------
*/ 05.04.01
6700
05.03.02
6800 /* Datei fur Statusnachrichten von QSH nach QTEMP
*/ 05.03.02
6900 CHKOBJ OBJ(QTEMP/QSHO) OBJTYPE(*FILE)
05.03.02
7000 MONMSG MSGID(CPF9801) EXEC(DO)
05.03.02
7100 /* Datei nicht gefunden, kopieren aus Muster
*/ 05.03.02
7200 CPYF FROMFILE(P03TBYK/QSHO) TOFILE(QTEMP/QSHO) +
05.03.02
7300 CRTFILE(*YES)
05.03.02
7400 ENDDO
05.03.02
5769PW1 V4R4M0 990521 SEU-QUELLENLISTE
19.06.02 14:21:47 S. 3
QUELLENDATEI . . . . . . P03SBYK/QCLSRC
TEILDATEI . . . . . . . . MAILATC1
SEQNBR*...+... 1 ...+... 2 ...+... 3 ...+... 4 ...+... 5 ...+... 6 ...+...
7 ...+... 8 ...+... 9 ...+... 0
7500 CLRPFM FILE(QTEMP/QSHO)
05.03.02
7600 MONMSG MSGID(CPF0000)
05.03.02
7700 /* QSHO enthalt die Ruckgabedaten von QSH */
05.03.02
7800 OVRDBF FILE(STDOUT) TOFILE(QTEMP/QSHO)
17.05.02
7900
05.04.01
8000 /* -----------------------------------------------------------
*/ 05.04.01
8100 /* Ubernehmen Werte aus Eingangsparameter
*/ 06.04.01
8200
28.12.00
8300 /* Java-Klassenpfad CLASSPATH setzen:
*/ 15.01.01
8400 CHGVAR VAR(&CLASSP) +
28.02.01
8500
VALUE('.:/JavaByk:/JavaByk/jt400/lib/jt400.+
28.02.01
8600
jar:/JavaByk/jsdk2.1/server.jar:/JavaByk/js+
28.02.01
8700
dk2.1/servlet.jar:/JavaByk/F1Java/F1J8Swing+
28.02.01
8800
.jar:/JavaByk/F1Java/xalan.jar:/JavaByk/F1J+
28.02.01
8900 ava/xerecs.jar+
01.03.02
9000 :/JavaByk/jaf-1.0.1/activation.jar+
01.03.02
9100 :/JavaByk/javamail-1.2/imap.jar+
01.03.02
9200 :/JavaByk/javamail-1.2/mail.jar+
01.03.02
9300 :/JavaByk/javamail-1.2/mailapi.jar+
01.03.02
9400 :/JavaByk/javamail-1.2/pop3.jar+
01.03.02
9500 :/JavaByk/javamail-1.2/smtp.jar+
01.03.02
9600 ')
01.03.02
9700 ADDENVVAR ENVVAR(CLASSPATH) VALUE(&CLASSP)
28.02.01
9800 MONMSG MSGID(CPFA980) EXEC(DO) /* Umgebungsvariable
+ 28.02.01
9900 bereits vorhanden */
28.02.01
10000 CHGENVVAR ENVVAR(CLASSPATH) VALUE(&CLASSP)
28.02.01
10100 ENDDO
28.02.01
10200
01.03.02
10300 /* Home-Verzeichnis definieren, damit z.B. Datei DATABASE.INI
*/ 28.02.01
10400 /* gefunden wird.
*/ 28.02.01
10500 CHGVAR VAR(&HOME) VALUE('/JavaByk')
28.02.01
10600 ADDENVVAR ENVVAR(HOME) VALUE(&HOME)
28.02.01
10700 MONMSG MSGID(CPFA980) EXEC(DO) /* Umgebungsvariable
+ 15.01.01
10800 bereits vorhanden */
15.01.01
10900 CHGENVVAR ENVVAR(HOME) VALUE(&HOME)
28.02.01
11000 ENDDO
15.01.01
11100
05.03.02
5769PW1 V4R4M0 990521 SEU-QUELLENLISTE
19.06.02 14:21:47 S. 4
QUELLENDATEI . . . . . . P03SBYK/QCLSRC
TEILDATEI . . . . . . . . MAILATC1
SEQNBR*...+... 1 ...+... 2 ...+... 3 ...+... 4 ...+... 5 ...+... 6 ...+...
7 ...+... 8 ...+... 9 ...+... 0
11200 /* Alternativ dazu kann die Ausgabe in eine Datei umgeleitet
*/ 05.03.02
11300 /* werden. Noch Testen !
*/ 05.03.02
11400 CHGVAR VAR(&STRING) VALUE('/JavaByk/')
05.03.02
11500 /* Diese Option unterbindet die Ausgabe von Texten
*/ 05.03.02
11600 CHGVAR VAR(&STRING) VALUE('NONE')
05.03.02
11700 ADDENVVAR ENVVAR(QIBM_QSH_CMD_OUTPUT) VALUE(&STRING)
05.03.02
11800 MONMSG MSGID(CPFA980) EXEC(DO) /* Umgebungsvariable
+ 05.03.02
11900 bereits vorhanden */
05.03.02
12000 CHGENVVAR ENVVAR(QIBM_QSH_CMD_OUTPUT) VALUE(&STRING)
05.03.02
12100 ENDDO
05.03.02
12200
05.03.02
12300 /* Mit dieser Option sendet das Java-Programm bei einem
*/ 05.03.02
12400 /* Ruckkehr-Code > 0 die Escape-Nachricht QSH0005
*/ 05.03.02
12500 /* anstatt ein Complete zu melden.
*/ 05.03.02
12600 ADDENVVAR ENVVAR(QIBM_QSH_CMD_ESCAPE_MSG) VALUE('Y')
05.03.02
12700 MONMSG MSGID(CPFA980) EXEC(DO) /* Umgebungsvariable
+ 05.03.02
12800 bereits vorhanden */
05.03.02
12900 CHGENVVAR ENVVAR(QIBM_QSH_CMD_ESCAPE_MSG) VALUE('Y')
05.03.02
13000 ENDDO
05.03.02
13100
05.03.02
13200 /* Fur SBMJOB
*/ 05.03.02
13300 /* Testen
*/ 05.03.02
13400 ADDENVVAR ENVVAR(QIBM_MULTI_THREADED) VALUE('Y')
05.03.02
13500 MONMSG MSGID(CPFA980) EXEC(DO) /* Umgebungsvariable
+ 05.03.02
13600 bereits vorhanden */
05.03.02
13700 CHGENVVAR ENVVAR(QIBM_MULTI_THREADED) VALUE('Y')
05.03.02
13800 ENDDO
05.03.02
13900
27.12.00
14000 RUNJAVA:
15.01.01
14100
05.03.02
14200 /* Java-Programm ausfuhren
*/ 15.01.01
14300 /* von eMail-Adresse
*/ 01.03.02
14400 /* nach eMail-Adresse
*/ 01.03.02
14500 /* Betreff-Zeile
*/ 01.03.02
14600 /* Nachricht
*/ 01.03.02
14700 /* Uberschrift Zeile
*/ 16.01.01
14800 /* Datei (Attachment) wenn vorhanden
*/ 01.03.02
5769PW1 V4R4M0 990521 SEU-QUELLENLISTE
19.06.02 14:21:47 S. 5
QUELLENDATEI . . . . . . P03SBYK/QCLSRC
TEILDATEI . . . . . . . . MAILATC1
SEQNBR*...+... 1 ...+... 2 ...+... 3 ...+... 4 ...+... 5 ...+... 6 ...+...
7 ...+... 8 ...+... 9 ...+... 0
14900 /* Parameterbegrenzung auf 256 Zeichen....
*/ 04.03.02
15000 /* RUNJVA CLASS('MailAttach') PARM(&VON &AN +
05.03.02
15100 &BETREFF &NACHRICHT &DATEI) */
04.03.02
15200 /* ...oder
*/ 05.03.02
15300 /* JAVA CLASS('MailAttach') PARM(&VON &AN +
05.03.02
15400 &BETREFF &NACHRICHT &DATEI) */
05.03.02
15500
05.03.02
15600 CHGVAR VAR(&QSHS) VALUE('java MailAttach' +
05.03.02
15700 *BCAT &VON +
05.03.02
15800 *BCAT &AN *BCAT '''' *TCAT &BETREFF *TCAT
+ 04.03.02
15900 '''' *BCAT '''' *TCAT &NACHRICHT *TCAT +
05.03.02
16000 '''' +
05.03.02
16100 )
05.03.02
16200
05.03.02
16300 IF COND(&DATEI *NE ' ') THEN(DO)
05.03.02
16400 /* Anhang angegeben. Ketten Dateiname
*/ 05.03.02
16500 CHGVAR VAR(&QSHS) VALUE(&QSHS +
05.03.02
16600 *BCAT '''' *TCAT &DATEI *TCAT '''')
05.03.02
16700 ENDDO
05.03.02
16800
04.03.02
16900 /* Aufruf Java-Programm mittels QSH
*/ 04.03.02
17000 QSH CMD(&QSHS)
05.03.02
17100
04.03.02
17200 /* Option loschen Attachment nach dem Versenden J/N
*/ 04.03.02
17300 IF COND((&LOESCH = 'J') *AND (&DATEI *NE ' '))
THEN(DO) 05.03.02
17400 /* Loschen des PDF-Dokuments im IFS
*/ 04.03.02
17500 DEL OBJLNK(&DATEI)
04.03.02
17600 ENDDO
04.03.02
17700
04.03.02
17800
01.02.02
17900 /* fur Test oberhalb von RUNJVA kopieren
*/ 01.03.02
18000 CHGVAR VAR(&VON) VALUE('stefan.lorei@bcw.byk')
01.03.02
18100 CHGVAR VAR(&AN) VALUE('stefan.lorei@bcw.byk')
01.03.02
18200 CHGVAR VAR(&BETREFF) VALUE('eMail von MAILATTACH')
01.03.02
18300 CHGVAR VAR(&NACHRICHT) VALUE('Hallo Stefan :-)')
01.03.02
18400 CHGVAR VAR(&DATEI) VALUE('/JavaByk/Database.ini')
01.03.02
18500
01.03.02
5769PW1 V4R4M0 990521 SEU-QUELLENLISTE
19.06.02 14:21:47 S. 6
QUELLENDATEI . . . . . . P03SBYK/QCLSRC
TEILDATEI . . . . . . . . MAILATC1
SEQNBR*...+... 1 ...+... 2 ...+... 3 ...+... 4 ...+... 5 ...+... 6 ...+...
7 ...+... 8 ...+... 9 ...+... 0
18600 /* -----------------------------------------------------------
*/ 01.02.02
18700 /* Nachricht senden
*/ 01.02.02
18800 CHGVAR VAR(&MSG) VALUE('eMail gesendet')
01.03.02
18900 /* SNDPGMMSG MSGID(BYK9898) MSGF(MSGBYK) MSGDTA(&MSG) +
01.03.02
19000 TOPGMQ(*SAME) TOMSGQ(LOREI) MSGTYPE(*INFO)
*/ 01.03.02
19100
05.03.02
19200 /* Lesen Datei QSHO fur eventuelle Fehlernachrichten */
05.03.02
19300 READ: RCVF
05.03.02
19400 MONMSG MSGID(CPF0864) EXEC(GOTO CMDLBL(EOF))
05.03.02
19500 /* Eingabezeile in Variable &MSG speichern
*/ 05.03.02
19600 CHGVAR VAR(&MSG) VALUE(%SST(&QSHO 1 31))
17.05.02
19700
05.03.02
19800 /* Statusinformation auslesen */
05.03.02
19900 IF COND(&MSG *EQ 'E-Mail wurde korrekt +
17.05.02
20000 versendet.') THEN(CHGVAR VAR(&COUNT) +
17.05.02
20100 VALUE(&COUNT + 1))
17.05.02
20200 /* Nachste Eingabezeile lesen
*/ 05.03.02
20300 GOTO CMDLBL(READ)
05.03.02
20400
05.03.02
20500 /* Bei Dateiende... */
05.03.02
20600 EOF:
05.03.02
20700
17.05.02
20800 /* DLTOVR
*/ 17.05.02
20900 DLTOVR FILE(*ALL)
17.05.02
21000 MONMSG MSGID(CPF0000)
17.05.02
21100
17.05.02
21200 IF COND(&COUNT *EQ 0) THEN(DO)
17.05.02
21300 /* Erfolgreichmeldung nicht vorhanden */
17.05.02
21400
05.03.02
21500 /* Statusdatei anzeigen */
05.03.02
21600 DSPPFM FILE(QTEMP/QSHO)
17.05.02
21700 /* Comp-Nachricht: Nicht erfolgreich... */
17.05.02
21800 SNDPGMMSG MSGID(MAI0101) MSGF(MSGBYK) TOPGMQ(*PRV (*))
+ 17.05.02
21900 MSGTYPE(*COMP)
17.05.02
22000 ENDDO
17.05.02
22100 ELSE CMD(DO)
17.05.02
22200 /* Comp-Nachricht: erfolgreich .... */
17.05.02
5769PW1 V4R4M0 990521 SEU-QUELLENLISTE
19.06.02 14:21:47 S. 7
QUELLENDATEI . . . . . . P03SBYK/QCLSRC
TEILDATEI . . . . . . . . MAILATC1
SEQNBR*...+... 1 ...+... 2 ...+... 3 ...+... 4 ...+... 5 ...+... 6 ...+...
7 ...+... 8 ...+... 9 ...+... 0
22300 SNDPGMMSG MSGID(MAI0102) MSGF(MSGBYK) TOPGMQ(*PRV (*))
+ 17.05.02
22400 MSGTYPE(*COMP)
17.05.02
22500 ENDDO
17.05.02
22600
17.05.02
22700 /* -----------------------------------------------------------
*/ 27.12.00
22800 /* Normales Programmende
*/ 27.12.00
22900 GOTO CMDLBL(ENDPGM)
27.12.00
23000
27.12.00
23100 /* -----------------------------------------------------------
*/ 27.12.00
23200 /* Standard-Fehlerbehandlung
*/ 27.12.00
23300 ABNORMAL:
27.12.00
23400 /* Bereinigen nach Auftreten von Fehlern (z.B. DLTOVR)
*/ 27.12.00
23500 /* DLTOVR sollte gunstigerweise hier bedingt werden
*/ 27.12.00
23600 /* (Vermeidung unnotiger Nachrichten)
*/ 27.12.00
23700 DLTOVR FILE(*ALL)
27.12.00
23800 MONMSG MSGID(CPF0000)
27.12.00
23900 RCLRSC
27.12.00
24000
05.03.02
24100 /* Option loschen Attachment nach dem Versenden J/N
*/ 05.03.02
24200 IF COND((&LOESCH = 'J') *AND (&DATEI *NE ' '))
THEN(DO) 05.03.02
24300 /* Loschen des PDF-Dokuments im IFS
*/ 05.03.02
24400 DEL OBJLNK(&DATEI)
05.03.02
24500 MONMSG MSGID(CPF0000)
05.03.02
24600 ENDDO
05.03.02
24700 /* -----------------------------------------------------------
*/ 27.12.00
24800 IF COND(&MSGSWITCH = '1') THEN(DO)
27.12.00
24900 /* Damit beim
*/ 27.12.00
25000 /* Fehler in der Fehlerbehandlungsroutine
*/ 27.12.00
25100 /* keine rekursive Fehlerbehandlung erfolgt
*/ 27.12.00
25200 SNDPGMMSG MSGID(CPF9898) MSGF(QCPFMSG) MSGDTA('Fehler
+ 27.12.00
25300 bei Ausfuhrung von MAILATC1, vergleiche +
04.03.02
25400 letzte Nachrichten') MSGTYPE(*ESCAPE)
27.12.00
25500 ENDDO
27.12.00
25600
27.12.00
25700 CHGVAR VAR(&MSGSWITCH) VALUE('1')
27.12.00
25800 /* -----------------------------------------------------------
*/ 27.12.00
25900 /* Zunachst: nur senden von Diagnosenachrichten an die
*/ 27.12.00
5769PW1 V4R4M0 990521 SEU-QUELLENLISTE
19.06.02 14:21:47 S. 8
QUELLENDATEI . . . . . . P03SBYK/QCLSRC
TEILDATEI . . . . . . . . MAILATC1
SEQNBR*...+... 1 ...+... 2 ...+... 3 ...+... 4 ...+... 5 ...+... 6 ...+...
7 ...+... 8 ...+... 9 ...+... 0
26000 /* vorangehende Nachrichtenwarteschlange
*/ 27.12.00
26100 STDERR2:
27.12.00
26200 RCVMSG PGMQ(*SAME *) MSGTYPE(*DIAG) RMV(*YES) +
27.12.00
26300 MSGDTA(&MSGDTA) MSGID(&MSGID) MSGF(&MSGF)
+ 27.12.00
26400 MSGFLIB(&MSGFLIB)
27.12.00
26500 IF COND(&MSGID *EQ ' ') THEN(GOTO +
27.12.00
26600 CMDLBL(STDERR3))
27.12.00
26700 /* Sprung zur Bearbeitung der Ausnahme-
*/ 27.12.00
26800 /* nachrichten, wenn keine Diagnosenachrich-
*/ 27.12.00
26900 /* ten mehr gefunden werden.
*/ 27.12.00
27000 SNDPGMMSG MSGID(&MSGID) MSGF(&MSGFLIB/&MSGF) +
27.12.00
27100 MSGDTA(&MSGDTA) TOPGMQ(*PRV *)
MSGTYPE(*DIAG) 27.12.00
27200 /* nachste Diagnosenachricht bearbeiten :
*/ 27.12.00
27300 GOTO CMDLBL(STDERR2)
27.12.00
27400 /* -----------------------------------------------------------
*/ 27.12.00
27500 /* Nachrichtenende: Senden der Abschlu?nachricht an die
*/ 27.12.00
27600 /* vorangehende Nachrichtenwarteschlange
*/ 27.12.00
27700 STDERR3:
27.12.00
27800 RCVMSG PGMQ(*SAME *) MSGTYPE(*EXCP) RMV(*YES) +
27.12.00
27900 MSGDTA(&MSGDTA) MSGID(&MSGID) MSGF(&MSGF)
+ 27.12.00
28000 MSGFLIB(&MSGFLIB)
27.12.00
28100 SNDPGMMSG MSGID(&MSGID) MSGF(&MSGFLIB/&MSGF) +
27.12.00
28200 MSGDTA(&MSGDTA) MSGTYPE(*ESCAPE)
27.12.00
28300 /* -----------------------------------------------------------
*/ 27.12.00
28400 ENDPGM:
27.12.00
28500 ENDPGM
27.12.00
28600
27.12.00
* * * E N D E D E R Q U E L L E * * *
-----Ursprungliche Nachricht-----
Von: java400-l-admin@midrange.com
[mailto:java400-l-admin@midrange.com]Im Auftrag von
albert_dalmau@roca.net
Gesendet: Mittwoch, 19. Juni 2002 10:26
An: JAVA400-L@midrange.com
Betreff: (no subject)
Hi,
I have a question very easy but very important for us. I execute a Java
program with a SBMJOB command and I'm trying to avoid the spool file with
the message "Java program completed". I tried using the os400.stderr
property as I show you:
RMVENVVAR ENVVAR(CLASSPATH)
MONMSG MSGID(CPFA981)
ADDENVVAR ENVVAR(CLASSPATH) +
VALUE(".:/:/dalmau:/oracle:/QIBM/ProdData/H+
ttp/Public/jt400/lib/jt400Access.zip:/QIBM/+
ProdData/Http/Public/jt400/lib/jt400.zip:/Q+
IBM/ProdData/Http/Public/jt400:/QIBM/ProdDa+
ta/Java400")
MONMSG MSGID(CPFA980)
SBMJOB CMD(JAVA +
CLASS(xvr.app.sip.ba.poolspa.logic.entity.A+
PIProduccion) PARM(&NPEDID &NTRES &CARTI +
&LITPIE &FECHA) PROP((java.version 1.2) +
(os400.stdout 'file:/Dalmau/Out') +
(os400.stderr 'file:/Dalmau/Err'))) +
CPYENVVAR(*YES)
...but it doesn't work.
Sorry for my english. Any suggestion will be appreciated.
Thanks from Barcelona.
Albert
_______________________________________________
This is the Java Programming on and around the iSeries / AS400 (JAVA400-L)
mailing list
To post a message email: JAVA400-L@midrange.com
To subscribe, unsubscribe, or change list options,
visit: http://lists.midrange.com/cgi-bin/listinfo/java400-l
or email: JAVA400-L-request@midrange.com
Before posting, please take a moment to review the archives
at http://archive.midrange.com/java400-l.
************************************************************************
* Tracking #: C6EF01813983D61187D500E07D7FDA08D523B2C7
*
************************************************************************
As an Amazon Associate we earn from qualifying purchases.
This mailing list archive is Copyright 1997-2025 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.
