CB545 V2 LVL78 01MAY72 IBM OS AMERICAN NATIONAL STANDARD COBOL DATE APR 5,1980
1
00001 000100 IDENTIFICATION DIVISION.
00002 000200 PROGRAM-ID. RWEX06.
00003 000300 AUTHOR. JAY MOSELEY.
00004 000400 DATE-WRITTEN. APRIL, 2008.
00005 000500 DATE-COMPILED. APR 5,1980
00007 000700* ************************************************************* *
00008 000800* REPORT WRITER EXAMPLE #6. *
00009 000900* ************************************************************* *
00011 001100 ENVIRONMENT DIVISION.
00012 001200 CONFIGURATION SECTION.
00013 001300 SOURCE-COMPUTER. IBM-370.
00014 001400 OBJECT-COMPUTER. IBM-370.
00015 001500
00016 001600 INPUT-OUTPUT SECTION.
00017 001700 FILE-CONTROL.
00018 001800
00019 001900 SELECT PAYROLL-REGISTER-DATA
00020 002000 ASSIGN TO UT-S-DATAIN.
00021 002100
00022 002200 SELECT REPORT-FILE
00023 002300 ASSIGN TO UR-S-SYSPRINT.
00024 002400
00025 002500 DATA DIVISION.
00026 002600 FILE SECTION.
00027 002700
00028 002800 FD PAYROLL-REGISTER-DATA
00029 002900 LABEL RECORDS ARE OMITTED
00030 003000 BLOCK CONTAINS 0 RECORDS
00031 003100 RECORD CONTAINS 80 CHARACTERS
00032 003200 DATA RECORD IS PAYROLL-REGISTER-RECORD.
00033 003300
00034 003400 01 PAYROLL-REGISTER-RECORD.
00035 003500 03 PRR-DEPARTMENT-NUMBER PIC 9(02).
00036 003600 03 FILLER PIC X(01).
00037 003700 03 PRR-EMPLOYEE-KEY.
00038 003800 05 PRR-EMPLOYEE-NO PIC 9(04).
00039 003900 05 FILLER PIC X(01).
00040 004000 05 PRR-GENDER PIC X(01).
00041 004100 05 FILLER PIC X(01).
00042 004200 05 PRR-EMPLOYEE-NAME PIC X(20).
00043 004300 03 FILLER PIC X(01).
00044 004400 03 PRR-PAY-DATE PIC 9(08).
00045 004500 03 FILLER REDEFINES PRR-PAY-DATE.
00046 004600 05 PRR-PAY-DATE-YEAR PIC 9(04).
00047 004700 05 PRR-PAY-DATE-MONTH PIC 9(02).
00048 004800 05 PRR-PAY-DATE-DAY PIC 9(02).
00049 004900 03 FILLER PIC X(01).
00050 005000 03 PRR-GROSS-PAY PIC 9(04)V99.
00051 005100 03 FILLER PIC X(01).
00052 005200 03 PRR-FICA-WH PIC 9(03)V99.
00053 005300 03 FILLER PIC X(01).
00054 005400 03 PRR-FED-WH PIC 9(03)V99.
00055 005500 03 FILLER PIC X(01).
00056 005600 03 PRR-MISC-DED PIC 9(03)V99.
========================================================================================================================
2
00057 005700 03 FILLER PIC X(01).
00058 005800 03 PRR-NET-PAY PIC 9(04)V99.
00059 005900 03 FILLER PIC X(09).
00060 006000
00061 006100 FD REPORT-FILE
00062 006200 LABEL RECORDS ARE OMITTED
00063 006300 REPORT IS QUARTERLY-PAY-REGISTER.
00064 006400
00065 006500 WORKING-STORAGE SECTION.
00066 006600 77 END-OF-FILE-SWITCH PIC X(1) VALUE 'N'.
00067 006700 88 END-OF-FILE VALUE 'Y'.
00068 006800
00069 006900 01 WS-EMPLOYEE-KEY.
00070 007000 03 WS-EMPLOYEE-NUMBER PIC 9(04).
00071 007100 03 FILLER PIC X(03).
00072 007200 03 WS-EMPLOYEE-NAME PIC X(20).
00073 007300
00074 007400 01 WS-PERCENTS-COMPUTED.
00075 007500 03 WPC-DEPT OCCURS 6 TIMES
00076 007600 INDEXED BY WPCD-IX.
00077 007700 05 WPC-PERCENT OCCURS 5 TIMES
00078 007800 INDEXED BY WPCC-IX
00079 007900 PIC 9(3)V99.
00080 008000
00081 008100 01 DEPARTMENT-TABLE.
00082 008200 03 FILLER PIC X(17) VALUE '01MANAGEMENT '.
00083 008300 03 FILLER PIC X(50) VALUE ZEROS.
00084 008400 03 FILLER PIC X(17) VALUE '05ADMINISTRATIVE '.
00085 008500 03 FILLER PIC X(50) VALUE ZEROS.
00086 008600 03 FILLER PIC X(17) VALUE '10SKILLED NURSING'.
00087 008700 03 FILLER PIC X(50) VALUE ZEROS.
00088 008800 03 FILLER PIC X(17) VALUE '15PATIENT SUPPORT'.
00089 008900 03 FILLER PIC X(50) VALUE ZEROS.
00090 009000 03 FILLER PIC X(17) VALUE '20HOUSEKEEPING '.
00091 009100 03 FILLER PIC X(50) VALUE ZEROS.
00092 009200 03 FILLER PIC X(17) VALUE '25MAINTENANCE '.
00093 009300 03 FILLER PIC X(50) VALUE ZEROS.
00094 009400 01 FILLER REDEFINES DEPARTMENT-TABLE.
00095 009500 03 DEPARTMENT-ENTRY OCCURS 6 TIMES
00096 009600 INDEXED BY DE-IX.
00097 009700 05 DE-NUMBER PIC 9(02).
00098 009800 05 DE-NAME PIC X(15).
00099 009900 05 DE-GROSS PIC 9(08)V99.
00100 010000 05 DE-FICA PIC 9(08)V99.
00101 010100 05 DE-FWT PIC 9(08)V99.
00102 010200 05 DE-MISC PIC 9(08)V99.
00103 010300 05 DE-NET PIC 9(08)V99.
00104 010400
00105 010500 REPORT SECTION.
00106 010600 RD QUARTERLY-PAY-REGISTER
00107 010700 CONTROLS ARE FINAL, PRR-DEPARTMENT-NUMBER,
00108 010800 PRR-EMPLOYEE-KEY
00109 010900 PAGE LIMIT IS 66 LINES
00110 011000 HEADING 1
00111 011100 FIRST DETAIL 7
00112 011200 LAST DETAIL 60.
00113 011300
========================================================================================================================
3
00114 011400 01 TYPE PAGE HEADING.
00115 011500 02 LINE 1.
00116 011600 03 COLUMN 39 PIC X(13) VALUE 'C E N T U R Y'.
00117 011700 03 COLUMN 55 PIC X(13) VALUE 'M E D I C A L'.
00118 011800 03 COLUMN 71 PIC X(11) VALUE 'C E N T E R'.
00119 011900 02 LINE 2.
00120 012000 03 COLUMN 35 PIC X(17) VALUE 'Q U A R T E R L Y'.
00121 012100 03 COLUMN 55 PIC X(13) VALUE 'P A Y R O L L'.
00122 012200 03 COLUMN 71 PIC X(15) VALUE 'R E G I S T E R'.
00123 012300 03 COLUMN 111 PIC X(04) VALUE 'PAGE'.
00124 012400 03 COLUMN 116 PIC ZZZZ9 SOURCE PAGE-COUNTER.
00125 012500 02 LINE 4.
00126 012600 03 COLUMN 06 PIC X(28) VALUE
00127 012700 '--------- EMPLOYEE ---------'.
00128 012800 03 COLUMN 40 PIC X(05) VALUE 'GROSS'.
00129 012900 03 COLUMN 54 PIC X(04) VALUE 'FICA'.
00130 013000 03 COLUMN 66 PIC X(07) VALUE 'FED W/H'.
00131 013100 03 COLUMN 80 PIC X(05) VALUE 'MISC.'.
00132 013200 03 COLUMN 95 PIC X(03) VALUE 'NET'.
00133 013300 02 LINE 5.
00134 013400 03 COLUMN 07 PIC X(02) VALUE 'NO'.
00135 013500 03 COLUMN 22 PIC X(04) VALUE 'NAME'.
00136 013600 03 COLUMN 41 PIC X(03) VALUE 'PAY'.
00137 013700 03 COLUMN 55 PIC X(03) VALUE 'TAX'.
00138 013800 03 COLUMN 68 PIC X(03) VALUE 'TAX'.
00139 013900 03 COLUMN 79 PIC X(07) VALUE 'DEDUCT.'.
00140 014000 03 COLUMN 95 PIC X(03) VALUE 'PAY'.
00141 014100
00142 014200 01 DEPT-HEAD TYPE CONTROL HEADING PRR-DEPARTMENT-NUMBER
00143 014300 NEXT GROUP PLUS 1.
00144 014400 02 LINE PLUS 1.
00145 014500 03 COLUMN 01 PIC X(18) VALUE
00146 014600 'DEPARTMENT NUMBER:'.
00147 014700 03 COLUMN 21 PIC 9(02) SOURCE PRR-DEPARTMENT-NUMBER.
00148 014800 03 COLUMN 24 PIC X(15) SOURCE DE-NAME (DE-IX).
00149 014900
00150 015000 01 EMPLOYEE-DETAIL TYPE DETAIL.
00151 015100 02 LINE PLUS 1.
00152 015200 03 COLUMN 01 PIC X(27) SOURCE PRR-EMPLOYEE-KEY.
00153 015300 03 COLUMN 50 PIC 9(04).99 SOURCE PRR-GROSS-PAY.
00154 015400 03 COLUMN 60 PIC 9(03).99 SOURCE PRR-FICA-WH.
00155 015500 03 COLUMN 70 PIC 9(03).99 SOURCE PRR-FED-WH.
00156 015600 03 COLUMN 80 PIC 9(03).99 SOURCE PRR-MISC-DED.
00157 015700 03 COLUMN 90 PIC 9(04).99 SOURCE PRR-NET-PAY.
00158 015800
00159 015900 01 EMPL-FOOT TYPE CONTROL FOOTING PRR-EMPLOYEE-KEY.
00160 016000 02 LINE PLUS 1.
00161 016100 03 COLUMN 06 PIC ZZZ9 SOURCE WS-EMPLOYEE-NUMBER.
00162 016200 03 COLUMN 14 PIC X(20) SOURCE WS-EMPLOYEE-NAME.
00163 016300 03 COLUMN 38 PIC $$,$$9.99 SUM PRR-GROSS-PAY.
00164 016400 03 COLUMN 53 PIC $$$9.99 SUM PRR-FICA-WH.
00165 016500 03 COLUMN 66 PIC $$$9.99 SUM PRR-FED-WH.
00166 016600 03 COLUMN 79 PIC $$$9.99 SUM PRR-MISC-DED.
00167 016700 03 COLUMN 92 PIC $$,$$9.99 SUM PRR-NET-PAY.
00168 016800
00169 016900 01 DEPT-FOOT TYPE CONTROL FOOTING PRR-DEPARTMENT-NUMBER
00170 017000 NEXT GROUP PLUS 2.
========================================================================================================================
4
00171 017100 02 LINE PLUS 2.
00172 017200 03 COLUMN 14 PIC X(20) VALUE
00173 017300 'DEPARTMENT TOTALS'.
00174 017400 03 DEPT-FOOT-GROSS COLUMN 38 PIC $$,$$9.99
00175 017500 SUM PRR-GROSS-PAY.
00176 017600 03 COLUMN 48 PIC X VALUE '*'.
00177 017700 03 DEPT-FOOT-FICA COLUMN 53 PIC $$$9.99
00178 017800 SUM PRR-FICA-WH.
00179 017900 03 COLUMN 61 PIC X VALUE '*'.
00180 018000 03 DEPT-FOOT-FWT COLUMN 66 PIC $$$9.99
00181 018100 SUM PRR-FED-WH.
00182 018200 03 COLUMN 74 PIC X VALUE '*'.
00183 018300 03 DEPT-FOOT-MISC COLUMN 79 PIC $$$9.99
00184 018400 SUM PRR-MISC-DED.
00185 018500 03 COLUMN 87 PIC X VALUE '*'.
00186 018600 03 DEPT-FOOT-NET COLUMN 92 PIC $$,$$9.99
00187 018700 SUM PRR-NET-PAY.
00188 018800 03 COLUMN 102 PIC X VALUE '*'.
00189 018900
00190 019000 01 COMP-FOOT TYPE CONTROL FOOTING FINAL.
00191 019100 02 LINE PLUS 2.
00192 019200 03 COLUMN 14 PIC X(20) VALUE
00193 019300 'COMPANY TOTALS'.
00194 019400 03 CO-GROSS COLUMN 37 PIC $$$,$$9.99
00195 019500 SUM PRR-GROSS-PAY.
00196 019600 03 COLUMN 48 PIC XX VALUE '**'.
00197 019700 03 CO-FICA COLUMN 51 PIC $$,$$9.99
00198 019800 SUM PRR-FICA-WH.
00199 019900 03 COLUMN 61 PIC XX VALUE '**'.
00200 020000 03 CO-FWT COLUMN 64 PIC $$,$$9.99
00201 020100 SUM PRR-FED-WH.
00202 020200 03 COLUMN 74 PIC XX VALUE '**'.
00203 020300 03 CO-MISC COLUMN 77 PIC $$,$$9.99
00204 020400 SUM PRR-MISC-DED.
00205 020500 03 COLUMN 87 PIC XX VALUE '**'.
00206 020600 03 CO-NET COLUMN 91 PIC $$$,$$9.99
00207 020700 SUM PRR-NET-PAY.
00208 020800 03 COLUMN 102 PIC XX VALUE '**'.
00209 020900
00210 021000 01 REPORT-FOOT TYPE REPORT FOOTING.
00211 021100 02 LINE 1.
00212 021200 03 COLUMN 39 PIC X(13) VALUE 'C E N T U R Y'.
00213 021300 03 COLUMN 55 PIC X(13) VALUE 'M E D I C A L'.
00214 021400 03 COLUMN 71 PIC X(11) VALUE 'C E N T E R'.
00215 021500 02 LINE 2.
00216 021600 03 COLUMN 35 PIC X(17) VALUE 'Q U A R T E R L Y'.
00217 021700 03 COLUMN 55 PIC X(13) VALUE 'P A Y R O L L'.
00218 021800 03 COLUMN 71 PIC X(15) VALUE 'R E G I S T E R'.
00219 021900 03 COLUMN 111 PIC X(04) VALUE 'PAGE'.
00220 022000 03 COLUMN 116 PIC ZZZZ9 SOURCE PAGE-COUNTER.
00221 022100 02 LINE 4.
00222 022200 03 COLUMN 40 PIC X(05) VALUE 'GROSS'.
00223 022300 03 COLUMN 58 PIC X(04) VALUE 'FICA'.
00224 022400 03 COLUMN 74 PIC X(07) VALUE 'FED W/H'.
00225 022500 03 COLUMN 92 PIC X(05) VALUE 'MISC.'.
00226 022600 03 COLUMN 111 PIC X(03) VALUE 'NET'.
00227 022700 02 LINE 5.
========================================================================================================================
5
00228 022800 03 COLUMN 41 PIC X(03) VALUE 'PAY'.
00229 022900 03 COLUMN 59 PIC X(03) VALUE 'TAX'.
00230 023000 03 COLUMN 76 PIC X(03) VALUE 'TAX'.
00231 023100 03 COLUMN 91 PIC X(07) VALUE 'DEDUCT.'.
00232 023200 03 COLUMN 111 PIC X(03) VALUE 'PAY'.
00233 023300
00234 023400 02 LINE PLUS 2.
00235 023500 03 COLUMN 05 PIC X(29) VALUE
00236 023600 '* * * DEPARTMENT TOTALS * * *'.
00237 023700 02 LINE PLUS 2.
00238 023800 03 COLUMN 05 PIC 9(02) SOURCE DE-NUMBER (1).
00239 023900 03 COLUMN 08 PIC X(15) SOURCE DE-NAME (1).
00240 024000 03 COLUMN 38 PIC $$,$$9.99 SOURCE DE-GROSS (1).
00241 024100 03 COLUMN 48 PIC ZZ9 SOURCE WPC-PERCENT (1 1).
00242 024200 03 COLUMN 51 PIC X VALUE '%'.
00243 024300 03 COLUMN 57 PIC $$$9.99 SOURCE DE-FICA (1).
00244 024400 03 COLUMN 65 PIC ZZ9 SOURCE WPC-PERCENT (1 2).
00245 024500 03 COLUMN 68 PIC X VALUE '%'.
00246 024600 03 COLUMN 74 PIC $$$9.99 SOURCE DE-FWT (1).
00247 024700 03 COLUMN 82 PIC ZZ9 SOURCE WPC-PERCENT (1 3).
00248 024800 03 COLUMN 85 PIC X VALUE '%'.
00249 024900 03 COLUMN 91 PIC $$$9.99 SOURCE DE-MISC (1).
00250 025000 03 COLUMN 99 PIC ZZ9 SOURCE WPC-PERCENT (1 4).
00251 025100 03 COLUMN 102 PIC X VALUE '%'.
00252 025200 03 COLUMN 108 PIC $$,$$9.99 SOURCE DE-NET (1).
00253 025300 03 COLUMN 118 PIC ZZ9 SOURCE WPC-PERCENT (1 5).
00254 025400 03 COLUMN 121 PIC X VALUE '%'.
00255 025500 02 LINE PLUS 2.
00256 025600 03 COLUMN 05 PIC 9(02) SOURCE DE-NUMBER (2).
00257 025700 03 COLUMN 08 PIC X(15) SOURCE DE-NAME (2).
00258 025800 03 COLUMN 38 PIC $$,$$9.99 SOURCE DE-GROSS (2).
00259 025900 03 COLUMN 48 PIC ZZ9 SOURCE WPC-PERCENT (2 1).
00260 026000 03 COLUMN 51 PIC X VALUE '%'.
00261 026100 03 COLUMN 57 PIC $$$9.99 SOURCE DE-FICA (2).
00262 026200 03 COLUMN 65 PIC ZZ9 SOURCE WPC-PERCENT (2 2).
00263 026300 03 COLUMN 68 PIC X VALUE '%'.
00264 026400 03 COLUMN 74 PIC $$$9.99 SOURCE DE-FWT (2).
00265 026500 03 COLUMN 82 PIC ZZ9 SOURCE WPC-PERCENT (2 3).
00266 026600 03 COLUMN 85 PIC X VALUE '%'.
00267 026700 03 COLUMN 91 PIC $$$9.99 SOURCE DE-MISC (2).
00268 026800 03 COLUMN 99 PIC ZZ9 SOURCE WPC-PERCENT (2 4).
00269 026900 03 COLUMN 102 PIC X VALUE '%'.
00270 027000 03 COLUMN 108 PIC $$,$$9.99 SOURCE DE-NET (2).
00271 027100 03 COLUMN 118 PIC ZZ9 SOURCE WPC-PERCENT (2 5).
00272 027200 03 COLUMN 121 PIC X VALUE '%'.
00273 027300 02 LINE PLUS 2.
00274 027400 03 COLUMN 05 PIC 9(02) SOURCE DE-NUMBER (3).
00275 027500 03 COLUMN 08 PIC X(15) SOURCE DE-NAME (3).
00276 027600 03 COLUMN 38 PIC $$,$$9.99 SOURCE DE-GROSS (3).
00277 027700 03 COLUMN 48 PIC ZZ9 SOURCE WPC-PERCENT (3 1).
00278 027800 03 COLUMN 51 PIC X VALUE '%'.
00279 027900 03 COLUMN 57 PIC $$$9.99 SOURCE DE-FICA (3).
00280 028000 03 COLUMN 65 PIC ZZ9 SOURCE WPC-PERCENT (3 2).
00281 028100 03 COLUMN 68 PIC X VALUE '%'.
00282 028200 03 COLUMN 74 PIC $$$9.99 SOURCE DE-FWT (3).
00283 028300 03 COLUMN 82 PIC ZZ9 SOURCE WPC-PERCENT (3 3).
00284 028400 03 COLUMN 85 PIC X VALUE '%'.
========================================================================================================================
6
00285 028500 03 COLUMN 91 PIC $$$9.99 SOURCE DE-MISC (3).
00286 028600 03 COLUMN 99 PIC ZZ9 SOURCE WPC-PERCENT (3 4).
00287 028700 03 COLUMN 102 PIC X VALUE '%'.
00288 028800 03 COLUMN 108 PIC $$,$$9.99 SOURCE DE-NET (3).
00289 028900 03 COLUMN 118 PIC ZZ9 SOURCE WPC-PERCENT (3 5).
00290 029000 03 COLUMN 121 PIC X VALUE '%'.
00291 029100 02 LINE PLUS 2.
00292 029200 03 COLUMN 05 PIC 9(02) SOURCE DE-NUMBER (4).
00293 029300 03 COLUMN 08 PIC X(15) SOURCE DE-NAME (4).
00294 029400 03 COLUMN 38 PIC $$,$$9.99 SOURCE DE-GROSS (4).
00295 029500 03 COLUMN 48 PIC ZZ9 SOURCE WPC-PERCENT (4 1).
00296 029600 03 COLUMN 51 PIC X VALUE '%'.
00297 029700 03 COLUMN 57 PIC $$$9.99 SOURCE DE-FICA (4).
00298 029800 03 COLUMN 65 PIC ZZ9 SOURCE WPC-PERCENT (4 2).
00299 029900 03 COLUMN 68 PIC X VALUE '%'.
00300 030000 03 COLUMN 74 PIC $$$9.99 SOURCE DE-FWT (4).
00301 030100 03 COLUMN 82 PIC ZZ9 SOURCE WPC-PERCENT (4 3).
00302 030200 03 COLUMN 85 PIC X VALUE '%'.
00303 030300 03 COLUMN 91 PIC $$$9.99 SOURCE DE-MISC (4).
00304 030400 03 COLUMN 99 PIC ZZ9 SOURCE WPC-PERCENT (4 4).
00305 030500 03 COLUMN 102 PIC X VALUE '%'.
00306 030600 03 COLUMN 108 PIC $$,$$9.99 SOURCE DE-NET (4).
00307 030700 03 COLUMN 118 PIC ZZ9 SOURCE WPC-PERCENT (4 5).
00308 030800 03 COLUMN 121 PIC X VALUE '%'.
00309 030900 02 LINE PLUS 2.
00310 031000 03 COLUMN 05 PIC 9(02) SOURCE DE-NUMBER (5).
00311 031100 03 COLUMN 08 PIC X(15) SOURCE DE-NAME (5).
00312 031200 03 COLUMN 38 PIC $$,$$9.99 SOURCE DE-GROSS (5).
00313 031300 03 COLUMN 48 PIC ZZ9 SOURCE WPC-PERCENT (5 1).
00314 031400 03 COLUMN 51 PIC X VALUE '%'.
00315 031500 03 COLUMN 57 PIC $$$9.99 SOURCE DE-FICA (5).
00316 031600 03 COLUMN 65 PIC ZZ9 SOURCE WPC-PERCENT (5 2).
00317 031700 03 COLUMN 68 PIC X VALUE '%'.
00318 031800 03 COLUMN 74 PIC $$$9.99 SOURCE DE-FWT (5).
00319 031900 03 COLUMN 82 PIC ZZ9 SOURCE WPC-PERCENT (5 3).
00320 032000 03 COLUMN 85 PIC X VALUE '%'.
00321 032100 03 COLUMN 91 PIC $$$9.99 SOURCE DE-MISC (5).
00322 032200 03 COLUMN 99 PIC ZZ9 SOURCE WPC-PERCENT (5 4).
00323 032300 03 COLUMN 102 PIC X VALUE '%'.
00324 032400 03 COLUMN 108 PIC $$,$$9.99 SOURCE DE-NET (5).
00325 032500 03 COLUMN 118 PIC ZZ9 SOURCE WPC-PERCENT (5 5).
00326 032600 03 COLUMN 121 PIC X VALUE '%'.
00327 032700 02 LINE PLUS 2.
00328 032800 03 COLUMN 05 PIC 9(02) SOURCE DE-NUMBER (6).
00329 032900 03 COLUMN 08 PIC X(15) SOURCE DE-NAME (6).
00330 033000 03 COLUMN 38 PIC $$,$$9.99 SOURCE DE-GROSS (6).
00331 033100 03 COLUMN 48 PIC ZZ9 SOURCE WPC-PERCENT (6 1).
00332 033200 03 COLUMN 51 PIC X VALUE '%'.
00333 033300 03 COLUMN 57 PIC $$$9.99 SOURCE DE-FICA (6).
00334 033400 03 COLUMN 65 PIC ZZ9 SOURCE WPC-PERCENT (6 2).
00335 033500 03 COLUMN 68 PIC X VALUE '%'.
00336 033600 03 COLUMN 74 PIC $$$9.99 SOURCE DE-FWT (6).
00337 033700 03 COLUMN 82 PIC ZZ9 SOURCE WPC-PERCENT (6 3).
00338 033800 03 COLUMN 85 PIC X VALUE '%'.
00339 033900 03 COLUMN 91 PIC $$$9.99 SOURCE DE-MISC (6).
00340 034000 03 COLUMN 99 PIC ZZ9 SOURCE WPC-PERCENT (6 4).
00341 034100 03 COLUMN 102 PIC X VALUE '%'.
========================================================================================================================
7
00342 034200 03 COLUMN 108 PIC $$,$$9.99 SOURCE DE-NET (6).
00343 034300 03 COLUMN 118 PIC ZZ9 SOURCE WPC-PERCENT (6 5).
00344 034400 03 COLUMN 121 PIC X VALUE '%'.
00345 034500 02 LINE PLUS 2.
00346 034600 03 COLUMN 37 PIC $$$,$$9.99 SOURCE CO-GROSS.
00347 034700 03 COLUMN 48 PIC X(5) VALUE '100%'.
00348 034800 03 COLUMN 55 PIC $$,$$9.99 SOURCE CO-FICA.
00349 034900 03 COLUMN 65 PIC X(5) VALUE '100%'.
00350 035000 03 COLUMN 72 PIC $$,$$9.99 SOURCE CO-FWT.
00351 035100 03 COLUMN 82 PIC X(5) VALUE '100%'.
00352 035200 03 COLUMN 89 PIC $$,$$9.99 SOURCE CO-MISC.
00353 035300 03 COLUMN 99 PIC X(5) VALUE '100%'.
00354 035400 03 COLUMN 107 PIC $$$,$$9.99 SOURCE CO-NET.
00355 035500 03 COLUMN 118 PIC X(5) VALUE '100%'.
00356 035600
00357 035700 PROCEDURE DIVISION.
00358 035800
00359 035900 DECLARATIVES.
00360 036000
00361 036100 DEPT-HEAD-USE SECTION. USE BEFORE REPORTING DEPT-HEAD.
00362 036200 DEPT-HEAD-PROC.
00363 036300 SET DE-IX TO +1.
00364 036400 SEARCH DEPARTMENT-ENTRY
00365 036500 WHEN DE-NUMBER (DE-IX) = PRR-DEPARTMENT-NUMBER
00366 036600 MOVE ZEROS TO DE-GROSS (DE-IX), DE-FICA (DE-IX),
00367 036700 DE-FWT (DE-IX), DE-MISC (DE-IX),
00368 036800 DE-NET (DE-IX).
00369 036900
00370 037000 DEPT-HEAD-EXIT.
00371 037100 EXIT.
00372 037200
00373 037300 EMPL-FOOT-USE SECTION. USE BEFORE REPORTING EMPL-FOOT.
00374 037400 EMPL-FOOT-PROC.
00375 037500 MOVE PRR-EMPLOYEE-KEY TO WS-EMPLOYEE-KEY.
00376 037600
00377 037700 DEPT-FOOT-EXIT.
00378 037800 EXIT.
00379 037900
00380 038000 DEPT-FOOT-USE SECTION. USE BEFORE REPORTING DEPT-FOOT.
00381 038100 DEPT-FOOT-PROC.
00382 038200 MOVE DEPT-FOOT-GROSS TO DE-GROSS (DE-IX).
00383 038300 MOVE DEPT-FOOT-FICA TO DE-FICA (DE-IX).
00384 038400 MOVE DEPT-FOOT-FWT TO DE-FWT (DE-IX).
00385 038500 MOVE DEPT-FOOT-MISC TO DE-MISC (DE-IX).
00386 038600 MOVE DEPT-FOOT-NET TO DE-NET (DE-IX).
00387 038700
00388 038800 DEPT-FOOT-EXIT.
00389 038900 EXIT.
00390 039000
00391 039100 COMP-FOOT-USE SECTION. USE BEFORE REPORTING COMP-FOOT.
00392 039200 COMP-FOOT-PROC.
00393 039300 PERFORM COMP-FOOT-CALC
00394 039400 VARYING WPCD-IX FROM +1 BY +1
00395 039500 UNTIL WPCD-IX > +6.
00396 039600 GO TO DEPT-FOOT-EXIT.
00397 039700
00398 039800 COMP-FOOT-CALC.
========================================================================================================================
8
00399 039900 SET DE-IX TO WPCD-IX.
00400 040000 SET WPCC-IX TO +1.
00401 040100 COMPUTE WPC-PERCENT (WPCD-IX WPCC-IX) ROUNDED =
00402 040200 ((DE-GROSS (DE-IX) / CO-GROSS) * 100) + .5.
00403 040300 SET WPCC-IX TO +2.
00404 040400 COMPUTE WPC-PERCENT (WPCD-IX WPCC-IX) ROUNDED =
00405 040500 ((DE-FICA (DE-IX) / CO-FICA) * 100) + .5.
00406 040600 SET WPCC-IX TO +3.
00407 040700 COMPUTE WPC-PERCENT (WPCD-IX WPCC-IX) ROUNDED =
00408 040800 ((DE-FWT (DE-IX) / CO-FWT) * 100) + .5.
00409 040900 SET WPCC-IX TO +4.
00410 041000 COMPUTE WPC-PERCENT (WPCD-IX WPCC-IX) ROUNDED =
00411 041100 ((DE-MISC (DE-IX) / CO-MISC) * 100) + .5.
00412 041200 SET WPCC-IX TO +5.
00413 041300 COMPUTE WPC-PERCENT (WPCD-IX WPCC-IX) ROUNDED =
00414 041400 ((DE-NET (DE-IX) / CO-NET) * 100) + .5.
00415 041500
00416 041600 COMP-FOOT-EXIT.
00417 041700 EXIT.
00418 041800
00419 041900 END DECLARATIVES.
00420 042000
00421 042100 000-INITIATE.
00422 042200
00423 042300 OPEN INPUT PAYROLL-REGISTER-DATA,
00424 042400 OUTPUT REPORT-FILE.
00425 042500
00426 042600 INITIATE QUARTERLY-PAY-REGISTER.
00427 042700
00428 042800 READ PAYROLL-REGISTER-DATA
00429 042900 AT END
00430 043000 MOVE 'Y' TO END-OF-FILE-SWITCH.
00431 043100* END-READ.
00432 043200
00433 043300 PERFORM 100-PROCESS-PAYROLL-DATA THRU 199-EXIT
00434 043400 UNTIL END-OF-FILE.
00435 043500
00436 043600 000-TERMINATE.
00437 043700 TERMINATE QUARTERLY-PAY-REGISTER.
00438 043800
00439 043900 CLOSE PAYROLL-REGISTER-DATA,
00440 044000 REPORT-FILE.
00441 044100
00442 044200 STOP RUN.
00443 044300
00444 044400 100-PROCESS-PAYROLL-DATA.
00445 044500 GENERATE QUARTERLY-PAY-REGISTER.
00446 044600 READ PAYROLL-REGISTER-DATA
00447 044700 AT END
00448 044800 MOVE 'Y' TO END-OF-FILE-SWITCH.
00449 044900* END-READ.
00450 045000
00451 045100 199-EXIT.
00452 045200 EXIT.
00453 045300
========================================================================================================================
9
INTRNL NAME LVL SOURCE NAME BASE DISPL INTRNL NAME DEFINITION USAGE R O Q M
DNM=1-432 FD PAYROLL-REGISTER-DATA DCB=01 DNM=1-432 QSAM F
DNM=1-466 01 PAYROLL-REGISTER-RECORD BL=1 000 DNM=1-466 DS 0CL80 GROUP
DNM=2-000 02 PRR-DEPARTMENT-NUMBER BL=1 000 DNM=2-000 DS 2C DISP-NM
DNM=2-031 02 FILLER BL=1 002 DNM=2-031 DS 1C DISP
DNM=2-047 02 PRR-EMPLOYEE-KEY BL=1 003 DNM=2-047 DS 0CL27 GROUP
DNM=2-076 03 PRR-EMPLOYEE-NO BL=1 003 DNM=2-076 DS 4C DISP-NM
DNM=2-101 03 FILLER BL=1 007 DNM=2-101 DS 1C DISP
DNM=2-120 03 PRR-GENDER BL=1 008 DNM=2-120 DS 1C DISP
DNM=2-140 03 FILLER BL=1 009 DNM=2-140 DS 1C DISP
DNM=2-159 03 PRR-EMPLOYEE-NAME BL=1 00A DNM=2-159 DS 20C DISP
DNM=2-186 02 FILLER BL=1 01E DNM=2-186 DS 1C DISP
DNM=2-205 02 PRR-PAY-DATE BL=1 01F DNM=2-205 DS 8C DISP-NM
DNM=2-227 02 FILLER BL=1 01F DNM=2-227 DS 0CL8 GROUP R
DNM=2-249 03 PRR-PAY-DATE-YEAR BL=1 01F DNM=2-249 DS 4C DISP-NM
DNM=2-276 03 PRR-PAY-DATE-MONTH BL=1 023 DNM=2-276 DS 2C DISP-NM
DNM=2-304 03 PRR-PAY-DATE-DAY BL=1 025 DNM=2-304 DS 2C DISP-NM
DNM=2-330 02 FILLER BL=1 027 DNM=2-330 DS 1C DISP
DNM=2-349 02 PRR-GROSS-PAY BL=1 028 DNM=2-349 DS 6C DISP-NM
DNM=2-372 02 FILLER BL=1 02E DNM=2-372 DS 1C DISP
DNM=2-391 02 PRR-FICA-WH BL=1 02F DNM=2-391 DS 5C DISP-NM
DNM=2-412 02 FILLER BL=1 034 DNM=2-412 DS 1C DISP
DNM=2-431 02 PRR-FED-WH BL=1 035 DNM=2-431 DS 5C DISP-NM
DNM=2-451 02 FILLER BL=1 03A DNM=2-451 DS 1C DISP
DNM=2-470 02 PRR-MISC-DED BL=1 03B DNM=2-470 DS 5C DISP-NM
DNM=2-492 02 FILLER BL=1 040 DNM=2-492 DS 1C DISP
DNM=3-000 02 PRR-NET-PAY BL=1 041 DNM=3-000 DS 6C DISP-NM
DNM=3-021 02 FILLER BL=1 047 DNM=3-021 DS 9C DISP
DNM=3-040 FD REPORT-FILE DCB=02 DNM=3-040 QSAM F
DNM=3-064 01 -0001 BL=2 000 DNM=3-064 DS 133C DISP
DNM=3-079 77 END-OF-FILE-SWITCH BL=3 000 DNM=3-079 DS 1C DISP
DNM=3-110 88 END-OF-FILE DNM=3-110
DNM=3-132 01 WS-EMPLOYEE-KEY BL=3 008 DNM=3-132 DS 0CL27 GROUP
DNM=3-160 02 WS-EMPLOYEE-NUMBER BL=3 008 DNM=3-160 DS 4C DISP-NM
DNM=3-188 02 FILLER BL=3 00C DNM=3-188 DS 3C DISP
DNM=3-207 02 WS-EMPLOYEE-NAME BL=3 00F DNM=3-207 DS 20C DISP
DNM=3-233 01 WS-PERCENTS-COMPUTED BL=3 028 DNM=3-233 DS 0CL150 GROUP
DNM=3-266 WPCD-IX DNM=3-266 INDEX-NM
DNM=3-280 02 WPC-DEPT BL=3 028 DNM=3-280 DS 0CL25 GROUP O
DNM=3-301 WPCC-IX DNM=3-301 INDEX-NM
DNM=3-315 03 WPC-PERCENT BL=3 028 DNM=3-315 DS 5C DISP-NM O
DNM=3-339 01 DEPARTMENT-TABLE BL=3 0C0 DNM=3-339 DS 0CL402 GROUP
DNM=3-368 02 FILLER BL=3 0C0 DNM=3-368 DS 17C DISP
DNM=3-387 02 FILLER BL=3 0D1 DNM=3-387 DS 50C DISP
DNM=3-406 02 FILLER BL=3 103 DNM=3-406 DS 17C DISP
DNM=3-425 02 FILLER BL=3 114 DNM=3-425 DS 50C DISP
DNM=3-444 02 FILLER BL=3 146 DNM=3-444 DS 17C DISP
DNM=3-463 02 FILLER BL=3 157 DNM=3-463 DS 50C DISP
DNM=3-482 02 FILLER BL=3 189 DNM=3-482 DS 17C DISP
DNM=4-000 02 FILLER BL=3 19A DNM=4-000 DS 50C DISP
DNM=4-019 02 FILLER BL=3 1CC DNM=4-019 DS 17C DISP
DNM=4-038 02 FILLER BL=3 1DD DNM=4-038 DS 50C DISP
DNM=4-057 02 FILLER BL=3 20F DNM=4-057 DS 17C DISP
DNM=4-076 02 FILLER BL=3 220 DNM=4-076 DS 50C DISP
DNM=4-095 01 FILLER BL=3 0C0 DNM=4-095 DS 0CL402 GROUP R
DNM=4-117 DE-IX DNM=4-117 INDEX-NM
========================================================================================================================
10
INTRNL NAME LVL SOURCE NAME BASE DISPL INTRNL NAME DEFINITION USAGE R O Q M
DNM=4-129 02 DEPARTMENT-ENTRY BL=3 0C0 DNM=4-129 DS 0CL67 GROUP O
DNM=4-158 03 DE-NUMBER BL=3 0C0 DNM=4-158 DS 2C DISP-NM
DNM=4-180 03 DE-NAME BL=3 0C2 DNM=4-180 DS 15C DISP
DNM=4-200 03 DE-GROSS BL=3 0D1 DNM=4-200 DS 10C DISP-NM
DNM=4-221 03 DE-FICA BL=3 0DB DNM=4-221 DS 10C DISP-NM
DNM=4-241 03 DE-FWT BL=3 0E5 DNM=4-241 DS 10C DISP-NM
DNM=4-260 03 DE-MISC BL=3 0EF DNM=4-260 DS 10C DISP-NM
DNM=4-280 03 DE-NET BL=3 0F9 DNM=4-280 DS 10C DISP-NM
DNM=4-299 01 PRINT-SWITCH BL=3 258 DNM=4-299 DS 1C DISP-NM
DNM=4-321 RD QUARTERLY-PAY-REGISTER DNM=4-321
DNM=4-355 01 CTL.LVL BL=3 260 DNM=4-355 DS 2P COMP-3
DNM=4-372 01 TER.COD BL=3 268 DNM=4-372 DS 1C DISP
DNM=4-389 01 FRS.GEN BL=3 270 DNM=4-389 DS 1C DISP
DNM=4-406 01 LIN.SAV BL=3 278 DNM=4-406 DS 2C COMP
DNM=4-423 01 FRS.GRP BL=3 280 DNM=4-423 DS 1C DISP
DNM=4-440 01 ABS.LIN BL=3 288 DNM=4-440 DS 2C COMP
DNM=4-457 01 LIN.NUM BL=3 290 DNM=4-457 DS 2P COMP-3
DNM=4-474 77 -0002 BL=3 292 DNM=4-474 DS 2C DISP-NM
DNM=4-489 77 -0003 BL=3 294 DNM=4-489 DS 2C DISP-NM
DNM=5-000 77 -0004 BL=3 296 DNM=5-000 DS 27C DISP
DNM=5-018 77 -0005 BL=3 2B1 DNM=5-018 DS 27C DISP
DNM=5-033 01 LINE-COUNTER BL=3 2D0 DNM=5-033 DS 3P COMP-3
DNM=5-055 01 PAGE-COUNTER BL=3 2D8 DNM=5-055 DS 3P COMP-3
DNM=5-077 01 RPT.RCD BL=3 2E0 DNM=5-077 DS 0CL133 GROUP
DNM=5-097 02 CTL.CHR BL=3 2E0 DNM=5-097 DS 1C DISP
DNM=5-114 02 RPT.LIN BL=3 2E1 DNM=5-114 DS 132C DISP
DNM=5-131 02 E.0001 BL=3 307 DNM=5-131 DS 13C DISP R
DNM=5-147 02 E.0002 BL=3 317 DNM=5-147 DS 13C DISP R
DNM=5-163 02 E.0003 BL=3 327 DNM=5-163 DS 11C DISP R
DNM=5-179 02 E.0004 BL=3 303 DNM=5-179 DS 17C DISP R
DNM=5-195 02 E.0005 BL=3 317 DNM=5-195 DS 13C DISP R
DNM=5-211 02 E.0006 BL=3 327 DNM=5-211 DS 15C DISP R
DNM=5-227 02 E.0007 BL=3 34F DNM=5-227 DS 4C DISP R
DNM=5-243 02 E.0008 BL=3 354 DNM=5-243 DS 5C NM-EDIT R
DNM=5-266 02 E.0009 BL=3 2E6 DNM=5-266 DS 28C DISP R
DNM=5-282 02 E.0010 BL=3 308 DNM=5-282 DS 5C DISP R
DNM=5-298 02 E.0011 BL=3 316 DNM=5-298 DS 4C DISP R
DNM=5-314 02 E.0012 BL=3 322 DNM=5-314 DS 7C DISP R
DNM=5-330 02 E.0013 BL=3 330 DNM=5-330 DS 5C DISP R
DNM=5-346 02 E.0014 BL=3 33F DNM=5-346 DS 3C DISP R
DNM=5-362 02 E.0015 BL=3 2E7 DNM=5-362 DS 2C DISP R
DNM=5-378 02 E.0016 BL=3 2F6 DNM=5-378 DS 4C DISP R
DNM=5-394 02 E.0017 BL=3 309 DNM=5-394 DS 3C DISP R
DNM=5-410 02 E.0018 BL=3 317 DNM=5-410 DS 3C DISP R
DNM=5-426 02 E.0019 BL=3 324 DNM=5-426 DS 3C DISP R
DNM=5-442 02 E.0020 BL=3 32F DNM=5-442 DS 7C DISP R
DNM=5-458 02 E.0021 BL=3 33F DNM=5-458 DS 3C DISP R
DNM=5-474 02 E.0022 BL=3 2E1 DNM=5-474 DS 18C DISP R
DNM=5-490 02 E.0023 BL=3 2F5 DNM=5-490 DS 2C DISP-NM R
DNM=6-000 02 E.0024 BL=3 2F8 DNM=6-000 DS 15C DISP R
DNM=6-016 02 E.0025 BL=3 2E1 DNM=6-016 DS 27C DISP R
DNM=6-032 02 E.0026 BL=3 312 DNM=6-032 DS 7C NM-EDIT R
DNM=6-057 02 E.0027 BL=3 31C DNM=6-057 DS 6C NM-EDIT R
DNM=6-082 02 E.0028 BL=3 326 DNM=6-082 DS 6C NM-EDIT R
DNM=6-110 02 E.0029 BL=3 330 DNM=6-110 DS 6C NM-EDIT R
========================================================================================================================
11
INTRNL NAME LVL SOURCE NAME BASE DISPL INTRNL NAME DEFINITION USAGE R O Q M
DNM=6-135 02 E.0030 BL=3 33A DNM=6-135 DS 7C NM-EDIT R
DNM=6-160 02 E.0031 BL=3 2E6 DNM=6-160 DS 4C NM-EDIT R
DNM=6-183 02 E.0032 BL=3 2EE DNM=6-183 DS 20C DISP R
DNM=6-199 02 E.0033 BL=3 306 DNM=6-199 DS 9C NM-EDIT R
DNM=6-230 02 E.0034 BL=3 315 DNM=6-230 DS 7C NM-EDIT R
DNM=6-257 02 E.0035 BL=3 322 DNM=6-257 DS 7C NM-EDIT R
DNM=6-284 02 E.0036 BL=3 32F DNM=6-284 DS 7C NM-EDIT R
DNM=6-311 02 E.0037 BL=3 33C DNM=6-311 DS 9C NM-EDIT R
DNM=6-342 02 E.0038 BL=3 2EE DNM=6-342 DS 20C DISP R
DNM=6-358 02 E.0039 BL=3 306 DNM=6-358 DS 9C NM-EDIT R
DNM=6-392 02 E.0040 BL=3 310 DNM=6-392 DS 1C DISP R
DNM=6-408 02 E.0041 BL=3 315 DNM=6-408 DS 7C NM-EDIT R
DNM=6-435 02 E.0042 BL=3 31D DNM=6-435 DS 1C DISP R
DNM=6-451 02 E.0043 BL=3 322 DNM=6-451 DS 7C NM-EDIT R
DNM=6-478 02 E.0044 BL=3 32A DNM=6-478 DS 1C DISP R
DNM=7-000 02 E.0045 BL=3 32F DNM=7-000 DS 7C NM-EDIT R
DNM=7-027 02 E.0046 BL=3 337 DNM=7-027 DS 1C DISP R
DNM=7-043 02 E.0047 BL=3 33C DNM=7-043 DS 9C NM-EDIT R
DNM=7-074 02 E.0048 BL=3 346 DNM=7-074 DS 1C DISP R
DNM=7-090 02 E.0049 BL=3 2EE DNM=7-090 DS 20C DISP R
DNM=7-109 02 E.0050 BL=3 305 DNM=7-109 DS 10C NM-EDIT R
DNM=7-140 02 E.0051 BL=3 310 DNM=7-140 DS 2C DISP R
DNM=7-156 02 E.0052 BL=3 313 DNM=7-156 DS 9C NM-EDIT R
DNM=7-187 02 E.0053 BL=3 31D DNM=7-187 DS 2C DISP R
DNM=7-203 02 E.0054 BL=3 320 DNM=7-203 DS 9C NM-EDIT R
DNM=7-234 02 E.0055 BL=3 32A DNM=7-234 DS 2C DISP R
DNM=7-250 02 E.0056 BL=3 32D DNM=7-250 DS 9C NM-EDIT R
DNM=7-284 02 E.0057 BL=3 337 DNM=7-284 DS 2C DISP R
DNM=7-300 02 E.0058 BL=3 33B DNM=7-300 DS 10C NM-EDIT R
DNM=7-331 02 E.0059 BL=3 346 DNM=7-331 DS 2C DISP R
DNM=7-350 02 E.0060 BL=3 307 DNM=7-350 DS 13C DISP R
DNM=7-366 02 E.0061 BL=3 317 DNM=7-366 DS 13C DISP R
DNM=7-385 02 E.0062 BL=3 327 DNM=7-385 DS 11C DISP R
DNM=7-401 02 E.0063 BL=3 303 DNM=7-401 DS 17C DISP R
DNM=7-417 02 E.0064 BL=3 317 DNM=7-417 DS 13C DISP R
DNM=7-433 02 E.0065 BL=3 327 DNM=7-433 DS 15C DISP R
DNM=7-449 02 E.0066 BL=3 34F DNM=7-449 DS 4C DISP R
DNM=7-465 02 E.0067 BL=3 354 DNM=7-465 DS 5C NM-EDIT R
DNM=7-488 02 E.0068 BL=3 308 DNM=7-488 DS 5C DISP R
DNM=8-000 02 E.0069 BL=3 31A DNM=8-000 DS 4C DISP R
DNM=8-019 02 E.0070 BL=3 32A DNM=8-019 DS 7C DISP R
DNM=8-035 02 E.0071 BL=3 33C DNM=8-035 DS 5C DISP R
DNM=8-051 02 E.0072 BL=3 34F DNM=8-051 DS 3C DISP R
DNM=8-067 02 E.0073 BL=3 309 DNM=8-067 DS 3C DISP R
DNM=8-083 02 E.0074 BL=3 31B DNM=8-083 DS 3C DISP R
DNM=8-102 02 E.0075 BL=3 32C DNM=8-102 DS 3C DISP R
DNM=8-118 02 E.0076 BL=3 33B DNM=8-118 DS 7C DISP R
DNM=8-134 02 E.0077 BL=3 34F DNM=8-134 DS 3C DISP R
DNM=8-150 02 E.0078 BL=3 2E5 DNM=8-150 DS 29C DISP R
DNM=8-166 02 E.0079 BL=3 2E5 DNM=8-166 DS 2C DISP-NM R
DNM=8-185 02 E.0080 BL=3 2E8 DNM=8-185 DS 15C DISP R
DNM=8-204 02 E.0081 BL=3 306 DNM=8-204 DS 9C NM-EDIT R
DNM=8-235 02 E.0082 BL=3 310 DNM=8-235 DS 3C NM-EDIT R
DNM=8-258 02 E.0083 BL=3 313 DNM=8-258 DS 1C DISP R
DNM=8-274 02 E.0084 BL=3 319 DNM=8-274 DS 7C NM-EDIT R
========================================================================================================================
12
INTRNL NAME LVL SOURCE NAME BASE DISPL INTRNL NAME DEFINITION USAGE R O Q M
DNM=8-301 02 E.0085 BL=3 321 DNM=8-301 DS 3C NM-EDIT R
DNM=8-324 02 E.0086 BL=3 324 DNM=8-324 DS 1C DISP R
DNM=8-340 02 E.0087 BL=3 32A DNM=8-340 DS 7C NM-EDIT R
DNM=8-367 02 E.0088 BL=3 332 DNM=8-367 DS 3C NM-EDIT R
DNM=8-390 02 E.0089 BL=3 335 DNM=8-390 DS 1C DISP R
DNM=8-409 02 E.0090 BL=3 33B DNM=8-409 DS 7C NM-EDIT R
DNM=8-439 02 E.0091 BL=3 343 DNM=8-439 DS 3C NM-EDIT R
DNM=8-462 02 E.0092 BL=3 346 DNM=8-462 DS 1C DISP R
DNM=9-000 02 E.0093 BL=3 34C DNM=9-000 DS 9C NM-EDIT R
DNM=9-034 02 E.0094 BL=3 356 DNM=9-034 DS 3C NM-EDIT R
DNM=9-057 02 E.0095 BL=3 359 DNM=9-057 DS 1C DISP R
DNM=9-073 02 E.0096 BL=3 2E5 DNM=9-073 DS 2C DISP-NM R
DNM=9-089 02 E.0097 BL=3 2E8 DNM=9-089 DS 15C DISP R
DNM=9-105 02 E.0098 BL=3 306 DNM=9-105 DS 9C NM-EDIT R
DNM=9-136 02 E.0099 BL=3 310 DNM=9-136 DS 3C NM-EDIT R
DNM=9-162 02 E.0100 BL=3 313 DNM=9-162 DS 1C DISP R
DNM=9-178 02 E.0101 BL=3 319 DNM=9-178 DS 7C NM-EDIT R
DNM=9-205 02 E.0102 BL=3 321 DNM=9-205 DS 3C NM-EDIT R
DNM=9-228 02 E.0103 BL=3 324 DNM=9-228 DS 1C DISP R
DNM=9-247 02 E.0104 BL=3 32A DNM=9-247 DS 7C NM-EDIT R
DNM=9-274 02 E.0105 BL=3 332 DNM=9-274 DS 3C NM-EDIT R
DNM=9-297 02 E.0106 BL=3 335 DNM=9-297 DS 1C DISP R
DNM=9-313 02 E.0107 BL=3 33B DNM=9-313 DS 7C NM-EDIT R
DNM=9-343 02 E.0108 BL=3 343 DNM=9-343 DS 3C NM-EDIT R
DNM=9-366 02 E.0109 BL=3 346 DNM=9-366 DS 1C DISP R
DNM=9-382 02 E.0110 BL=3 34C DNM=9-382 DS 9C NM-EDIT R
DNM=9-413 02 E.0111 BL=3 356 DNM=9-413 DS 3C NM-EDIT R
DNM=9-436 02 E.0112 BL=3 359 DNM=9-436 DS 1C DISP R
DNM=9-455 02 E.0113 BL=3 2E5 DNM=9-455 DS 2C DISP-NM R
DNM=9-471 02 E.0114 BL=3 2E8 DNM=9-471 DS 15C DISP R
DNM=10-000 02 E.0115 BL=3 306 DNM=10-000 DS 9C NM-EDIT R
DNM=10-031 02 E.0116 BL=3 310 DNM=10-031 DS 3C NM-EDIT R
DNM=10-054 02 E.0117 BL=3 313 DNM=10-054 DS 1C DISP R
DNM=10-070 02 E.0118 BL=3 319 DNM=10-070 DS 7C NM-EDIT R
DNM=10-100 02 E.0119 BL=3 321 DNM=10-100 DS 3C NM-EDIT R
DNM=10-123 02 E.0120 BL=3 324 DNM=10-123 DS 1C DISP R
DNM=10-139 02 E.0121 BL=3 32A DNM=10-139 DS 7C NM-EDIT R
DNM=10-166 02 E.0122 BL=3 332 DNM=10-166 DS 3C NM-EDIT R
DNM=10-189 02 E.0123 BL=3 335 DNM=10-189 DS 1C DISP R
DNM=10-205 02 E.0124 BL=3 33B DNM=10-205 DS 7C NM-EDIT R
DNM=10-232 02 E.0125 BL=3 343 DNM=10-232 DS 3C NM-EDIT R
DNM=10-255 02 E.0126 BL=3 346 DNM=10-255 DS 1C DISP R
DNM=10-271 02 E.0127 BL=3 34C DNM=10-271 DS 9C NM-EDIT R
DNM=10-305 02 E.0128 BL=3 356 DNM=10-305 DS 3C NM-EDIT R
DNM=10-331 02 E.0129 BL=3 359 DNM=10-331 DS 1C DISP R
DNM=10-350 02 E.0130 BL=3 2E5 DNM=10-350 DS 2C DISP-NM R
DNM=10-366 02 E.0131 BL=3 2E8 DNM=10-366 DS 15C DISP R
DNM=10-382 02 E.0132 BL=3 306 DNM=10-382 DS 9C NM-EDIT R
DNM=10-416 02 E.0133 BL=3 310 DNM=10-416 DS 3C NM-EDIT R
DNM=10-439 02 E.0134 BL=3 313 DNM=10-439 DS 1C DISP R
DNM=10-455 02 E.0135 BL=3 319 DNM=10-455 DS 7C NM-EDIT R
DNM=10-482 02 E.0136 BL=3 321 DNM=10-482 DS 3C NM-EDIT R
DNM=11-000 02 E.0137 BL=3 324 DNM=11-000 DS 1C DISP R
DNM=11-019 02 E.0138 BL=3 32A DNM=11-019 DS 7C NM-EDIT R
DNM=11-046 02 E.0139 BL=3 332 DNM=11-046 DS 3C NM-EDIT R
========================================================================================================================
13
INTRNL NAME LVL SOURCE NAME BASE DISPL INTRNL NAME DEFINITION USAGE R O Q M
DNM=11-072 02 E.0140 BL=3 335 DNM=11-072 DS 1C DISP R
DNM=11-088 02 E.0141 BL=3 33B DNM=11-088 DS 7C NM-EDIT R
DNM=11-115 02 E.0142 BL=3 343 DNM=11-115 DS 3C NM-EDIT R
DNM=11-138 02 E.0143 BL=3 346 DNM=11-138 DS 1C DISP R
DNM=11-154 02 E.0144 BL=3 34C DNM=11-154 DS 9C NM-EDIT R
DNM=11-185 02 E.0145 BL=3 356 DNM=11-185 DS 3C NM-EDIT R
DNM=11-208 02 E.0146 BL=3 359 DNM=11-208 DS 1C DISP R
DNM=11-224 02 E.0147 BL=3 2E5 DNM=11-224 DS 2C DISP-NM R
DNM=11-240 02 E.0148 BL=3 2E8 DNM=11-240 DS 15C DISP R
DNM=11-256 02 E.0149 BL=3 306 DNM=11-256 DS 9C NM-EDIT R
DNM=11-290 02 E.0150 BL=3 310 DNM=11-290 DS 3C NM-EDIT R
DNM=11-313 02 E.0151 BL=3 313 DNM=11-313 DS 1C DISP R
DNM=11-329 02 E.0152 BL=3 319 DNM=11-329 DS 7C NM-EDIT R
DNM=11-356 02 E.0153 BL=3 321 DNM=11-356 DS 3C NM-EDIT R
DNM=11-379 02 E.0154 BL=3 324 DNM=11-379 DS 1C DISP R
DNM=11-395 02 E.0155 BL=3 32A DNM=11-395 DS 7C NM-EDIT R
DNM=11-422 02 E.0156 BL=3 332 DNM=11-422 DS 3C NM-EDIT R
DNM=11-448 02 E.0157 BL=3 335 DNM=11-448 DS 1C DISP R
DNM=11-464 02 E.0158 BL=3 33B DNM=11-464 DS 7C NM-EDIT R
DNM=12-000 02 E.0159 BL=3 343 DNM=12-000 DS 3C NM-EDIT R
DNM=12-026 02 E.0160 BL=3 346 DNM=12-026 DS 1C DISP R
DNM=12-042 02 E.0161 BL=3 34C DNM=12-042 DS 9C NM-EDIT R
DNM=12-076 02 E.0162 BL=3 356 DNM=12-076 DS 3C NM-EDIT R
DNM=12-099 02 E.0163 BL=3 359 DNM=12-099 DS 1C DISP R
DNM=12-115 02 E.0164 BL=3 2E5 DNM=12-115 DS 2C DISP-NM R
DNM=12-131 02 E.0165 BL=3 2E8 DNM=12-131 DS 15C DISP R
DNM=12-147 02 E.0166 BL=3 306 DNM=12-147 DS 9C NM-EDIT R
DNM=12-178 02 E.0167 BL=3 310 DNM=12-178 DS 3C NM-EDIT R
DNM=12-201 02 E.0168 BL=3 313 DNM=12-201 DS 1C DISP R
DNM=12-217 02 E.0169 BL=3 319 DNM=12-217 DS 7C NM-EDIT R
DNM=12-247 02 E.0170 BL=3 321 DNM=12-247 DS 3C NM-EDIT R
DNM=12-270 02 E.0171 BL=3 324 DNM=12-270 DS 1C DISP R
DNM=12-286 02 E.0172 BL=3 32A DNM=12-286 DS 7C NM-EDIT R
DNM=12-313 02 E.0173 BL=3 332 DNM=12-313 DS 3C NM-EDIT R
DNM=12-336 02 E.0174 BL=3 335 DNM=12-336 DS 1C DISP R
DNM=12-352 02 E.0175 BL=3 33B DNM=12-352 DS 7C NM-EDIT R
DNM=12-379 02 E.0176 BL=3 343 DNM=12-379 DS 3C NM-EDIT R
DNM=12-405 02 E.0177 BL=3 346 DNM=12-405 DS 1C DISP R
DNM=12-421 02 E.0178 BL=3 34C DNM=12-421 DS 9C NM-EDIT R
DNM=12-452 02 E.0179 BL=3 356 DNM=12-452 DS 3C NM-EDIT R
DNM=12-478 02 E.0180 BL=3 359 DNM=12-478 DS 1C DISP R
DNM=13-000 02 E.0181 BL=3 305 DNM=13-000 DS 10C NM-EDIT R
DNM=13-031 02 E.0182 BL=3 310 DNM=13-031 DS 5C DISP R
DNM=13-047 02 E.0183 BL=3 317 DNM=13-047 DS 9C NM-EDIT R
DNM=13-078 02 E.0184 BL=3 321 DNM=13-078 DS 5C DISP R
DNM=13-094 02 E.0185 BL=3 328 DNM=13-094 DS 9C NM-EDIT R
DNM=13-125 02 E.0186 BL=3 332 DNM=13-125 DS 5C DISP R
DNM=13-144 02 E.0187 BL=3 339 DNM=13-144 DS 9C NM-EDIT R
DNM=13-178 02 E.0188 BL=3 343 DNM=13-178 DS 5C DISP R
DNM=13-194 02 E.0189 BL=3 34B DNM=13-194 DS 10C NM-EDIT R
DNM=13-228 02 E.0190 BL=3 356 DNM=13-228 DS 5C DISP R
DNM=13-244 01 N.0001 BL=3 368 DNM=13-244 DS 2C COMP
DNM=13-260 01 N.0002 BL=3 370 DNM=13-260 DS 2C COMP
DNM=13-276 01 N.0003 BL=3 378 DNM=13-276 DS 2C COMP
DNM=13-295 01 N.0004 BL=3 380 DNM=13-295 DS 2C COMP
========================================================================================================================
14
INTRNL NAME LVL SOURCE NAME BASE DISPL INTRNL NAME DEFINITION USAGE R O Q M
DNM=13-311 01 N.0005 BL=3 388 DNM=13-311 DS 2C COMP
DNM=13-327 01 GRP.IND BL=3 390 DNM=13-327 DS 0CL1 GROUP
DNM=13-347 02 GP.0000 BL=3 390 DNM=13-347 DS 1C DISP
DNM=13-364 01 S.0001 BL=3 398 DNM=13-364 DS 4P COMP-3
DNM=13-383 01 S.0002 BL=3 3A0 DNM=13-383 DS 3P COMP-3
DNM=13-402 01 S.0003 BL=3 3A8 DNM=13-402 DS 3P COMP-3
DNM=13-421 01 S.0004 BL=3 3B0 DNM=13-421 DS 3P COMP-3
DNM=13-440 01 S.0005 BL=3 3B8 DNM=13-440 DS 4P COMP-3
DNM=13-459 01 DEPT-FOOT-GROSS BL=3 3C0 DNM=13-459 DS 4P COMP-3
DNM=13-487 01 DEPT-FOOT-FICA BL=3 3C8 DNM=13-487 DS 3P COMP-3
DNM=14-000 01 DEPT-FOOT-FWT BL=3 3D0 DNM=14-000 DS 3P COMP-3
DNM=14-023 01 DEPT-FOOT-MISC BL=3 3D8 DNM=14-023 DS 3P COMP-3
DNM=14-047 01 DEPT-FOOT-NET BL=3 3E0 DNM=14-047 DS 4P COMP-3
DNM=14-073 01 CO-GROSS BL=3 3E8 DNM=14-073 DS 4P COMP-3
DNM=14-094 01 CO-FICA BL=3 3F0 DNM=14-094 DS 4P COMP-3
DNM=14-114 01 CO-FWT BL=3 3F8 DNM=14-114 DS 4P COMP-3
DNM=14-133 01 CO-MISC BL=3 400 DNM=14-133 DS 4P COMP-3
DNM=14-153 01 CO-NET BL=3 408 DNM=14-153 DS 4P COMP-3
========================================================================================================================
15
CONDENSED LISTING
361 USE 00271E 363 SET 002722 364 SEARCH 002730
366 MOVE 00275C 371 EXIT 0027EA 373 USE 0027F0
375 MOVE 0027F4 378 EXIT 0027FA 380 USE 002800
382 MOVE 002804 383 MOVE 002816 384 MOVE 002828
385 MOVE 00283A 386 MOVE 00284C 389 EXIT 00285E
391 USE 002864 393 PERFORM 002868 396 GO 0028C4
399 SET 0028CA 400 SET 0028DE 401 COMPUTE 0028EC
403 SET 002958 404 COMPUTE 00296E 406 SET 0029DA
407 COMPUTE 0029F0 409 SET 002A5C 410 COMPUTE 002A72
412 SET 002ADE 413 COMPUTE 002AF4 417 EXIT 002B6E
423 OPEN 002B74 426 INITIATE 002BE4 428 READ 002BEA
430 MOVE 002C0A 433 PERFORM 002C10 437 TERMINATE 002C3A
439 CLOSE 002C40 442 STOP 002CBC 445 GENERATE 002CC2
446 READ 002CD4 448 MOVE 002CF4 452 EXIT 002CFA
*STATISTICS* SOURCE RECORDS = 453 DATA DIVISION STATEMENTS = 76 PROCEDURE DIVISION STATEMENTS = 42
*OPTIONS IN EFFECT* SIZE = 3145728 BUF = 1048576 LINECNT = 57 SPACE1, FLAGW, SEQ, SOURCE
*OPTIONS IN EFFECT* DMAP, NOPMAP, CLIST, SUPMAP, NOXREF, LOAD, NODECK, APOST, NOTRUNC, NOLIB, VERB
*OPTIONS IN EFFECT* ZWB
========================================================================================================================
16
CARD ERROR MESSAGE
240 IKF5011I-W AN INTERMEDIATE RESULT OR A SENDING FIELD MIGHT HAVE ITS HIGH ORDER DIGIT POSITION
TRUNCATED.
243 IKF5011I-W AN INTERMEDIATE RESULT OR A SENDING FIELD MIGHT HAVE ITS HIGH ORDER DIGIT POSITION
TRUNCATED.
246 IKF5011I-W AN INTERMEDIATE RESULT OR A SENDING FIELD MIGHT HAVE ITS HIGH ORDER DIGIT POSITION
TRUNCATED.
249 IKF5011I-W AN INTERMEDIATE RESULT OR A SENDING FIELD MIGHT HAVE ITS HIGH ORDER DIGIT POSITION
TRUNCATED.
252 IKF5011I-W AN INTERMEDIATE RESULT OR A SENDING FIELD MIGHT HAVE ITS HIGH ORDER DIGIT POSITION
TRUNCATED.
258 IKF5011I-W AN INTERMEDIATE RESULT OR A SENDING FIELD MIGHT HAVE ITS HIGH ORDER DIGIT POSITION
TRUNCATED.
261 IKF5011I-W AN INTERMEDIATE RESULT OR A SENDING FIELD MIGHT HAVE ITS HIGH ORDER DIGIT POSITION
TRUNCATED.
264 IKF5011I-W AN INTERMEDIATE RESULT OR A SENDING FIELD MIGHT HAVE ITS HIGH ORDER DIGIT POSITION
TRUNCATED.
267 IKF5011I-W AN INTERMEDIATE RESULT OR A SENDING FIELD MIGHT HAVE ITS HIGH ORDER DIGIT POSITION
TRUNCATED.
270 IKF5011I-W AN INTERMEDIATE RESULT OR A SENDING FIELD MIGHT HAVE ITS HIGH ORDER DIGIT POSITION
TRUNCATED.
276 IKF5011I-W AN INTERMEDIATE RESULT OR A SENDING FIELD MIGHT HAVE ITS HIGH ORDER DIGIT POSITION
TRUNCATED.
279 IKF5011I-W AN INTERMEDIATE RESULT OR A SENDING FIELD MIGHT HAVE ITS HIGH ORDER DIGIT POSITION
TRUNCATED.
282 IKF5011I-W AN INTERMEDIATE RESULT OR A SENDING FIELD MIGHT HAVE ITS HIGH ORDER DIGIT POSITION
TRUNCATED.
285 IKF5011I-W AN INTERMEDIATE RESULT OR A SENDING FIELD MIGHT HAVE ITS HIGH ORDER DIGIT POSITION
TRUNCATED.
288 IKF5011I-W AN INTERMEDIATE RESULT OR A SENDING FIELD MIGHT HAVE ITS HIGH ORDER DIGIT POSITION
TRUNCATED.
294 IKF5011I-W AN INTERMEDIATE RESULT OR A SENDING FIELD MIGHT HAVE ITS HIGH ORDER DIGIT POSITION
TRUNCATED.
297 IKF5011I-W AN INTERMEDIATE RESULT OR A SENDING FIELD MIGHT HAVE ITS HIGH ORDER DIGIT POSITION
TRUNCATED.
300 IKF5011I-W AN INTERMEDIATE RESULT OR A SENDING FIELD MIGHT HAVE ITS HIGH ORDER DIGIT POSITION
TRUNCATED.
303 IKF5011I-W AN INTERMEDIATE RESULT OR A SENDING FIELD MIGHT HAVE ITS HIGH ORDER DIGIT POSITION
TRUNCATED.
306 IKF5011I-W AN INTERMEDIATE RESULT OR A SENDING FIELD MIGHT HAVE ITS HIGH ORDER DIGIT POSITION
TRUNCATED.
312 IKF5011I-W AN INTERMEDIATE RESULT OR A SENDING FIELD MIGHT HAVE ITS HIGH ORDER DIGIT POSITION
TRUNCATED.
315 IKF5011I-W AN INTERMEDIATE RESULT OR A SENDING FIELD MIGHT HAVE ITS HIGH ORDER DIGIT POSITION
TRUNCATED.
318 IKF5011I-W AN INTERMEDIATE RESULT OR A SENDING FIELD MIGHT HAVE ITS HIGH ORDER DIGIT POSITION
TRUNCATED.
321 IKF5011I-W AN INTERMEDIATE RESULT OR A SENDING FIELD MIGHT HAVE ITS HIGH ORDER DIGIT POSITION
TRUNCATED.
324 IKF5011I-W AN INTERMEDIATE RESULT OR A SENDING FIELD MIGHT HAVE ITS HIGH ORDER DIGIT POSITION
TRUNCATED.
330 IKF5011I-W AN INTERMEDIATE RESULT OR A SENDING FIELD MIGHT HAVE ITS HIGH ORDER DIGIT POSITION
TRUNCATED.
333 IKF5011I-W AN INTERMEDIATE RESULT OR A SENDING FIELD MIGHT HAVE ITS HIGH ORDER DIGIT POSITION
TRUNCATED.
336 IKF5011I-W AN INTERMEDIATE RESULT OR A SENDING FIELD MIGHT HAVE ITS HIGH ORDER DIGIT POSITION
========================================================================================================================
17
TRUNCATED.
339 IKF5011I-W AN INTERMEDIATE RESULT OR A SENDING FIELD MIGHT HAVE ITS HIGH ORDER DIGIT POSITION
TRUNCATED.
342 IKF5011I-W AN INTERMEDIATE RESULT OR A SENDING FIELD MIGHT HAVE ITS HIGH ORDER DIGIT POSITION
TRUNCATED.
========================================================================================================================
C E N T U R Y M E D I C A L C E N T E R
Q U A R T E R L Y P A Y R O L L R E G I S T E R PAGE 1
--------- EMPLOYEE --------- GROSS FICA FED W/H MISC. NET
NO NAME PAY TAX TAX DEDUCT. PAY
DEPARTMENT NUMBER: 01 MANAGEMENT
6622 GAVIN SHAFER $1,300.00 $76.05 $168.10 $5.50 $1,050.35
7078 VERA ALSTON $1,800.00 $105.30 $138.24 $3.75 $1,552.71
8093 GRADY KAISER $2,300.00 $134.57 $247.53 $6.50 $1,911.43
DEPARTMENT TOTALS $5,400.00 * $315.92 * $553.87 * $15.75 * $4,514.49 *
DEPARTMENT NUMBER: 05 ADMINISTRATIVE
1720 PAULINE WINSTON $680.00 $39.79 $290.36 $3.50 $526.37
2116 HERMAN COX $610.00 $35.69 $76.52 $7.25 $490.55
6925 ADOLF TRUJILLO $625.00 $36.55 $118.95 $4.00 $465.50
DEPARTMENT TOTALS $1,915.00 * $112.03 * $485.83 * $14.75 * $1,482.42 *
DEPARTMENT NUMBER: 10 SKILLED NURSING
1504 TIFFANY KEIR $1,740.00 $101.82 $187.74 $1.75 $1,448.69
6640 ALEXANDER CATHEY $1,950.00 $114.06 $371.10 $7.25 $1,457.59
9465 STEVE HUGHES $1,475.00 $86.30 $239.40 $3.00 $1,146.30
DEPARTMENT TOTALS $5,165.00 * $302.18 * $798.24 * $12.00 * $4,052.58 *
DEPARTMENT NUMBER: 15 PATIENT SUPPORT
2903 KAYLA VERBECK $840.00 $49.14 $136.32 $5.25 $649.29
5196 CLAIRE KELLAR $886.00 $51.82 $102.80 $6.75 $724.63
DEPARTMENT TOTALS $1,726.00 * $100.96 * $239.12 * $12.00 * $1,373.92 *
DEPARTMENT NUMBER: 20 HOUSEKEEPING
5190 MARYANN GLAZENER $540.00 $31.62 $69.84 $3.50 $435.10
6580 CAROLINE TROMBETTA $480.00 $28.08 $51.78 $2.75 $396.39
9507 ADRIANA CHANGAZI $498.00 $29.16 $80.82 $6.75 $381.27
DEPARTMENT TOTALS $1,518.00 * $88.86 * $202.44 * $13.00 * $1,212.76 *
DEPARTMENT NUMBER: 25 MAINTENANCE
428 MELVIN BEHRENS $468.00 $27.36 $50.52 $5.00 $385.12
2003 BALDWIN SIMONSEN $670.00 $39.22 $113.46 $4.75 $512.57
6491 LEO TILLEY $606.00 $35.46 $46.56 $3.50 $520.48
DEPARTMENT TOTALS $1,744.00 * $102.04 * $210.54 * $13.25 * $1,418.17 *
COMPANY TOTALS $17,468.00 ** $1,021.99 ** $2,490.04 ** $80.75 ** $14,054.34 **
========================================================================================================================
C E N T U R Y M E D I C A L C E N T E R
Q U A R T E R L Y P A Y R O L L R E G I S T E R PAGE 2
GROSS FICA FED W/H MISC. NET
PAY TAX TAX DEDUCT. PAY
* * * DEPARTMENT TOTALS * * *
01 MANAGEMENT $5,400.00 31% $315.92 31% $553.87 22% $15.75 20% $4,514.49 32%
05 ADMINISTRATIVE $1,915.00 11% $112.03 11% $485.83 20% $14.75 18% $1,482.42 11%
10 SKILLED NURSING $5,165.00 30% $302.18 30% $798.24 32% $12.00 15% $4,052.58 29%
15 PATIENT SUPPORT $1,726.00 10% $100.96 10% $239.12 10% $12.00 15% $1,373.92 10%
20 HOUSEKEEPING $1,518.00 9% $88.86 9% $202.44 8% $13.00 16% $1,212.76 9%
25 MAINTENANCE $1,744.00 10% $102.04 10% $210.54 8% $13.25 16% $1,418.17 10%
$17,468.00 100% $1,021.99 100% $2,490.04 100% $80.75 100% $14,054.34 100%
========================================================================================================================