SNDMSG drucken

[Jenne]

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]

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]

Hallo Fuerchau,

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

Gruß
Jenne

[Fuerchau]

In CLP kannst du nicht drucken. Dafür benötigst du ein RPG/LE-Programm.

[Jenne]

Hallo Fuerchau,

alles klar.

Danke für Deine Hilfe.


Gruß
Jenne

[AS400.lehrling]

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