"Formatierten" Text mit SNDDST ausgeben

[bettina_martin]

Vorschau "Formatierten" Text mit SNDDST ausgeben
hi, ich stopple mit

 
CHGVAR VAR(&MSGX) VALUE('NACHRICHT:' *BCAT &MSG *BCAT + ':/N' *BCAT &MSG2 *TCAT ':/N Nachrichten-ID:' *BCAT + &MSGID *TCAT ':/N Bewertung:' *BCAT &SEVA + *TCAT ':/N Sender:' *BCAT &SENDER) SNDDST TYPE(*LMSG) + TOINTNET(('test@xxx.AT')) + DSTD('AS400 MSG') LONGMSG(&MSGX)

einen Text zusammen (aus dem Ergebnis eines rcvmsg), den ich mit SNDDST als Email versende.

Wie kann ich diesen Text formatieren ? D.h. ich möchte z.b. Leerzeilen zwischen den einzelnen Zeilen haben.
Momentan wird mir das in einer 'Wurst' geschrieben.

lg Martin

[Fuerchau]

Mehr als diese ':/N' und ':/P' sind mir auch nicht bekannt.
Die Nachricht wird ja meist als Nur-Text versendet.
Laut Hilfe sind auch Hex-Werte erlaubt, also x'0D25' (in Ebcdic für CRLF) müsste auch funktionieren.

[bettina_martin]

Mehr als diese ':/N' und ':/P' sind mir auch nicht bekannt.
Die Nachricht wird ja meist als Nur-Text versendet.
Laut Hilfe sind auch Hex-Werte erlaubt, also x'0D25' (in Ebcdic für CRLF) müsste auch funktionieren.

Das mit dem :/N und :/P bringt im Output dann &N und &P als Text.

Ich habe das Coding übernommen und mir war gar nicht klar das diese beiden Parameter Leerzeilen erzeugen sollen.

Funktioniert nun leider nicht Woran kann das liegen ?

[Fuerchau]

Ggf. am Empfänger, der diese nicht versteht.
Versuche es wirklich mal mit den Hexcodes:

... *CAT X'0D25' *CAT ...

[Andreas Herzfeldt]

Hallo Bettina, ich verwende auch das SNDDST für formatierte Textausgaben per Mail mit den zu verfügung stehenden Parametern :N + :P. Ich nutze die Option *LMSG im SNDDST

Definition &NA + &NZ :

DCL VAR(&NZ) TYPE(*CHAR) LEN(3) VALUE(':/N')
DCL VAR(&NA) TYPE(*CHAR) LEN(3) VALUE(':/P')

Code für das zusammenbasteln der Meldung :

CHGVAR VAR(&LMSG) VALUE(' Jobinformation +
' *BCAT &NZ *BCAT +
'---------------------------------------' +
*BCAT &NA *BCAT 'System :' *BCAT +
&SYSSYS *BCAT &NA *BCAT 'Objekt :' +
*BCAT &SYSOBJ *BCAT &NZ *BCAT '-Art +
:' *BCAT &SYSART *BCAT &NZ *BCAT +
'Benutzer :' *BCAT &SYSUSR *BCAT &NZ +
*BCAT 'Zeitüberw.:' *BCAT &SYSTIC *BCAT +
&NZ *BCAT 'Von :' *BCAT &SYSTIV +
*BCAT &NZ *BCAT 'Bis :' *BCAT +
&SYSTIB *BCAT &NZ *BCAT 'Restart :' +
*BCAT &SYSACN *BCAT &NZ *BCAT 'Befehl +
:' *BCAT &SYSAC1 *BCAT &NZ *BCAT +
'Param.-1 :' *BCAT &SYSAC2 *BCAT &NZ +
*BCAT 'Param.-2 :' *BCAT &SYSAC3 *BCAT +
&NZ *BCAT 'Fehler :' *BCAT &SYSMTX +
*BCAT &NZ *BCAT &NZ *BCAT 'Aktion ! :' +
*BCAT &AKTION)

Vielleicht hilft Dir das ja weiter.

Gruss aus HH, Andreas

[bettina_martin]

Hallo Bettina, ich verwende auch das SNDDST für formatierte Textausgaben per Mail mit den zu verfügung stehenden Parametern :N + :P. Ich nutze die Option *LMSG im SNDDST

Definition &NA + &NZ :

DCL VAR(&NZ) TYPE(*CHAR) LEN(3) VALUE(':/N')
DCL VAR(&NA) TYPE(*CHAR) LEN(3) VALUE(':/P')

Code für das zusammenbasteln der Meldung :

CHGVAR VAR(&LMSG) VALUE(' Jobinformation +
' *BCAT &NZ *BCAT +
'---------------------------------------' +
*BCAT &NA *BCAT 'System :' *BCAT +
&SYSSYS *BCAT &NA *BCAT 'Objekt :' +
*BCAT &SYSOBJ *BCAT &NZ *BCAT '-Art +
:' *BCAT &SYSART *BCAT &NZ *BCAT +
'Benutzer :' *BCAT &SYSUSR *BCAT &NZ +
*BCAT 'Zeitüberw.:' *BCAT &SYSTIC *BCAT +
&NZ *BCAT 'Von :' *BCAT &SYSTIV +
*BCAT &NZ *BCAT 'Bis :' *BCAT +
&SYSTIB *BCAT &NZ *BCAT 'Restart :' +
*BCAT &SYSACN *BCAT &NZ *BCAT 'Befehl +
:' *BCAT &SYSAC1 *BCAT &NZ *BCAT +
'Param.-1 :' *BCAT &SYSAC2 *BCAT &NZ +
*BCAT 'Param.-2 :' *BCAT &SYSAC3 *BCAT +
&NZ *BCAT 'Fehler :' *BCAT &SYSMTX +
*BCAT &NZ *BCAT &NZ *BCAT 'Aktion ! :' +
*BCAT &AKTION)

Vielleicht hilft Dir das ja weiter.

Gruss aus HH, Andreas

Super, das funktioniert jetzt so !

Nur habe ich noch ein Problem: ich zeige in diesem Text die Variable an, welche aus dem Parameter SECLVL aus dem Befehl RCVMSG kommt.

Dieser Text schaut in der Email so aus:

&N Ursache . . . . : Das CL-Programm TESTXXX in Bibliothek CMSMS1 hat einen Fehler bei Anweisung 200 festgestellt. Der Nachrichtentext für CPF0001 ist: Fehler in Befehl CALL gefunden.. &N Fehlerbeseitigung: Das Anzeigen der Anfragenachricht kann durch Ändern des Programms ausgeschlossen werden. Fehler überwachen (Befehl MONMSG) und die Fehlerbeseitigung innerhalb des Programms durchführen. Um fortzufahren, einen Antwortwert eingeben. &N Auswahlmöglichkeiten . . . . . . . . . . . . . . . . . . . . . . . . : &B C -- CL-Programm abbrechen. &B D -- Speicherauszug der CL-Programmvariablen erstellen und Programm abbrechen. &B I -- Fehlgeschlagenen Befehl ignorieren. &B R -- Fehlgeschlagenen Befehl wiederholen.

D.h. auch hier habe ich das &N und &B drinnen, auf das ich hier ja keinen Einfluss habe, weil es ja schon so angeliefert wird.

Sonst funktioniert das ganze sehr schön wie du mir es geschildert hast wenn ich mit DCL die Variablen anlege.

lg

[Fuerchau]

Da hilft dir CLP leider nicht weiter.
Hier musst du ein kleines RPG machen, dass dir diese &X entsprechend ersetzt.

Alternativ gehst auch SQLRPGLE:

exec sql;
set : Text = replace(: Text, '&N', ':/N');
end-exec;