CB545 V2 LVL78 01MAY72 IBM OS AMERICAN NATIONAL STANDARD COBOL DATE FEB 27,1983
1
00001 000100 IDENTIFICATION DIVISION.
00002 000200 PROGRAM-ID. RWEX06.
00003 000300 AUTHOR. JAY MOSELEY.
00004 000400 DATE-WRITTEN. APRIL, 2008.
00005 000410* ************************************************************* *
00006 000412* * MODIFICATIONS: *
00007 000414* * CORRECT PARAGRAPH NAME AND GO TO CODING ERRORS. * 20110227
00008 000416* ************************************************************* *
00009 000500 DATE-COMPILED. FEB 27,1983
00011 000700* ************************************************************* *
00012 000800* REPORT WRITER EXAMPLE #6. *
00013 000900* ************************************************************* *
00015 001100 ENVIRONMENT DIVISION.
00016 001200 CONFIGURATION SECTION.
00017 001300 SOURCE-COMPUTER. IBM-370.
00018 001400 OBJECT-COMPUTER. IBM-370.
00019 001500
00020 001600 INPUT-OUTPUT SECTION.
00021 001700 FILE-CONTROL.
00022 001800
00023 001900 SELECT PAYROLL-REGISTER-DATA
00024 002000 ASSIGN TO UT-S-DATAIN.
00025 002100
00026 002200 SELECT REPORT-FILE
00027 002300 ASSIGN TO UR-S-SYSPRINT.
00028 002400
00029 002500 DATA DIVISION.
00030 002600 FILE SECTION.
00031 002700
00032 002800 FD PAYROLL-REGISTER-DATA
00033 002900 LABEL RECORDS ARE OMITTED
00034 003000 BLOCK CONTAINS 0 RECORDS
00035 003100 RECORD CONTAINS 80 CHARACTERS
00036 003200 DATA RECORD IS PAYROLL-REGISTER-RECORD.
00037 003300
00038 003400 01 PAYROLL-REGISTER-RECORD.
00039 003500 03 PRR-DEPARTMENT-NUMBER PIC 9(02).
00040 003600 03 FILLER PIC X(01).
00041 003700 03 PRR-EMPLOYEE-KEY.
00042 003800 05 PRR-EMPLOYEE-NO PIC 9(04).
00043 003900 05 FILLER PIC X(01).
00044 004000 05 PRR-GENDER PIC X(01).
00045 004100 05 FILLER PIC X(01).
00046 004200 05 PRR-EMPLOYEE-NAME PIC X(20).
00047 004300 03 FILLER PIC X(01).
00048 004400 03 PRR-PAY-DATE PIC 9(08).
00049 004500 03 FILLER REDEFINES PRR-PAY-DATE.
00050 004600 05 PRR-PAY-DATE-YEAR PIC 9(04).
00051 004700 05 PRR-PAY-DATE-MONTH PIC 9(02).
00052 004800 05 PRR-PAY-DATE-DAY PIC 9(02).
00053 004900 03 FILLER PIC X(01).
00054 005000 03 PRR-GROSS-PAY PIC 9(04)V99.
00055 005100 03 FILLER PIC X(01).
00056 005200 03 PRR-FICA-WH PIC 9(03)V99.
========================================================================================================================
2
00057 005300 03 FILLER PIC X(01).
00058 005400 03 PRR-FED-WH PIC 9(03)V99.
00059 005500 03 FILLER PIC X(01).
00060 005600 03 PRR-MISC-DED PIC 9(03)V99.
00061 005700 03 FILLER PIC X(01).
00062 005800 03 PRR-NET-PAY PIC 9(04)V99.
00063 005900 03 FILLER PIC X(09).
00064 006000
00065 006100 FD REPORT-FILE
00066 006200 LABEL RECORDS ARE OMITTED
00067 006300 REPORT IS QUARTERLY-PAY-REGISTER.
00068 006400
00069 006500 WORKING-STORAGE SECTION.
00070 006600 77 END-OF-FILE-SWITCH PIC X(1) VALUE 'N'.
00071 006700 88 END-OF-FILE VALUE 'Y'.
00072 006800
00073 006900 01 WS-EMPLOYEE-KEY.
00074 007000 03 WS-EMPLOYEE-NUMBER PIC 9(04).
00075 007100 03 FILLER PIC X(03).
00076 007200 03 WS-EMPLOYEE-NAME PIC X(20).
00077 007300
00078 007400 01 WS-PERCENTS-COMPUTED.
00079 007500 03 WPC-DEPT OCCURS 6 TIMES
00080 007600 INDEXED BY WPCD-IX.
00081 007700 05 WPC-PERCENT OCCURS 5 TIMES
00082 007800 INDEXED BY WPCC-IX
00083 007900 PIC 9(3)V99.
00084 008000
00085 008100 01 DEPARTMENT-TABLE.
00086 008200 03 FILLER PIC X(17) VALUE '01MANAGEMENT '.
00087 008300 03 FILLER PIC X(50) VALUE ZEROS.
00088 008400 03 FILLER PIC X(17) VALUE '05ADMINISTRATIVE '.
00089 008500 03 FILLER PIC X(50) VALUE ZEROS.
00090 008600 03 FILLER PIC X(17) VALUE '10SKILLED NURSING'.
00091 008700 03 FILLER PIC X(50) VALUE ZEROS.
00092 008800 03 FILLER PIC X(17) VALUE '15PATIENT SUPPORT'.
00093 008900 03 FILLER PIC X(50) VALUE ZEROS.
00094 009000 03 FILLER PIC X(17) VALUE '20HOUSEKEEPING '.
00095 009100 03 FILLER PIC X(50) VALUE ZEROS.
00096 009200 03 FILLER PIC X(17) VALUE '25MAINTENANCE '.
00097 009300 03 FILLER PIC X(50) VALUE ZEROS.
00098 009400 01 FILLER REDEFINES DEPARTMENT-TABLE.
00099 009500 03 DEPARTMENT-ENTRY OCCURS 6 TIMES
00100 009600 INDEXED BY DE-IX.
00101 009700 05 DE-NUMBER PIC 9(02).
00102 009800 05 DE-NAME PIC X(15).
00103 009900 05 DE-GROSS PIC 9(08)V99.
00104 010000 05 DE-FICA PIC 9(08)V99.
00105 010100 05 DE-FWT PIC 9(08)V99.
00106 010200 05 DE-MISC PIC 9(08)V99.
00107 010300 05 DE-NET PIC 9(08)V99.
00108 010400
00109 010500 REPORT SECTION.
00110 010600 RD QUARTERLY-PAY-REGISTER
00111 010700 CONTROLS ARE FINAL, PRR-DEPARTMENT-NUMBER,
00112 010800 PRR-EMPLOYEE-KEY
00113 010900 PAGE LIMIT IS 66 LINES
========================================================================================================================
3
00114 011000 HEADING 1
00115 011100 FIRST DETAIL 7
00116 011200 LAST DETAIL 60.
00117 011300
00118 011400 01 TYPE PAGE HEADING.
00119 011500 02 LINE 1.
00120 011600 03 COLUMN 39 PIC X(13) VALUE 'C E N T U R Y'.
00121 011700 03 COLUMN 55 PIC X(13) VALUE 'M E D I C A L'.
00122 011800 03 COLUMN 71 PIC X(11) VALUE 'C E N T E R'.
00123 011900 02 LINE 2.
00124 012000 03 COLUMN 35 PIC X(17) VALUE 'Q U A R T E R L Y'.
00125 012100 03 COLUMN 55 PIC X(13) VALUE 'P A Y R O L L'.
00126 012200 03 COLUMN 71 PIC X(15) VALUE 'R E G I S T E R'.
00127 012300 03 COLUMN 111 PIC X(04) VALUE 'PAGE'.
00128 012400 03 COLUMN 116 PIC ZZZZ9 SOURCE PAGE-COUNTER.
00129 012500 02 LINE 4.
00130 012600 03 COLUMN 06 PIC X(28) VALUE
00131 012700 '--------- EMPLOYEE ---------'.
00132 012800 03 COLUMN 40 PIC X(05) VALUE 'GROSS'.
00133 012900 03 COLUMN 54 PIC X(04) VALUE 'FICA'.
00134 013000 03 COLUMN 66 PIC X(07) VALUE 'FED W/H'.
00135 013100 03 COLUMN 80 PIC X(05) VALUE 'MISC.'.
00136 013200 03 COLUMN 95 PIC X(03) VALUE 'NET'.
00137 013300 02 LINE 5.
00138 013400 03 COLUMN 07 PIC X(02) VALUE 'NO'.
00139 013500 03 COLUMN 22 PIC X(04) VALUE 'NAME'.
00140 013600 03 COLUMN 41 PIC X(03) VALUE 'PAY'.
00141 013700 03 COLUMN 55 PIC X(03) VALUE 'TAX'.
00142 013800 03 COLUMN 68 PIC X(03) VALUE 'TAX'.
00143 013900 03 COLUMN 79 PIC X(07) VALUE 'DEDUCT.'.
00144 014000 03 COLUMN 95 PIC X(03) VALUE 'PAY'.
00145 014100
00146 014200 01 DEPT-HEAD TYPE CONTROL HEADING PRR-DEPARTMENT-NUMBER
00147 014300 NEXT GROUP PLUS 1.
00148 014400 02 LINE PLUS 1.
00149 014500 03 COLUMN 01 PIC X(18) VALUE
00150 014600 'DEPARTMENT NUMBER:'.
00151 014700 03 COLUMN 21 PIC 9(02) SOURCE PRR-DEPARTMENT-NUMBER.
00152 014800 03 COLUMN 24 PIC X(15) SOURCE DE-NAME (DE-IX).
00153 014900
00154 015000 01 EMPLOYEE-DETAIL TYPE DETAIL.
00155 015100 02 LINE PLUS 1.
00156 015200 03 COLUMN 01 PIC X(27) SOURCE PRR-EMPLOYEE-KEY.
00157 015300 03 COLUMN 50 PIC 9(04).99 SOURCE PRR-GROSS-PAY.
00158 015400 03 COLUMN 60 PIC 9(03).99 SOURCE PRR-FICA-WH.
00159 015500 03 COLUMN 70 PIC 9(03).99 SOURCE PRR-FED-WH.
00160 015600 03 COLUMN 80 PIC 9(03).99 SOURCE PRR-MISC-DED.
00161 015700 03 COLUMN 90 PIC 9(04).99 SOURCE PRR-NET-PAY.
00162 015800
00163 015900 01 EMPL-FOOT TYPE CONTROL FOOTING PRR-EMPLOYEE-KEY.
00164 016000 02 LINE PLUS 1.
00165 016100 03 COLUMN 06 PIC ZZZ9 SOURCE WS-EMPLOYEE-NUMBER.
00166 016200 03 COLUMN 14 PIC X(20) SOURCE WS-EMPLOYEE-NAME.
00167 016300 03 COLUMN 38 PIC $$,$$9.99 SUM PRR-GROSS-PAY.
00168 016400 03 COLUMN 53 PIC $$$9.99 SUM PRR-FICA-WH.
00169 016500 03 COLUMN 66 PIC $$$9.99 SUM PRR-FED-WH.
00170 016600 03 COLUMN 79 PIC $$$9.99 SUM PRR-MISC-DED.
========================================================================================================================
4
00171 016700 03 COLUMN 92 PIC $$,$$9.99 SUM PRR-NET-PAY.
00172 016800
00173 016900 01 DEPT-FOOT TYPE CONTROL FOOTING PRR-DEPARTMENT-NUMBER
00174 017000 NEXT GROUP PLUS 2.
00175 017100 02 LINE PLUS 2.
00176 017200 03 COLUMN 14 PIC X(20) VALUE
00177 017300 'DEPARTMENT TOTALS'.
00178 017400 03 DEPT-FOOT-GROSS COLUMN 38 PIC $$,$$9.99
00179 017500 SUM PRR-GROSS-PAY.
00180 017600 03 COLUMN 48 PIC X VALUE '*'.
00181 017700 03 DEPT-FOOT-FICA COLUMN 53 PIC $$$9.99
00182 017800 SUM PRR-FICA-WH.
00183 017900 03 COLUMN 61 PIC X VALUE '*'.
00184 018000 03 DEPT-FOOT-FWT COLUMN 66 PIC $$$9.99
00185 018100 SUM PRR-FED-WH.
00186 018200 03 COLUMN 74 PIC X VALUE '*'.
00187 018300 03 DEPT-FOOT-MISC COLUMN 79 PIC $$$9.99
00188 018400 SUM PRR-MISC-DED.
00189 018500 03 COLUMN 87 PIC X VALUE '*'.
00190 018600 03 DEPT-FOOT-NET COLUMN 92 PIC $$,$$9.99
00191 018700 SUM PRR-NET-PAY.
00192 018800 03 COLUMN 102 PIC X VALUE '*'.
00193 018900
00194 019000 01 COMP-FOOT TYPE CONTROL FOOTING FINAL.
00195 019100 02 LINE PLUS 2.
00196 019200 03 COLUMN 14 PIC X(20) VALUE
00197 019300 'COMPANY TOTALS'.
00198 019400 03 CO-GROSS COLUMN 37 PIC $$$,$$9.99
00199 019500 SUM PRR-GROSS-PAY.
00200 019600 03 COLUMN 48 PIC XX VALUE '**'.
00201 019700 03 CO-FICA COLUMN 51 PIC $$,$$9.99
00202 019800 SUM PRR-FICA-WH.
00203 019900 03 COLUMN 61 PIC XX VALUE '**'.
00204 020000 03 CO-FWT COLUMN 64 PIC $$,$$9.99
00205 020100 SUM PRR-FED-WH.
00206 020200 03 COLUMN 74 PIC XX VALUE '**'.
00207 020300 03 CO-MISC COLUMN 77 PIC $$,$$9.99
00208 020400 SUM PRR-MISC-DED.
00209 020500 03 COLUMN 87 PIC XX VALUE '**'.
00210 020600 03 CO-NET COLUMN 91 PIC $$$,$$9.99
00211 020700 SUM PRR-NET-PAY.
00212 020800 03 COLUMN 102 PIC XX VALUE '**'.
00213 020900
00214 021000 01 REPORT-FOOT TYPE REPORT FOOTING.
00215 021100 02 LINE 1.
00216 021200 03 COLUMN 39 PIC X(13) VALUE 'C E N T U R Y'.
00217 021300 03 COLUMN 55 PIC X(13) VALUE 'M E D I C A L'.
00218 021400 03 COLUMN 71 PIC X(11) VALUE 'C E N T E R'.
00219 021500 02 LINE 2.
00220 021600 03 COLUMN 35 PIC X(17) VALUE 'Q U A R T E R L Y'.
00221 021700 03 COLUMN 55 PIC X(13) VALUE 'P A Y R O L L'.
00222 021800 03 COLUMN 71 PIC X(15) VALUE 'R E G I S T E R'.
00223 021900 03 COLUMN 111 PIC X(04) VALUE 'PAGE'.
00224 022000 03 COLUMN 116 PIC ZZZZ9 SOURCE PAGE-COUNTER.
00225 022100 02 LINE 4.
00226 022200 03 COLUMN 40 PIC X(05) VALUE 'GROSS'.
00227 022300 03 COLUMN 58 PIC X(04) VALUE 'FICA'.
========================================================================================================================
5
00228 022400 03 COLUMN 74 PIC X(07) VALUE 'FED W/H'.
00229 022500 03 COLUMN 92 PIC X(05) VALUE 'MISC.'.
00230 022600 03 COLUMN 111 PIC X(03) VALUE 'NET'.
00231 022700 02 LINE 5.
00232 022800 03 COLUMN 41 PIC X(03) VALUE 'PAY'.
00233 022900 03 COLUMN 59 PIC X(03) VALUE 'TAX'.
00234 023000 03 COLUMN 76 PIC X(03) VALUE 'TAX'.
00235 023100 03 COLUMN 91 PIC X(07) VALUE 'DEDUCT.'.
00236 023200 03 COLUMN 111 PIC X(03) VALUE 'PAY'.
00237 023300
00238 023400 02 LINE PLUS 2.
00239 023500 03 COLUMN 05 PIC X(29) VALUE
00240 023600 '* * * DEPARTMENT TOTALS * * *'.
00241 023700 02 LINE PLUS 2.
00242 023800 03 COLUMN 05 PIC 9(02) SOURCE DE-NUMBER (1).
00243 023900 03 COLUMN 08 PIC X(15) SOURCE DE-NAME (1).
00244 024000 03 COLUMN 38 PIC $$,$$9.99 SOURCE DE-GROSS (1).
00245 024100 03 COLUMN 48 PIC ZZ9 SOURCE WPC-PERCENT (1 1).
00246 024200 03 COLUMN 51 PIC X VALUE '%'.
00247 024300 03 COLUMN 57 PIC $$$9.99 SOURCE DE-FICA (1).
00248 024400 03 COLUMN 65 PIC ZZ9 SOURCE WPC-PERCENT (1 2).
00249 024500 03 COLUMN 68 PIC X VALUE '%'.
00250 024600 03 COLUMN 74 PIC $$$9.99 SOURCE DE-FWT (1).
00251 024700 03 COLUMN 82 PIC ZZ9 SOURCE WPC-PERCENT (1 3).
00252 024800 03 COLUMN 85 PIC X VALUE '%'.
00253 024900 03 COLUMN 91 PIC $$$9.99 SOURCE DE-MISC (1).
00254 025000 03 COLUMN 99 PIC ZZ9 SOURCE WPC-PERCENT (1 4).
00255 025100 03 COLUMN 102 PIC X VALUE '%'.
00256 025200 03 COLUMN 108 PIC $$,$$9.99 SOURCE DE-NET (1).
00257 025300 03 COLUMN 118 PIC ZZ9 SOURCE WPC-PERCENT (1 5).
00258 025400 03 COLUMN 121 PIC X VALUE '%'.
00259 025500 02 LINE PLUS 2.
00260 025600 03 COLUMN 05 PIC 9(02) SOURCE DE-NUMBER (2).
00261 025700 03 COLUMN 08 PIC X(15) SOURCE DE-NAME (2).
00262 025800 03 COLUMN 38 PIC $$,$$9.99 SOURCE DE-GROSS (2).
00263 025900 03 COLUMN 48 PIC ZZ9 SOURCE WPC-PERCENT (2 1).
00264 026000 03 COLUMN 51 PIC X VALUE '%'.
00265 026100 03 COLUMN 57 PIC $$$9.99 SOURCE DE-FICA (2).
00266 026200 03 COLUMN 65 PIC ZZ9 SOURCE WPC-PERCENT (2 2).
00267 026300 03 COLUMN 68 PIC X VALUE '%'.
00268 026400 03 COLUMN 74 PIC $$$9.99 SOURCE DE-FWT (2).
00269 026500 03 COLUMN 82 PIC ZZ9 SOURCE WPC-PERCENT (2 3).
00270 026600 03 COLUMN 85 PIC X VALUE '%'.
00271 026700 03 COLUMN 91 PIC $$$9.99 SOURCE DE-MISC (2).
00272 026800 03 COLUMN 99 PIC ZZ9 SOURCE WPC-PERCENT (2 4).
00273 026900 03 COLUMN 102 PIC X VALUE '%'.
00274 027000 03 COLUMN 108 PIC $$,$$9.99 SOURCE DE-NET (2).
00275 027100 03 COLUMN 118 PIC ZZ9 SOURCE WPC-PERCENT (2 5).
00276 027200 03 COLUMN 121 PIC X VALUE '%'.
00277 027300 02 LINE PLUS 2.
00278 027400 03 COLUMN 05 PIC 9(02) SOURCE DE-NUMBER (3).
00279 027500 03 COLUMN 08 PIC X(15) SOURCE DE-NAME (3).
00280 027600 03 COLUMN 38 PIC $$,$$9.99 SOURCE DE-GROSS (3).
00281 027700 03 COLUMN 48 PIC ZZ9 SOURCE WPC-PERCENT (3 1).
00282 027800 03 COLUMN 51 PIC X VALUE '%'.
00283 027900 03 COLUMN 57 PIC $$$9.99 SOURCE DE-FICA (3).
00284 028000 03 COLUMN 65 PIC ZZ9 SOURCE WPC-PERCENT (3 2).
========================================================================================================================
6
00285 028100 03 COLUMN 68 PIC X VALUE '%'.
00286 028200 03 COLUMN 74 PIC $$$9.99 SOURCE DE-FWT (3).
00287 028300 03 COLUMN 82 PIC ZZ9 SOURCE WPC-PERCENT (3 3).
00288 028400 03 COLUMN 85 PIC X VALUE '%'.
00289 028500 03 COLUMN 91 PIC $$$9.99 SOURCE DE-MISC (3).
00290 028600 03 COLUMN 99 PIC ZZ9 SOURCE WPC-PERCENT (3 4).
00291 028700 03 COLUMN 102 PIC X VALUE '%'.
00292 028800 03 COLUMN 108 PIC $$,$$9.99 SOURCE DE-NET (3).
00293 028900 03 COLUMN 118 PIC ZZ9 SOURCE WPC-PERCENT (3 5).
00294 029000 03 COLUMN 121 PIC X VALUE '%'.
00295 029100 02 LINE PLUS 2.
00296 029200 03 COLUMN 05 PIC 9(02) SOURCE DE-NUMBER (4).
00297 029300 03 COLUMN 08 PIC X(15) SOURCE DE-NAME (4).
00298 029400 03 COLUMN 38 PIC $$,$$9.99 SOURCE DE-GROSS (4).
00299 029500 03 COLUMN 48 PIC ZZ9 SOURCE WPC-PERCENT (4 1).
00300 029600 03 COLUMN 51 PIC X VALUE '%'.
00301 029700 03 COLUMN 57 PIC $$$9.99 SOURCE DE-FICA (4).
00302 029800 03 COLUMN 65 PIC ZZ9 SOURCE WPC-PERCENT (4 2).
00303 029900 03 COLUMN 68 PIC X VALUE '%'.
00304 030000 03 COLUMN 74 PIC $$$9.99 SOURCE DE-FWT (4).
00305 030100 03 COLUMN 82 PIC ZZ9 SOURCE WPC-PERCENT (4 3).
00306 030200 03 COLUMN 85 PIC X VALUE '%'.
00307 030300 03 COLUMN 91 PIC $$$9.99 SOURCE DE-MISC (4).
00308 030400 03 COLUMN 99 PIC ZZ9 SOURCE WPC-PERCENT (4 4).
00309 030500 03 COLUMN 102 PIC X VALUE '%'.
00310 030600 03 COLUMN 108 PIC $$,$$9.99 SOURCE DE-NET (4).
00311 030700 03 COLUMN 118 PIC ZZ9 SOURCE WPC-PERCENT (4 5).
00312 030800 03 COLUMN 121 PIC X VALUE '%'.
00313 030900 02 LINE PLUS 2.
00314 031000 03 COLUMN 05 PIC 9(02) SOURCE DE-NUMBER (5).
00315 031100 03 COLUMN 08 PIC X(15) SOURCE DE-NAME (5).
00316 031200 03 COLUMN 38 PIC $$,$$9.99 SOURCE DE-GROSS (5).
00317 031300 03 COLUMN 48 PIC ZZ9 SOURCE WPC-PERCENT (5 1).
00318 031400 03 COLUMN 51 PIC X VALUE '%'.
00319 031500 03 COLUMN 57 PIC $$$9.99 SOURCE DE-FICA (5).
00320 031600 03 COLUMN 65 PIC ZZ9 SOURCE WPC-PERCENT (5 2).
00321 031700 03 COLUMN 68 PIC X VALUE '%'.
00322 031800 03 COLUMN 74 PIC $$$9.99 SOURCE DE-FWT (5).
00323 031900 03 COLUMN 82 PIC ZZ9 SOURCE WPC-PERCENT (5 3).
00324 032000 03 COLUMN 85 PIC X VALUE '%'.
00325 032100 03 COLUMN 91 PIC $$$9.99 SOURCE DE-MISC (5).
00326 032200 03 COLUMN 99 PIC ZZ9 SOURCE WPC-PERCENT (5 4).
00327 032300 03 COLUMN 102 PIC X VALUE '%'.
00328 032400 03 COLUMN 108 PIC $$,$$9.99 SOURCE DE-NET (5).
00329 032500 03 COLUMN 118 PIC ZZ9 SOURCE WPC-PERCENT (5 5).
00330 032600 03 COLUMN 121 PIC X VALUE '%'.
00331 032700 02 LINE PLUS 2.
00332 032800 03 COLUMN 05 PIC 9(02) SOURCE DE-NUMBER (6).
00333 032900 03 COLUMN 08 PIC X(15) SOURCE DE-NAME (6).
00334 033000 03 COLUMN 38 PIC $$,$$9.99 SOURCE DE-GROSS (6).
00335 033100 03 COLUMN 48 PIC ZZ9 SOURCE WPC-PERCENT (6 1).
00336 033200 03 COLUMN 51 PIC X VALUE '%'.
00337 033300 03 COLUMN 57 PIC $$$9.99 SOURCE DE-FICA (6).
00338 033400 03 COLUMN 65 PIC ZZ9 SOURCE WPC-PERCENT (6 2).
00339 033500 03 COLUMN 68 PIC X VALUE '%'.
00340 033600 03 COLUMN 74 PIC $$$9.99 SOURCE DE-FWT (6).
00341 033700 03 COLUMN 82 PIC ZZ9 SOURCE WPC-PERCENT (6 3).
========================================================================================================================
7
00342 033800 03 COLUMN 85 PIC X VALUE '%'.
00343 033900 03 COLUMN 91 PIC $$$9.99 SOURCE DE-MISC (6).
00344 034000 03 COLUMN 99 PIC ZZ9 SOURCE WPC-PERCENT (6 4).
00345 034100 03 COLUMN 102 PIC X VALUE '%'.
00346 034200 03 COLUMN 108 PIC $$,$$9.99 SOURCE DE-NET (6).
00347 034300 03 COLUMN 118 PIC ZZ9 SOURCE WPC-PERCENT (6 5).
00348 034400 03 COLUMN 121 PIC X VALUE '%'.
00349 034500 02 LINE PLUS 2.
00350 034600 03 COLUMN 37 PIC $$$,$$9.99 SOURCE CO-GROSS.
00351 034700 03 COLUMN 48 PIC X(5) VALUE '100%'.
00352 034800 03 COLUMN 55 PIC $$,$$9.99 SOURCE CO-FICA.
00353 034900 03 COLUMN 65 PIC X(5) VALUE '100%'.
00354 035000 03 COLUMN 72 PIC $$,$$9.99 SOURCE CO-FWT.
00355 035100 03 COLUMN 82 PIC X(5) VALUE '100%'.
00356 035200 03 COLUMN 89 PIC $$,$$9.99 SOURCE CO-MISC.
00357 035300 03 COLUMN 99 PIC X(5) VALUE '100%'.
00358 035400 03 COLUMN 107 PIC $$$,$$9.99 SOURCE CO-NET.
00359 035500 03 COLUMN 118 PIC X(5) VALUE '100%'.
00360 035600
00361 035700 PROCEDURE DIVISION.
00362 035800
00363 035900 DECLARATIVES.
00364 036000
00365 036100 DEPT-HEAD-USE SECTION. USE BEFORE REPORTING DEPT-HEAD.
00366 036200 DEPT-HEAD-PROC.
00367 036300 SET DE-IX TO +1.
00368 036400 SEARCH DEPARTMENT-ENTRY
00369 036500 WHEN DE-NUMBER (DE-IX) = PRR-DEPARTMENT-NUMBER
00370 036600 MOVE ZEROS TO DE-GROSS (DE-IX), DE-FICA (DE-IX),
00371 036700 DE-FWT (DE-IX), DE-MISC (DE-IX),
00372 036800 DE-NET (DE-IX).
00373 036900
00374 037000 DEPT-HEAD-EXIT.
00375 037100 EXIT.
00376 037200
00377 037300 EMPL-FOOT-USE SECTION. USE BEFORE REPORTING EMPL-FOOT.
00378 037400 EMPL-FOOT-PROC.
00379 037500 MOVE PRR-EMPLOYEE-KEY TO WS-EMPLOYEE-KEY.
00380 037600
00381 037700 EMPL-FOOT-EXIT. 20110227
00382 037800 EXIT.
00383 037900
00384 038000 DEPT-FOOT-USE SECTION. USE BEFORE REPORTING DEPT-FOOT.
00385 038100 DEPT-FOOT-PROC.
00386 038200 MOVE DEPT-FOOT-GROSS TO DE-GROSS (DE-IX).
00387 038300 MOVE DEPT-FOOT-FICA TO DE-FICA (DE-IX).
00388 038400 MOVE DEPT-FOOT-FWT TO DE-FWT (DE-IX).
00389 038500 MOVE DEPT-FOOT-MISC TO DE-MISC (DE-IX).
00390 038600 MOVE DEPT-FOOT-NET TO DE-NET (DE-IX).
00391 038700
00392 038800 DEPT-FOOT-EXIT.
00393 038900 EXIT.
00394 039000
00395 039100 COMP-FOOT-USE SECTION. USE BEFORE REPORTING COMP-FOOT.
00396 039200 COMP-FOOT-PROC.
00397 039300 PERFORM COMP-FOOT-CALC
00398 039400 VARYING WPCD-IX FROM +1 BY +1
========================================================================================================================
8
00399 039500 UNTIL WPCD-IX > +6.
00400 039600 GO TO COMP-FOOT-EXIT. 20110227
00401 039700
00402 039800 COMP-FOOT-CALC.
00403 039900 SET DE-IX TO WPCD-IX.
00404 040000 SET WPCC-IX TO +1.
00405 040100 COMPUTE WPC-PERCENT (WPCD-IX WPCC-IX) ROUNDED =
00406 040200 ((DE-GROSS (DE-IX) / CO-GROSS) * 100) + .5.
00407 040300 SET WPCC-IX TO +2.
00408 040400 COMPUTE WPC-PERCENT (WPCD-IX WPCC-IX) ROUNDED =
00409 040500 ((DE-FICA (DE-IX) / CO-FICA) * 100) + .5.
00410 040600 SET WPCC-IX TO +3.
00411 040700 COMPUTE WPC-PERCENT (WPCD-IX WPCC-IX) ROUNDED =
00412 040800 ((DE-FWT (DE-IX) / CO-FWT) * 100) + .5.
00413 040900 SET WPCC-IX TO +4.
00414 041000 COMPUTE WPC-PERCENT (WPCD-IX WPCC-IX) ROUNDED =
00415 041100 ((DE-MISC (DE-IX) / CO-MISC) * 100) + .5.
00416 041200 SET WPCC-IX TO +5.
00417 041300 COMPUTE WPC-PERCENT (WPCD-IX WPCC-IX) ROUNDED =
00418 041400 ((DE-NET (DE-IX) / CO-NET) * 100) + .5.
00419 041500
00420 041600 COMP-FOOT-EXIT.
00421 041700 EXIT.
00422 041800
00423 041900 END DECLARATIVES.
00424 042000
00425 042100 000-INITIATE.
00426 042200
00427 042300 OPEN INPUT PAYROLL-REGISTER-DATA,
00428 042400 OUTPUT REPORT-FILE.
00429 042500
00430 042600 INITIATE QUARTERLY-PAY-REGISTER.
00431 042700
00432 042800 READ PAYROLL-REGISTER-DATA
00433 042900 AT END
00434 043000 MOVE 'Y' TO END-OF-FILE-SWITCH.
00435 043100* END-READ.
00436 043200
00437 043300 PERFORM 100-PROCESS-PAYROLL-DATA THRU 199-EXIT
00438 043400 UNTIL END-OF-FILE.
00439 043500
00440 043600 000-TERMINATE.
00441 043700 TERMINATE QUARTERLY-PAY-REGISTER.
00442 043800
00443 043900 CLOSE PAYROLL-REGISTER-DATA,
00444 044000 REPORT-FILE.
00445 044100
00446 044200 STOP RUN.
00447 044300
00448 044400 100-PROCESS-PAYROLL-DATA.
00449 044500 GENERATE QUARTERLY-PAY-REGISTER.
00450 044600 READ PAYROLL-REGISTER-DATA
00451 044700 AT END
00452 044800 MOVE 'Y' TO END-OF-FILE-SWITCH.
00453 044900* END-READ.
00454 045000
00455 045100 199-EXIT.
========================================================================================================================
9
00456 045200 EXIT.
00457 045300
========================================================================================================================
10
INTRNL NAME LVL SOURCE NAME BASE DISPL INTRNL NAME DEFINITION USAGE R O Q M
DNM=1-426 FD PAYROLL-REGISTER-DATA DCB=01 DNM=1-426 QSAM F
DNM=1-460 01 PAYROLL-REGISTER-RECORD BL=1 000 DNM=1-460 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
========================================================================================================================
11
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-493 02 E.0023 BL=3 2F5 DNM=5-493 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
========================================================================================================================
12
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
========================================================================================================================
13
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
========================================================================================================================
14
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
========================================================================================================================
15
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
========================================================================================================================
16
CONDENSED LISTING
365 USE 00271E 367 SET 002722 368 SEARCH 002730
370 MOVE 00275C 375 EXIT 0027EA 377 USE 0027F0
379 MOVE 0027F4 382 EXIT 0027FA 384 USE 002800
386 MOVE 002804 387 MOVE 002816 388 MOVE 002828
389 MOVE 00283A 390 MOVE 00284C 393 EXIT 00285E
395 USE 002864 397 PERFORM 002868 400 GO 0028C4
403 SET 0028CA 404 SET 0028DE 405 COMPUTE 0028EC
407 SET 002958 408 COMPUTE 00296E 410 SET 0029DA
411 COMPUTE 0029F0 413 SET 002A5C 414 COMPUTE 002A72
416 SET 002ADE 417 COMPUTE 002AF4 421 EXIT 002B6E
427 OPEN 002B74 430 INITIATE 002BE4 432 READ 002BEA
434 MOVE 002C0A 437 PERFORM 002C10 441 TERMINATE 002C3A
443 CLOSE 002C40 446 STOP 002CBC 449 GENERATE 002CC2
450 READ 002CD4 452 MOVE 002CF4 456 EXIT 002CFA
*STATISTICS* SOURCE RECORDS = 457 DATA DIVISION STATEMENTS = 76 PROCEDURE DIVISION STATEMENTS = 42
*OPTIONS IN EFFECT* SIZE = 2097152 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
========================================================================================================================
17
CARD ERROR MESSAGE
244 IKF5011I-W AN INTERMEDIATE RESULT OR A SENDING FIELD MIGHT HAVE ITS HIGH ORDER DIGIT POSITION
TRUNCATED.
247 IKF5011I-W AN INTERMEDIATE RESULT OR A SENDING FIELD MIGHT HAVE ITS HIGH ORDER DIGIT POSITION
TRUNCATED.
250 IKF5011I-W AN INTERMEDIATE RESULT OR A SENDING FIELD MIGHT HAVE ITS HIGH ORDER DIGIT POSITION
TRUNCATED.
253 IKF5011I-W AN INTERMEDIATE RESULT OR A SENDING FIELD MIGHT HAVE ITS HIGH ORDER DIGIT POSITION
TRUNCATED.
256 IKF5011I-W AN INTERMEDIATE RESULT OR A SENDING FIELD MIGHT HAVE ITS HIGH ORDER DIGIT POSITION
TRUNCATED.
262 IKF5011I-W AN INTERMEDIATE RESULT OR A SENDING FIELD MIGHT HAVE ITS HIGH ORDER DIGIT POSITION
TRUNCATED.
265 IKF5011I-W AN INTERMEDIATE RESULT OR A SENDING FIELD MIGHT HAVE ITS HIGH ORDER DIGIT POSITION
TRUNCATED.
268 IKF5011I-W AN INTERMEDIATE RESULT OR A SENDING FIELD MIGHT HAVE ITS HIGH ORDER DIGIT POSITION
TRUNCATED.
271 IKF5011I-W AN INTERMEDIATE RESULT OR A SENDING FIELD MIGHT HAVE ITS HIGH ORDER DIGIT POSITION
TRUNCATED.
274 IKF5011I-W AN INTERMEDIATE RESULT OR A SENDING FIELD MIGHT HAVE ITS HIGH ORDER DIGIT POSITION
TRUNCATED.
280 IKF5011I-W AN INTERMEDIATE RESULT OR A SENDING FIELD MIGHT HAVE ITS HIGH ORDER DIGIT POSITION
TRUNCATED.
283 IKF5011I-W AN INTERMEDIATE RESULT OR A SENDING FIELD MIGHT HAVE ITS HIGH ORDER DIGIT POSITION
TRUNCATED.
286 IKF5011I-W AN INTERMEDIATE RESULT OR A SENDING FIELD MIGHT HAVE ITS HIGH ORDER DIGIT POSITION
TRUNCATED.
289 IKF5011I-W AN INTERMEDIATE RESULT OR A SENDING FIELD MIGHT HAVE ITS HIGH ORDER DIGIT POSITION
TRUNCATED.
292 IKF5011I-W AN INTERMEDIATE RESULT OR A SENDING FIELD MIGHT HAVE ITS HIGH ORDER DIGIT POSITION
TRUNCATED.
298 IKF5011I-W AN INTERMEDIATE RESULT OR A SENDING FIELD MIGHT HAVE ITS HIGH ORDER DIGIT POSITION
TRUNCATED.
301 IKF5011I-W AN INTERMEDIATE RESULT OR A SENDING FIELD MIGHT HAVE ITS HIGH ORDER DIGIT POSITION
TRUNCATED.
304 IKF5011I-W AN INTERMEDIATE RESULT OR A SENDING FIELD MIGHT HAVE ITS HIGH ORDER DIGIT POSITION
TRUNCATED.
307 IKF5011I-W AN INTERMEDIATE RESULT OR A SENDING FIELD MIGHT HAVE ITS HIGH ORDER DIGIT POSITION
TRUNCATED.
310 IKF5011I-W AN INTERMEDIATE RESULT OR A SENDING FIELD MIGHT HAVE ITS HIGH ORDER DIGIT POSITION
TRUNCATED.
316 IKF5011I-W AN INTERMEDIATE RESULT OR A SENDING FIELD MIGHT HAVE ITS HIGH ORDER DIGIT POSITION
TRUNCATED.
319 IKF5011I-W AN INTERMEDIATE RESULT OR A SENDING FIELD MIGHT HAVE ITS HIGH ORDER DIGIT POSITION
TRUNCATED.
322 IKF5011I-W AN INTERMEDIATE RESULT OR A SENDING FIELD MIGHT HAVE ITS HIGH ORDER DIGIT POSITION
TRUNCATED.
325 IKF5011I-W AN INTERMEDIATE RESULT OR A SENDING FIELD MIGHT HAVE ITS HIGH ORDER DIGIT POSITION
TRUNCATED.
328 IKF5011I-W AN INTERMEDIATE RESULT OR A SENDING FIELD MIGHT HAVE ITS HIGH ORDER DIGIT POSITION
TRUNCATED.
334 IKF5011I-W AN INTERMEDIATE RESULT OR A SENDING FIELD MIGHT HAVE ITS HIGH ORDER DIGIT POSITION
TRUNCATED.
337 IKF5011I-W AN INTERMEDIATE RESULT OR A SENDING FIELD MIGHT HAVE ITS HIGH ORDER DIGIT POSITION
TRUNCATED.
340 IKF5011I-W AN INTERMEDIATE RESULT OR A SENDING FIELD MIGHT HAVE ITS HIGH ORDER DIGIT POSITION
========================================================================================================================
18
TRUNCATED.
343 IKF5011I-W AN INTERMEDIATE RESULT OR A SENDING FIELD MIGHT HAVE ITS HIGH ORDER DIGIT POSITION
TRUNCATED.
346 IKF5011I-W AN INTERMEDIATE RESULT OR A SENDING FIELD MIGHT HAVE ITS HIGH ORDER DIGIT POSITION
TRUNCATED.
========================================================================================================================
--------- 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%
========================================================================================================================