SNDMSG drucken

[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