QCMDEXC CPF0006

[tarkusch]

Ich finde den Grund des Fehlers nicht, trotz der Recherche in diesem Forum.


Den kompletten Befehl kann ich auf der AS/400 absetzen,
aber im Programm tritt ein Fehler auf.
CRTSNDMDAV ACCOUNT(AS400)
TO('bernhard.tarkusch@gmail.com')
SUBJECT('Pgm-Fehlermeldung')
TEXT('Fehler(0013) im Programm
aufgetreten!')

Kann mir jemand einen Tip geben?


DQCMDEXEC PR EXTPGM('QCMDEXC')
D CMDTXT 1000A CONST OPTIONS(*VARSIZE)
D CMDLEN 15P 5 CONST
D*
D CMDTXT S 1000A
D CMDLEN S 15P 5
D HK C Const('''') Hochkomma
D $$TEXT S 512A
************************************************** **************
* Hauptprogramm *MAIN
************************************************** **************
/Free
$$Text = 'Fehler(0013) im Programm aufgetreten!';
CMDTXT = 'CRTSNDMDAV ACCOUNT(AS400) TO(' + HK +
'bernhard.tarkusch@gmail.com' + HK +
') SUBJECT(' + HK + 'Pgm-Fehlermeldung' + HK +
') TEXT(' + HK + '@TXT' + HK + ')';
CMDTXT = %replace(%Trimr($$TEXT):CMDTXT:%scan('@TXT':CMDTXT ):4);

MONITOR;
QCMDEXEC(CMDTXT:CMDLEN);
ON-ERROR *ALL;
Msgbox(PGMSDS);
ENDMON;

*INLR= *ON;
Return;


Gruß und Dank im Voraus

Tarki

[Pikachu]

Du mußt CMDLEN vor dem Aufruf auf einen geeigneten Wert setzen!

[tarkusch]

thx,

das habe ich wieder völlig übersehen.

[kitvb1]

CMDTXT = %replace(%Trimr($$TEXT):CMDTXT:%scan('@TXT':CMDTXT ):4);
Just out of interest, you want to send an email describing the error when a program crashes, right? You have the text which is 512A long, but you are only sending 4 characters of that text. Is that intentional? If not, shouldn't that be as follows?
CMDTXT = %replace(%Trimr($$TEXT):CMDTXT:%scan('@TXT':CMDTXT ):%len(%Trimr($$TEXT)) );

[tarkusch]

Just out of interest, you want to send an email describing the error when a program crashes, right? You have the text which is 512A long, but you are only sending 4 characters of that text. Is that intentional? If not, shouldn't that be as follows?
CMDTXT = %replace(%Trimr($$TEXT):CMDTXT:%scan('@TXT':CMDTXT ):%len(%Trimr($$TEXT)) );


Yes, i want to send an email with the error.
But i want to replace @TXT with the $$TEXT-String.

I must give the length of @txt and that is four, or?

[kitvb1]

Ja, der letzte Parameter (4) ist die Anzahl der Zeichen, die Du ersetzen möchtest.
Yes, the last parameter (4) is the number of characters you want to replace.