Loading...
Select Version
&pagelevel(3)&pagelevel
Input:
SAM file PERS.ACCOUNT
Output:
SAM file PERS.REPORT
Printout of the input file PERS.ACCOUNT
2002 JANUARY $ 83000 2002 JANUARY $ 4000 2002 JANUARY $ 17600 2002 JANUARY $ 12110 2002 FEBRUARY $ 16900 2002 FEBRUARY $ 43000 2002 FEBRUARY $ 78000 2002 APRIL $ 93500 2002 APRIL $ 26000 2002 JULY $ 11450 2002 JULY $ 98000 2002 JULY $ 40500 2002 JULY $ 13000 2002 SEPTEMBER $ 32500 2002 SEPTEMBER $ 72500 2002 DECEMBER $ 21500 2002 DECEMBER $ 73000 2002 DECEMBER $ 33000 2002 DECEMBER $ 43000 2003 JANUARY $ 81000 2003 JANUARY $ 92500 2003 JANUARY $ 33300 2003 FEBRUARY $ 99000 2003 FEBRUARY $ 93000 2003 MARCH $ 14000 2003 MARCH $ 86700 2003 MARCH $ 36400 2003 MAY $ 23000 2003 MAY $ 23000 2003 MAY $ 65500 2003 JUNE $ 93000 2003 JUNE $ 8400 2003 OCTOBER $ 95000 2003 OCTOBER $ 7100 2003 DECEMBER $ 89300 2003 DECEMBER $ 3000 2003 DECEMBER $ 43000
Tracer listing:
/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),- // 'ANNUAL REPORT'(OUTPUT-POSITION=2),- // *FIELD(- // INPUT-POSITION=5,- // INPUT-LENGTH=4,- // INPUT-FORMAT=*CHARACTER,- // OUTPUT-POSITION=16),- // *SPACING(LINES=1)),- // GROUP-TRAILER=(- // *SPACING(LINES=2),- // 'YEARLY TOTAL FOR'(OUTPUT-POSITION=2),- // *FIELD(- // INPUT-POSITION=5,- // INPUT-LENGTH=4,- // INPUT-FORMAT=*CHARACTER,- // OUTPUT-POSITION=19),- // ': $ '(OUTPUT-POSITION=23),- // *SUM-FIELD(- // INPUT-POSITION=22,- // INPUT-LENGTH=5,- // INPUT-FORMAT=*ZONED-DECIMAL,- // OUTPUT-POSITION=27,- // OUTPUT-LENGTH=6,- // OUTPUT-FORMAT=*ZONED-DECIMAL))
(1) | The input file PERS.ACCOUNT is assigned with the standard link name PCIN by means of an ADD-FILE-LINK command. |
(2) | The output file PERS.REPORT is created via a CREATE-FILE-COMMAND and assigned with the standard link name PCOUT by means of an ADD-FILE-LINK command. |
(3) | PERCON is called. |
(4) | This SET-GROUP-ATTRIBUTES statement defines group level 1, the year as the grouping criterion, and the group header and trailer for this group. |
//SET-GROUP-ATTRIBUTES ————————————————————————————————————————————————————— (5) // GROUP-LEVEL=2,- // GROUP-CONTROL=*FIELD(POSITION=10,- // LENGTH=9),- // GROUP-HEADER=(- // *SPACING(LINES=1),- // 'MONTH:'(OUTPUT-POSITION=4),- // *FIELD(INPUT-POSITION=10,- // INPUT-LENGTH=9,- // INPUT-FORMAT=*CHARACTER,- // OUTPUT-POSITION=11),- // *SPACING(LINES=1)),- // GROUP-TRAILER=(- // *SPACING(LINES=1),- // 'MONTHLY TOTAL FOR'(OUTPUT-POSITION=2),- // *FIELD(- // INPUT-POSITION=10,- // INPUT-LENGTH=9,- // INPUT-FORMAT=*CHARACTER,- // OUTPUT-POSITION=20),- // ': $ '(OUTPUT-POSITION=29),- // *SUM-FIELD(- // INPUT-POSITION=22,- // INPUT-LENGTH=5,- // INPUT-FORMAT=*ZONED-DECIMAL,- // OUTPUT-POSITION=34,- // 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) | This SET-GROUP-ATTRIBUTES statement defines group level 2, the month as the grouping criterion, and the group header and trailer for this group. |
(6) | The END statement starts the transfer operation and terminates PERCON. |
(7) | PERCON messages: the number of records transferred per file is output. The files are listed with their link and file names. |
(8) | PERCON was terminated normally. |
Printout of the output file PERS.REPORT
PAGE 1
ANNUAL REPORT 2002
MONTH: JANUARY
2002 JANUARY $ 83000
2002 JANUARY $ 4000
2002 JANUARY $ 17600
2002 JANUARY $ 12110
MONTHLY TOTAL FOR JANUARY : $ 116710
MONTH: FEBRUARY
2002 FEBRUARY $ 16900
2002 FEBRUARY $ 43000
2002 FEBRUARY $ 78000
MONTHLY TOTAL FOR FEBRUARY : $ 137900
MONTH: APRIL
2002 APRIL $ 93500
2002 APRIL $ 26000
MONTHLY TOTAL FOR APRIL : $ 119500
MONTH: JULY
2002 JULY $ 11450
2002 JULY $ 98000
2002 JULY $ 40500
2002 JULY $ 13000
MONTHLY TOTAL FOR JULY : $ 162950
MONTH: SEPTEMBER
2002 SEPTEMBER $ 32500
2002 SEPTEMBER $ 72500
MONTHLY TOTAL FOR SEPTEMBER: $ 105000
MONTH: DECEMBER
2002 DECEMBER $ 21500
2002 DECEMBER $ 73000
2002 DECEMBER $ 33000
2002 DECEMBER $ 43000
MONTHLY TOTAL FOR DECEMBER : $ 170500
YEARLY TOTAL FOR 2002: $812560
ANNUAL REPORT 2003
MONTH: JANUARY
2003 JANUARY $ 81000
2003 JANUARY $ 92500
2003 JANUARY $ 33300
MONTHLY TOTAL FOR JANUARY : $ 206800
PAGE 2
MONTH: FEBRUARY
2003 FEBRUARY $ 99000
2003 FEBRUARY $ 93000
MONTHLY TOTAL FOR FEBRUARY : $ 192000
MONTH: MARCH
2003 MARCH $ 14000
2003 MARCH $ 86700
2003 MARCH $ 36400
MONTHLY TOTAL FOR MARCH : $ 137100
MONTH: MAY
2003 MAY $ 23000
2003 MAY $ 23000
2003 MAY $ 65500
MONTHLY TOTAL FOR MAY : $ 111500
MONTH: JUNE
2003 JUNE $ 93000
2003 JUNE $ 8400
MONTHLY TOTAL FOR JUNE : $ 101400
MONTH: OCTOBER
2003 OCTOBER $ 95000
2003 OCTOBER $ 7100
MONTHLY TOTAL FOR OCTOBER : $ 102100
MONTH: DECEMBER
2003 DECEMBER $ 89300
2003 DECEMBER $ 3000
2003 DECEMBER $ 43000
MONTHLY TOTAL FOR DECEMBER : $ 135300
YEARLY TOTAL FOR 2003: $986200