Bilden von Gruppen

Eingabe:

SAM-Datei PERS.ACCOUNT

Ausgabe:

SAM-Datei PERS.REPORT

Ausdruck der Eingabedatei PERS.ACCOUNT

2002 JANUAR    EUR 83000 
2002 JANUAR    EUR  4000 
2002 JANUAR    EUR 17600 
2002 JANUAR    EUR 12110 
2002 FEBRUAR   EUR 16900 
2002 FEBRUAR   EUR 43000 
2002 FEBRUAR   EUR 78000 
2002 APRIL     EUR 93500 
2002 APRIL     EUR 26000 
2002 JULI      EUR 11450 
2002 JULI      EUR 98000 
2002 JULI      EUR 40500 
2002 JULI      EUR 13000 
2002 SEPTEMBER EUR 32500 
2002 SEPTEMBER EUR 72500 
2002 DEZEMBER  EUR 21500 
2002 DEZEMBER  EUR 73000 
2002 DEZEMBER  EUR 33000 
2002 DEZEMBER  EUR 43000 
2003 JANUAR    EUR 81000 
2003 JANUAR    EUR 92500 
2003 JANUAR    EUR 33300 
2003 FEBRUAR   EUR 99000 
2003 FEBRUAR   EUR 93000 
2003 MAERZ     EUR 14000 
2003 MAERZ     EUR 86700 
2003 MAERZ     EUR 36400 
2003 MAI       EUR 23000 
2003 MAI       EUR 23000 
2003 MAI       EUR 65500 
2003 JUNI      EUR 93000 
2003 JUNI      EUR  8400 
2003 OKTOBER   EUR 95000 
2003 OKTOBER   EUR  7100 
2003 DEZEMBER  EUR 89300 
2003 DEZEMBER  EUR  3000 
2003 DEZEMBER  EUR 43000 

Ablaufprotokoll:

/ADD-FILE-LINK FILE-NAME=PERS.ACCOUNT,- ———————————————————————————————  (1)
/              LINK-NAME=PCIN
/CREATE-FILE FILE-NAME=PERS.REPORT ————————————————————————————————————  (2)
/ADD-FILE-LINK FILE-NAME=PERS.REPORT,-
/              ACCESS-METHOD=*SAM,-
/              LINK-NAME=PCOUT
/START-PERCON —————————————————————————————————————————————————————————  (3)
%  PER0000 PERCON STARTED, VERSION V03.0A00
//SET-GROUP-ATTRIBUTES - ——————————————————————————————————————————————  (4) 
//   GROUP-LEVEL=1,-
//   GROUP-CONTROL=*FIELD(POSITION=5,-
//                        LENGTH=4),-
//   GROUP-HEADER=(-
//      *SPACING(LINES=3),-
//      'JAHRESBERICHT'(OUTPUT-POSITION=2),-
//      *FIELD(-
//         INPUT-POSITION=5,-
//         INPUT-LENGTH=4,-
//         INPUT-FORMAT=*CHARACTER,-
//         OUTPUT-POSITION=16),-
//      *SPACING(LINES=1)),-
//   GROUP-TRAILER=(-
//      *SPACING(LINES=2),-
//      'JAHRESSUMME VON '(OUTPUT-POSITION=2),-
//      *FIELD(-
//         INPUT-POSITION=5,-
//         INPUT-LENGTH=4,-
//         INPUT-FORMAT=*CHARACTER,-
//         OUTPUT-POSITION=18),-
//      ': EUR '(OUTPUT-POSITION=22),-
//      *SUM-FIELD(-
//         INPUT-POSITION=24,-
//         INPUT-LENGTH=5,-
//         INPUT-FORMAT=*ZONED-DECIMAL,-
//         OUTPUT-POSITION=28,-
//         OUTPUT-LENGTH=6,-
//         OUTPUT-FORMAT=*ZONED-DECIMAL))

(1)	Die Eingabedatei PERS.ACCOUNT wird mit dem Standarddateikettungsnamen PCIN über ein ADD-FILE-LINK-Kommando zugewiesen.
(2)	Die Ausgabedatei PERS.REPORT wird emit einem CREATE-FILE-Kommando eingerichtet und mit dem Standarddateikettungsnamen PCOUT über ein ADD-FILE-LINK-Kommando zugewiesen.
(3)	PERCON wird aufgerufen.
(4)	Diese SET-GROUP-ATTRIBUTES-Anweisung legt die Gruppenstufe 1, die Jahreszahl als Gruppenbegriff und den Gruppenvor- und -nachlauf für diese Gruppe fest.

//SET-GROUP-ATTRIBUTES ,- —————————————————————————————————————————————  (5) 
//   GROUP-LEVEL=2,-
//   GROUP-CONTROL=*FIELD(POSITION=10,-
//                        LENGTH=9),-
//   GROUP-HEADER=(-
//      *SPACING(LINES=1),-
//      'MONAT:'(OUTPUT-POSITION=4),-
//      *FIELD(-
//         INPUT-POSITION=10,-
//         INPUT-LENGTH=9,-
//         INPUT-FORMAT=*CHARACTER,-
//         OUTPUT-POSITION=11),-
//      *SPACING(LINES=1)),-
//   GROUP-TRAILER=(-
//      *SPACING(LINES=1),-
//      'MONATSSUMME VON '(OUTPUT-POSITION=2),-
//      *FIELD(-
//         INPUT-POSITION=10,-
//         INPUT-LENGTH=9,-
//         INPUT-FORMAT=*CHARACTER,-
//         OUTPUT-POSITION=18),-
//      ': EUR '(OUTPUT-POSITION=27),-
//      *SUM-FIELD(-
//         INPUT-POSITION=24,-
//         INPUT-LENGTH=5,-
//         INPUT-FORMAT=*ZONED-DECIMAL,-
//         OUTPUT-POSITION=33,-
//         OUTPUT-LENGTH=6,-
//         OUTPUT-FORMAT=*ZONED-DECIMAL))
//END —————————————————————————————————————————————————————————————————————  (6)
%  PER0030 NUMBER OF PROCESSED RECORDS FOR LINK=PCIN (FILE=PERS.ACCOUNT): 37 (7)
%  PER0030 NUMBER OF PROCESSED RECORDS FOR LINK=PCOUT(FILE=PERS.REPORT): 37
% PER0031 PERCON TERMINATED NORMALLY ——————————————————————————————————————  (8)

(5)	Diese SET-GROUP-ATTRIBUTES-Anweisung legt die Gruppenstufe 2, den Monat als Gruppenbegriff und den Gruppenvor- und -nachlauf für diese Gruppe fest.
(6)	Die END-Anweisung startet den Übertragungsvorgang und beendet PERCON.
(7)	PERCON-Meldungen: Die Anzahl der pro Datei übertragenen Sätze wird ausgegeben. Die Dateien werden mit dem Dateikettungsnamen und dem Dateinamen aufgeführt.
(8)	PERCON wurde normal beendet.

Ausdruck der Ausgabedatei PERS.REPORT

                                                                            PAGE     1
 
 JAHRESBERICHT 2002
 
   MONAT: JANUAR
2002 JANUAR    EUR 83000
2002 JANUAR    EUR  4000
2002 JANUAR    EUR 17600
2002 JANUAR    EUR 12110
 
 MONATSSUMME VON JANUAR   : EUR 116710
 
   MONAT: FEBRUAR
2002 FEBRUAR   EUR 16900
2002 FEBRUAR   EUR 43000
2002 FEBRUAR   EUR 78000
 
 MONATSSUMME VON FEBRUAR  : EUR 137900
 
   MONAT: APRIL
2002 APRIL     EUR 93500
2002 APRIL     EUR 26000
 
 MONATSSUMME VON APRIL    : EUR 119500
 
   MONAT: JULI
2002 JULI      EUR 11450
2002 JULI      EUR 98000
2002 JULI      EUR 40500
2002 JULI      EUR 13000
 
 MONATSSUMME VON JULI     : EUR 162950
 
   MONAT: SEPTEMBER
2002 SEPTEMBER EUR 32500
2002 SEPTEMBER EUR 72500
 
 MONATSSUMME VON SEPTEMBER: EUR 105000
 
   MONAT: DEZEMBER
2002 DEZEMBER  EUR 21500
2002 DEZEMBER  EUR 73000
2002 DEZEMBER  EUR 33000
2002 DEZEMBER  EUR 43000
 
 MONATSSUMME VON DEZEMBER : EUR 170500
 
 
 JAHRESSUMME VON 2002: EUR 812560
 
 
 
 JAHRESBERICHT 2003
 
   MONAT: JANUAR
2003 JANUAR    EUR 81000
2003 JANUAR    EUR 92500
2003 JANUAR    EUR 33300
 
 MONATSSUMME VON JANUAR   : EUR 206800
 
                                                                           PAGE     2
 
 
 
   MONAT: FEBRUAR
2003 FEBRUAR   EUR 99000
2003 FEBRUAR   EUR 93000
 
 MONATSSUMME VON FEBRUAR  : EUR 192000
 
   MONAT: MAERZ
2003 MAERZ     EUR 14000
2003 MAERZ     EUR 86700
2003 MAERZ     EUR 36400
 
 MONATSSUMME VON MAERZ    : EUR 137100
 
   MONAT: MAI
2003 MAI       EUR 23000
2003 MAI       EUR 23000
2003 MAI       EUR 65500
 
 MONATSSUMME VON MAI      : EUR 111500
 
   MONAT: JUNI
2003 JUNI      EUR 93000
2003 JUNI      EUR  8400
 
 MONATSSUMME VON JUNI     : EUR 101400
 
   MONAT: OKTOBER
2003 OKTOBER   EUR 95000
2003 OKTOBER   EUR  7100
 
 MONATSSUMME VON OKTOBER  : EUR 102100
 
   MONAT: DEZEMBER
2003 DEZEMBER  EUR 89300
2003 DEZEMBER  EUR  3000
2003 DEZEMBER  EUR 43000
 
 MONATSSUMME VON DEZEMBER : EUR 135300
 
 
 JAHRESSUMME VON 2003: EUR 986200