PDA

View Full Version : SNDMSG drucken


Jenne
08-02-10, 16:40
Hallo Kollegen,

gibt es eine Möglichkeit aus einem CL-Programm erzeugte Message an einen Drucker zu senden und damit zu drucken? Wis z.B. SNDMSG

Danke vorab für Eure Hilfe.

Gruß
Jenne
Fuerchau
08-02-10, 16:54
Von selber leider nicht.
Du musst dir den SNDMSG in einer Variablen selber zusammenbauen und dann drucken.
Per QCMDEXC kannst du den Befehl dann auch ausführen.
Jenne
09-02-10, 08:46
Hallo Fuerchau,

leider benötige ich einen Anstoss. Wie drucke ich den in einem CL-Programm eine Variable?

Gruß
Jenne
Fuerchau
09-02-10, 08:48
In CLP kannst du nicht drucken. Dafür benötigst du ein RPG/LE-Programm.
Jenne
09-02-10, 08:49
Hallo Fuerchau,

alles klar.

Danke für Deine Hilfe.


Gruß
Jenne
AS400.lehrling
11-02-10, 13:15
Hallo Fuerchau,

alles klar.

Danke für Deine Hilfe.


Gruß
Jenne

Könnte ja so aussehen:



001.00 FKONTOPF IF E DISK 060116
002.00 FQPRINT O F 80 PRINTER 060119
002.01 DSeiteNr S 3S 0 050821
002.02 C EVAL SeiteNr = 1 050821
002.03 C EXCEPT SEITENKOPF 050821
002.04 C EXCEPT SPALTUEBER 050821
002.05 C 050821
002.06 C READ KONTOPF 80 060116
002.07 C DOW *IN80 = *OFF 050821
002.08 C EXCEPT DETAILS 050821
002.09 C IF *INOA = *ON 050821
002.10 C EVAL SeiteNr = SeiteNr +1 050821
002.11 C EXCEPT SEITENKOPF 050821
002.12 C EXCEPT SPALTUEBER 050821
002.13 C ENDIF 050821
002.14 C 050821
002.15 C READ KONTOPF 80 060116
002.16 C ENDDO 050821
002.17 C EVAL *INLR = *ON 050821



Gruß AS400.lehrling