CPYSPLF unterschiedliches Verhalten im Batch und interaktiv

[nico1964]

Der Pfad wird so im CL
CHGVAR VAR(&PFAD) VALUE('/HOME/' *CAT &USER *TCAT +
'/xx_xxxxxxl_' *CAT %SUBSTRING(&DATE 1 2) *CAT +
'_' *CAT %SUBSTRING(&DATE 3 2) *CAT '_' *CAT +
%SUBSTRING(&DATE 5 2) *CAT '_xxxxxx.PDF')
aufbereitet nix mit parameterübergabe

[Fuerchau]

Wenn der Fehler auftritt muss das Programm benannt sein, dass den MCH auslöst.
Bist du sicher, dass das der CPYSPLF ist?

[nico1964]

Im Joblog steht das Programm xxxx hat auf Anweisungsnummer 0006200 den MCH3601 empfangen und das ist

0062.00 CPYSPLF FILE(BZV3AA) TOFILE(*TOSTMF) +
0063.00 JOB(&NBR/&USER/&JOB) SPLNBR(*LAST) +
0064.00 TOMBR(*FIRST) +
0065.00 TOSTMF(&PFAD) WSCST(*PDF) STMFOPT(*REPLACE)

[Robi]

es werden im Befehl diese Variablen verwendet:

CPYSPLF FILE(BZV3AA) TOFILE(*TOSTMF) +
JOB(&NBR/&USER/&JOB) SPLNBR(*LAST) +
TOMBR(*FIRST) +
TOSTMF(&PFAD) WSCST(*PDF) STMFOPT(*REPLACE)

wird eine davon im cl empfangen?
bzw hätte eine davon empfangen werden sollen.
ich denke, die kommt einfach nicht an das CL!

[nico1964]

Hier die wesentlichen Auszüge aus dem CL

PGM PARM(&EMAIL &PGM)
DCL VAR(&EMAIL) TYPE(*CHAR) LEN(200)
DCL VAR(&USER) TYPE(*CHAR) LEN(10)
DCL VAR(&PFAD) TYPE(*CHAR) LEN(50)
DCL VAR(&DATE) TYPE(*CHAR) LEN(6)
DCL VAR(&SUBJECT) TYPE(*CHAR) LEN(60)
DCL VAR(&LAST) TYPE(*CHAR) LEN(6)
DCL VAR(&JOB) TYPE(*CHAR) LEN(10)
DCL VAR(&NBR) TYPE(*CHAR) LEN(6)
DCL VAR(&PGM) TYPE(*CHAR) LEN(10)
DCL VAR(&SYSTEM) TYPE(*CHAR) LEN(40)
DCL VAR(&NAME) TYPE(*CHAR) LEN(10)

CHGVAR VAR(&LAST) VALUE('*LAST')
CHGVAR VAR(&NAME) VALUE(' ')
RTVJOBA JOB(&JOB) USER(&USER) NBR(&NBR) DATE(&DATE)
RTVNETA SYSNAME(&SYSTEM)


IF COND(&PGM *EQ 'LEACABSA') THEN(DO)
CHGVAR VAR(&PFAD) VALUE('/HOME/' *CAT &USER *TCAT +
'/DT_Zettel_' *CAT %SUBSTRING(&DATE 1 2) *CAT +
'_' *CAT %SUBSTRING(&DATE 3 2) *CAT '_' *CAT +
%SUBSTRING(&DATE 5 2) *CAT '_Ausland.PDF')
CPYSPLF FILE(BZV3AA) TOFILE(*TOSTMF) +
JOB(&NBR/&USER/&JOB) SPLNBR(*LAST) +
TOMBR(*FIRST) +
TOSTMF(&PFAD) WSCST(*PDF) STMFOPT(*REPLACE)
CHGVAR VAR(&SUBJECT) +
VALUE('DT-Zettel 20' *CAT +
%SUBSTRING(&DATE 1 2) *CAT '.' *CAT +
%SUBSTRING(&DATE 3 2) *CAT '.' *CAT +
%SUBSTRING(&DATE 5 2) *CAT ' Ausland - ' +
*CAT &SYSTEM)
SNDSMTPEMM RCP((&EMAIL)) SUBJECT(&SUBJECT) ATTACH((&PFAD *PDF +
*BIN)) CHARSET(*UTF8 *DFT) CONTENT(*PLAIN)
GOTO CMDLBL(ENDE)
ENDDO

[Robi]

Und du bist sicher, das die Source des CL und das OBJ zu einander passen?
und das rufende Pgm 200 Byte Emailadresse(n) weggibt.

[Fuerchau]

Manchmal hat der eine Fehler mit dem anderen nichts zu tun.
Ggf. hat das ausführende Programm unter dem User keine Berechtigung an dem IFS-Pfad, so dass die PDF nicht erstellt werden kann.
Manche Programme gehen halt immer davon aus, dass alle Ressourcen verfügbar sind.
Hier ist echtes Raten angesagt.

[TheDevil]

Guten Morgen,

nur mal so eine Idee / Frage ... Wird das Spool interaktiv erstellt und dann soll der Batchjob dieses ins IFS al PDF bringen ? Wenn ja dann hätte das Spool ja eine andere Jobnummer (Terminalsession) als der Batchjob und dann wird das Spool ja nicht gefunden.

Gruß,
Ralf

[nico1964]

Guten Morgen,

nur mal so eine Idee / Frage ... Wird das Spool interaktiv erstellt und dann soll der Batchjob dieses ins IFS al PDF bringen ? Wenn ja dann hätte das Spool ja eine andere Jobnummer (Terminalsession) als der Batchjob und dann wird das Spool ja nicht gefunden.

Gruß,
Ralf

Guten Morgen,

der Ablauf gestaltet sich so:

1. Aufruf eines Auswahlprogramms COBOL-Programm
2. Submit Job COBOL-Programm
Dieses erstellt unter anderem auch das Spoolfile
3. Aufruf eines CL-Programms aus dem COBOL-PGM von Punkt 2
4. Aufruf des CL-PGMS welches den CPYSLPF und anschließen ein Mail machen soll.

[TheDevil]

Hallo.

1. Ist das Spool evtl. noch auf Status "OPN" und somit für das CPYSPLF evtl. nicht greifbar
2. Ist in den CL´s Pukt 3 und 4 ein RCLRSC vorhanden? Wenn nein den bitte mal einfügen. Wir hatten damit auch schon so unsere Phänomene wenn der nicht im CL war ...

Gruß,
Ralf

[nico1964]

Guten Morgen Ralf,

der Spool wird entweder im 2. Cobol oder im 1. CL-Programm geschlossen. Für den 2. Punkt muss ich mich noch mit unserem Opi kurzschließen, da dies ein Produktionsfehler ist. Werde mal mit ihm bei einer Zigarette darüber plaudern.

Gruß
Andreas

[nico1964]

So, mal mit meinem Opi gesprochen, RCLRSC eingebaut und beim CPYSPLF den Parameter OPNSPLF(*YES) gesetzt. Mal schauen ob es heute funktioniert. Falls nicht bin ich mit meinem Latein am Ende.

Ach ja nur der Vollständigkeit halber: V7.1 aktueller PTF-Stand(ca. 14 Tage alt)