Die über SYSDTA eingegebenen Daten werden aufbereitet in die Datei LIST ausgegeben.
/CREATE-FILE FILE-NAME=LIST /ADD-FILE-LINK LINK-NAME=PCOUT,FILE-NAME=LIST,ACCESS-METHOD=*SAM &*————— (1) /START-PERCON &*———————————————————————————————————————————————————————— (2) /&* % PER0000 PERCON STARTED, VERSION V03.0A00 //ASSIGN-INPUT-FILE FILE=*SYSDTA &*————————————————————————————————————— (3) //ASSIGN-OUTPUT-FILE FILE=*DISK-FILE(NAME=LIST) &*—————————————————————— (4) //SET-RECORD-MAPPING - &*——————————————————————————————————————————————— (5) // OUTPUT-FIELDS=(- // *GROUP-COUNTER(LINK-NAME=PCOUT,- // GROUP-LEVEL=1,- // OUTPUT-POSITION=10),- // '/'(OUTPUT-POSITION=16),- // *FIELD(INPUT-POSITION=5,- // INPUT-LENGTH=10,- // OUTPUT-POSITION=22),- // '/'(OUTPUT-POSITION=35),- // *FIELD(INPUT-POSITION=15,- // INPUT-LENGTH=3,- // INPUT-FORMAT=*ZONED-DECIMAL,- // OUTPUT-POSITION=40,- // OUTPUT-FORMAT=' ZNZ')) //SET-GROUP-ATTRIBUTES - &*————————————————————————————————————————————— (6) // GROUP-TRAILER=(- // *SPACING(LINES=4),- // 'Gesamt Posten:'(OUTPUT-POSITION=10),- // *GROUP-COUNTER(LINK-NAME=PCOUT,- // GROUP-LEVEL=1,- // OUTPUT-POSITION=25,- // OUTPUT-FORMAT=' ZZZNZ'),- // *SPACING,- // 'Gesamt Anzahl:'(OUTPUT-POSITION=10),- // *SUM-FIELD(INPUT-POSITION=15,- // INPUT-LENGTH=3,- // INPUT-FORMAT=*ZONED-DECIMAL,- // OUTPUT-POSITION=25,- // OUTPUT-FORMAT=' ZZZNZ')) //SET-PAGE-LAYOUT HEADER-LINE=*NONE &*—————————————————————————————————— (7) //END &*———————————————————————————————————————————————————————————————— (8) Anzug 014 —————————————————————————————————————————————————————————— (9) Hose 053 Hemd 162 Bluse 064 Schuhe 136 /EOF % PER0030 NUMBER OF PROCESSED RECORDS FOR LINK 'PCIN' : 5 % PER0030 NUMBER OF PROCESSED RECORDS FOR LINK 'PCOUT' (FILE=LIST): 5 % PER0031 PERCON TERMINATED NORMALLY ————————————————————————————————— (10)
(1) | Die Ausgabedatei LIST wird mit dem Dateikettungsnamen PCOUT zugewiesen. |
(2) | PERCON wird aufgerufen. |
(3) | Die Eingabe soll über SYSDTA erfolgen. |
(4) | Die Ausgabedatei LIST wird zugewiesen. |
(5) | Mit der SET-RECORD-MAPPING-Anweisung werden der Gruppenzähler und bestimmte Felder des Eingabesatzes in den Ausgabesatz übertragen. |
(6) | Die SET-GROUP-ATTRIBUTES-Anweisung legt Aufbau und Inhalt der Gruppennachlaufzeilen fest. |
(7) | Die SET-PAGE-LAYOUT-Anweisung bestimmt, dass keine Kopfzeile ausgegeben werden soll. |
(8) | Die END-Anweisung startet den Übertragungsvorgang und beendet PERCON. |
(9) | Eingabe der Daten über SYSDTA. |
(10) | PERCON wurde normal beendet. |
Inhalt der Ausgabedatei LIST:
Die Positionsleiste ist nicht in der Datei enthalten und bezieht sich nur auf die Daten, d.h. Satzlängenfeld und Vorschub-Steuerzeichen werden nicht beachtet.
5 10 15 20 25 30 35 40 45 50 (Positionsleiste)
----+----+----+----+----+----+----+----+----+----+
1 / Anzug / 14
2 / Hose / 53
3 / Hemd / 162
4 / Bluse / 64
5 / Schuhe / 136
Gesamt Posten: 5
Gesamt Anzahl: 429