Ist doch nicht schwer -könnte so aussehen

-Moment bekomme gerade die *savf nicht per ftp von der Maschiene

-Wie fügt man eigentlich Code ein

Gruß AS400.lehrling

Code:
5722WDS V5R3M0  030905                  SEU-QUELLENLISTE                              11/04/10 14:05:29    PUB1         S.      1

  QUELLENDATEI  . . . . . .  ASY1/QRPGLESRC
  TEILDATEI . . . . . . . .  PRTKONTO

  SEQNBR*...+... 1 ...+... 2 ...+... 3 ...+... 4 ...+... 5 ...+... 6 ...+... 7 ...+... 8 ...+... 9 ...+... 0
    100      FKONTOPF   IF   E             DISK                                                                         01/16/06
    200      FQPRINT    O    F   80        PRINTER                                                                      01/19/06
    201      DSeiteNr          S              3S 0                                                                      08/21/05
    202      C                   EVAL      SeiteNr = 1                                                                  08/21/05
    203      C                   EXCEPT    SEITENKOPF                                                                   08/21/05
    204      C                   EXCEPT    SPALTUEBER                                                                   08/21/05
    205      C                                                                                                          08/21/05
    206      C                   READ      KONTOPF                                80                                    01/16/06
    207      C                   DOW       *IN80 = *OFF                                                                 08/21/05
    208      C                   EXCEPT    DETAILS                                                                      08/21/05
    209      C                   IF        *INOA = *ON                                                                  08/21/05
    210      C                   EVAL      SeiteNr = SeiteNr +1                                                         08/21/05
    211      C                   EXCEPT    SEITENKOPF                                                                   08/21/05
    212      C                   EXCEPT    SPALTUEBER                                                                   08/21/05
    213      C                   ENDIF                                                                                  08/21/05
    214      C                                                                                                          08/21/05
    215      C                   READ      KONTOPF                                80                                    01/16/06
    216      C                   ENDDO                                                                                  08/21/05
    217      C                   EVAL      *INLR = *ON                                                                  08/21/05
    300      OQPRINT    E            SEITENKOPF        2  4                                                             11/27/05
    400      O                                            6 'Seite'                                                     08/23/05
    500      O                       SeiteNr             11                                                             08/23/05
    600      O                                           38 'Kontenliste'                                               12/11/05
    700      O                                           70 'Datum:'                                                    12/11/05
    800      O                       UDATE         Y     77                                                             08/21/05
    801      OQPRINT    E            SPALTUEBER     1                                                                   11/27/05
    802      O                                            7 'Konto-'                                                    12/11/05
    803      O                                           44 'Kontobeschreibung'                                         12/11/05
    804      O                                           72 'Anlage- '                                                  12/11/05
    805      OQPRINT    E            SPALTUEBER     2                                                                   11/27/05
    806      O                                            7 'Nummer'                                                    12/11/05
    807      O                                           72 'Datum   '                                                  12/11/05
    900      OQPRINT    E            DETAILS        1                                                                   11/27/05
   1000      O                       KTONUM              11                                                             03/08/06
   1100      O                       KTOTXT              57                                                             03/08/06
   1200      O                       KTODAT              72                                                             03/08/06


                                  * * *  E N D E  D E R  Q U E L L E  * * *
So gelöst