****************************************************************
**
** PROGRAM NAME: JONAS5.RPG
** AUTHOR: JONAS WIK
** DESCRIPTION:
** THIS PROGRAM READS IN A FILE OF VOTERS
AND PRESENTS
** THE NUMBER OF VOTERS FOR EACH TOWN AND
EACH COUNTY OF
** THE WONDERFUL STATE OF IOWA.
** EACH COUNTY IS PRINTED ON A SEPARATE
PAGE.
**
****************************************************************
**
** INDICATOR SUMMARY:
** 01 RECORD IDENTIFIER INDICATOR FOR FISRT
PRINTING
** 1P FIRST PAGE INDICATOR FOR HEADERS ON
REPORT
** OF OVERFLOW INDICATOR
** 10 INDICATOR TO SAY WHEN TO SHIFT PAGE
** L1 INDICATOR FOR CONTROLBREAK WHEN
TWNNUM CHANGES
** L2 INDICATOR FOR CONTROLBREAK WHEN
CTYNUM CHANGES
** LR INDICATOR FOR LAST RECORD
**
****************************************************************
FMVOTEP IP
F 80 DISK
FQSYSPRT
O F
80 OF PRINTER
****************************************************************
**
** RECORD DESCRIPTION FOR INPUT FILE MVOTEP
** FIELD DESCR. DATA TYPE FIELD NAME
** DISTRICT NUM 4 DIGITS 0 DEC DSTNUM
** TOWN NUMBER 3 DIGITS 0 DEC TWNNUM
** COUNTY NUMBER 2 DIGITS 0 DEC CTYNUM
** NUMBER OF VOTES 6 DIGITS 0 DEC VOTERS
**
****************************************************************
IMVOTEP NS 01
I 1 40DSTNUM
I 5 70TWNNUML1
I 8 90CTYNUML2
I 10 150VOTERS
I 16 80 FILLER
****************************************************************
**
** DATA STRUCTURE #WORK
** TWNTOT = TOWN TOTAL
** CTYTOT = COUNTY TOTAL
** FINTOT = FINAL TOTAL
**
****************************************************************
I#WORK DS
I 1 70TWNTOT
I 8 150CTYTOT
I 16 240FINTOT
****************************************************************
**
** CALCULATIONS SPECIFICATIONS
** THE NUMBER OF VOTERS IS ADDED TO THE
TOWN TOTAL
** IF THE TOWNNUMBER CHANGES THE TOWNTOTAL
IS ADDED TO THE
** COUNTY TOTAL, ELSE IF THE COUNTY
CHANGES, THE COUNTY
** TOTAL IS ADDED TO THE FINAL TOTAL.
**
****************************************************************
CL2 SETOF OF
C ADD VOTERS
TWNTOT
CL1 ADD TWNTOT
CTYTOT
CL2 ADD CTYTOT
FINTOT
CL2 SETON OF
****************************************************************
**
** OUTPUT STARTS HERE
**
****************************************************************
OQSYSPRT
H 101
1P
O OR
OF
O OR
10
O 5 'DATE '
O UDATE Y 13
O 47 'STATE OF
IOWA'
O 76 'PAGE '
O PAGE Z 80
O H
3 1P
O OR
OF
O OR
10
O 9 'JONAS
WIK'
O 39 'VOTERS REPORT BY '
O 64
'DISTRICT, TOWN & COUNTY'
O H
2 1P
O OR
OF
O OR
10
O 27
'DISTRICT'
O 37 'TOWN'
O 49 'COUNTY'
O 68 'VOTERS'
O D
1 01
O DSTNUM 25
O TWNNUM 37
O CTYNUM 47
O VOTERSJ 68
****************************************************************
**
** THIS IS PRINTED IF THE TOWN CHANGES
**
****************************************************************
O T 12
L1
O 45 'TOTAL
VOTERS FOR TOWN '
O TWNNUM 48
O TWNTOTJB 68
****************************************************************
**
** THIS IS PRINTED IF THE COUNTY CHANGES
**
****************************************************************
O T
2 L2
O 46 'TOTAL VOTERS FOR COUNTY '
O CTYNUM 48
O CTYTOTJB 68
****************************************************************
**
** THIS IS PRINTED AT THE END OF FILE
**
****************************************************************
O T
2 LR
O 45 'TOTAL
VOTERS FOR STATE '
O 52 'OF IOWA'
O FINTOTJ
68
****************************************************************
**
** T H E E N D
**
****************************************************************