аЯрЁБс ; ўџ ўџџџ џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ§џџџ6 ўџџџ7
! " # $ % & ' ( ) * + , - . / 0 1 2 3 4 5 8 ўџџџўџџџ9 : ; < = > ? @ A B C D E F G H I J K L M N ўџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџR o o t E n t r y џџџџџџџџ Р F э+ў@Н @ C o m p O b j џџџџџџџџџџџџ b W o r d D o c u m e n t џџџџ џџџџ S O b j e c t P o o l џџџџ E
ДЕхМE
ДЕхМ д
4@д
ўџџџ
ўџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ ўџ
џџџџ Р F Microsoft Word 6.0 Document
MSWordDoc Word.Document.6 ; ўџ ўџ
р
ђљOhЋ +'Гй0 h м $
H l
Д и ќ D џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ ( D:\MSOFFICE\WINWORD\TEMPLATE\NORMAL.DOT Nicholas @ Г(буМ @ ЫСфМ @ )7ІмЅe 3Р e ec S e` j j j j j j j $ $ $ $ $ $
. R $ C Щ л л л ' Р Т Р у T 7 j 7 8
j j j j Щ ~ > М h j j j j Щ I
* Micro Focus COBOL for Unix V3.1 revision 035 17-Oct-97 19:23 Page 1
* wca.cbl
1 IDENTIFICATION DIVISION.
2 PROGRAM-ID. current-assignment.
3 AUTHOR. Nicholas.
4 DATE-WRITTEN. 11/10/1997.
5 DATE-COMPILED. 17-Oct-97 19:23.
6*******************************************
7*This program is to compile all the report*
8*******************************************
9 ENVIRONMENT DIVISION.
10 FILE-CONTROL.
11 SELECT client-file ASSIGN TO
12 "/users/students/df9609/df960946/project/client.dat"
13 ORGANIZATION IS INDEXED
14 ACCESS MODE IS DYNAMIC
15 RECORD KEY IS C-id
16 ALTERNATE KEY IS C-name WITH DUPLICATES.
17
18 SELECT worker-file ASSIGN TO
19 "/users/students/df9609/df960934/project/worker.dat"
20 ORGANIZATION IS INDEXED
21 ACCESS MODE IS DYNAMIC
22 RECORD KEY IS W-id
23 ALTERNATE KEY IS W-name WITH DUPLICATES.
24
25 SELECT job-file ASSIGN TO
26 "/users/students/df9609/df960931/project/job-file.dat"
27 ORGANIZATION IS INDEXED
28 ACCESS MODE IS DYNAMIC
29 RECORD KEY IS J-no
30 ALTERNATE KEY IS J-title WITH DUPLICATES.
31
32 SELECT bill-file ASSIGN TO
33 "/users/students/df9609/df960931/project/billing.dat"
34 ORGANIZATION IS INDEXED
35 ACCESS MODE IS DYNAMIC
36 RECORD KEY IS B-invoice.
37
38 SELECT payroll-file ASSIGN TO
39 "/users/students/df9609/df960931/project/payroll.dat"
40 ORGANIZATION IS INDEXED
41 ACCESS MODE IS DYNAMIC
42 RECORD KEY IS P-cheque.
43
44 SELECT assign-file ASSIGN TO
45 "/users/students/df9609/df960931/project/assignment.dat"
46 ORGANIZATION IS LINE SEQUENTIAL
47 ACCESS MODE IS SEQUENTIAL.
48
49 SELECT pr-ca-file ASSIGN TO
50 "/users/students/df9609/df960931/project/wcass.rpt"
51 ORGANIZATION IS LINE SEQUENTIAL.
52
53 DATA DIVISION.
54 FILE SECTION.
* 55 COPY "$HOME/project/client.fd".
56********************************************
57* file description for client-file *
58********************************************
* Micro Focus COBOL for Unix V3.1 revision 035 17-Oct-97 19:23 Page 2
* wca.cbl (/users/students/df9609/df960931/proje)
59 FD Client-file.
60 01 Client-data.
61 05 C-id PIC 9(6) VALUE 0.
62 05 C-name PIC X(30).
63 05 C-address.
64 10 C-addr1 PIC X(30).
65 10 C-addr2 PIC X(30).
66 10 C-addr3.
67 15 C-poscode PIC 9(5) .
68 15 C-town PIC X(24).
69 05 C-state PIC X(30).
70 05 C-phone.
71 10 C-phoneCode PIC 9(3) .
72 10 C-phoneNo PIC 9(7) .
73 05 C-contact PIC X(30) .
74 05 C-billYTD PIC 9(6)v99 .
75 05 C-payYTD PIC 9(6)v99 .
76 05 C-balYTD PIC 9(6)v99 .
77***************** end FD ********************
* 78 COPY "$HOME/project/worker.fd".
79*************************************************
80* File description of worker-file *
81*************************************************
82 FD Worker-file.
83 01 Worker-data.
84 05 W-id PIC 9(6).
85 05 W-name PIC X(30).
86 05 W-EPFno PIC 9(8).
87 05 W-address.
88 10 W-addr1 PIC X(30).
89 10 W-addr2 PIC X(30).
90 10 W-addr3.
91 15 W-poscode PIC 9(5).
92 15 FILLER PIC X.
93 15 W-town PIC X(24).
94 10 W-state PIC X(30).
95 05 W-phone.
96 10 W-phoneCode PIC 9(3).
97 10 W-phoneNo PIC 9(7).
98 05 W-dob.
99 10 W-day PIC 9(2).
100 10 W-month PIC 9(2).
101 10 W-year PIC 9(4).
102 05 W-sex PIC X.
103 05 W-hireOn.
104 10 W-hireDay PIC 9(2).
105 10 W-hireMonth PIC 9(2).
106 10 W-hireYear PIC 9(4).
107 05 W-lastWork.
108 10 W-lastDay PIC 9(2).
109 10 W-lastMonth PIC 9(2).
110 10 W-lastYear PIC 9(4).
111 05 W-avgrating PIC 9v99.
112 05 W-skill.
113 10 W-book PIC 9.
114 10 W-file PIC 9.
115 10 W-steno PIC 9.
116 10 W-type PIC 9.
* Micro Focus COBOL for Unix V3.1 revision 035 17-Oct-97 19:23 Page 3
* wca.cbl (/users/students/df9609/df960931/proje)
117 10 W-word PIC 9.
118 05 W-Status PIC x.
119*************** end FD *************************
* 120 COPY "$HOME/project/job.fd".
121*********************************************
122* file description of job-file *
123*********************************************
124 FD Job-file.
125 01 Job-data.
126 05 J-no PIC 9(6) .
127 05 J-Cid PIC 9(6) .
128 05 J-title PIC 9.
129 05 J-start.
130 10 J-startDay PIC 9(2) .
131 10 J-startMonth PIC 9(2) .
132 10 J-startYear PIC 9(4) .
133 05 J-end.
134 10 J-endDay PIC 9(2) .
135 10 J-endMonth PIC 9(2) .
136 10 J-endYear PIC 9(4) .
137 05 J-dailyrate PIC 9(3)v99 .
138 05 J-dailyHours PIC 9(2) .
139 05 J-rptTo.
140 10 J-rptName PIC X(30).
141 10 J-rptAddr.
142 15 J-rptaddr1 PIC X(30).
143 15 J-rptaddr2 PIC X(30).
144 10 J-rptPhone.
145 15 J-rptPhoneCode PIC 9(3) .
146 15 J-rptPhoneNo PIC 9(7) .
147 05 J-status PIC 9 .
148***** J-status 0-job completed 1-on going *****
149************* end FD *******************
* 150 COPY "$HOME/project/assign.fd".
151*********************************
152* File description of assign.fd *
153*********************************
154 FD Assign-file.
155 01 Assign-data.
156 05 A-jobNo PIC 9(6).
157 05 A-Wid PIC 9(6).
158 05 A-raterName PIC X(30).
159 05 A-rateDate.
160 10 A-rateYear PIC 9(4).
161 10 A-rateMonth PIC 9(2).
162 10 A-rateDay PIC 9(2).
163 05 A-Wrating PIC 9.
164 05 A-daysworked-week PIC 9v9.
165 05 A-daysworked-total PIC 9(3).
* 166 COPY "$HOME/project/billing.fd".
167*****************************************************
168* File description of billing file *
169*****************************************************
170 FD Bill-file.
171 01 Bill-data.
172 05 B-invoice PIC 9(6) VALUE 0.
173 05 B-jobNo PIC 9(6) VALUE 0.
174 05 B-billDate.
* Micro Focus COBOL for Unix V3.1 revision 035 17-Oct-97 19:23 Page 4
* wca.cbl (/users/students/df9609/df960931/proje)
175 10 B-billYear PIC 9(4) VALUE 0.
176 10 B-billMonth PIC 9(2) VALUE 0.
177 10 B-billDay PIC 9(2) VALUE 0.
178 05 B-oldBalance PIC 9(4)v99 VALUE 0.
179 05 B-totalCharges PIC 9(5)v99 VALUE 0.
180 05 B-totalPaid PIC 9(5)v99 VALUE 0.
181
182******************** end FD *************************
* 183 COPY "$HOME/project/payroll.fd".
184*payroll.fd
185 FD Payroll-file.
186 01 Payroll-data.
187 05 P-J-no PIC 9(6).
188 05 P-cheque.
189 10 P-chequeBank PIC X(4).
190 10 P-chequeNo PIC 9(6) VALUE 0.
191 05 P-Wid PIC 9(6) VALUE 0.
192 05 P-payDate.
193 10 P-payYear PIC 9(4) VALUE 0.
194 10 P-payMonth PIC 9(2) VALUE 0.
195 10 P-payDay PIC 9(2) VALUE 0.
196 05 P-grossPay PIC 9(4)v99 VALUE 0.
197 05 P-grossYTD PIC 9(6)v99 VALUE 0.
198*****************************************************
199
200 FD pr-ca-file.
201 01 pr-ca PIC X(132).
202
203 WORKING-STORAGE SECTION.
204
205 01 pr-main-header.
206 05 Title-name PIC X(40) VALUE
207 "CLERICALTEMPS STAFFING SERVICES SDN.BHD.".
208 05 Filler PIC X(65) VALUE SPACES.
209 05 Title-date PIC X(5) VALUE "DATE:".
210 05 Filler PIC X VALUE SPACE.
211 05 pr-day PIC 9(2) VALUE ZEROS.
212 05 split PIC X VALUE "/".
213 05 pr-month PIC 9(2) VALUE ZEROS.
214 05 split PIC X VALUE "/".
215 05 pr-year PIC 9(4) VALUE ZEROS.
216 05 Filler PIC X(11) VALUE SPACES.
217
218 01 pr-main-header1.
219 05 Filler PIC X(105) VALUE SPACES.
220 05 Title-page PIC X(5) VALUE "PAGE:".
221 05 Filler PIC X VALUE SPACE.
222 05 pr-page-count PIC 9(2) VALUE ZEROS.
223 05 Filler PIC X(19) VALUE SPACES.
224
225
226***********************************************************
227 01 pr-main-header2.
228 05 Filler PIC X(38) VALUE ALL SPACES.
229 05 PIC X(40) VALUE
230 " << CLERICALTEMPS CURRENT ASSIGNMENT >> ".
231 05 PIC X(56) VALUE ALL SPACES.
232 01 pr-main-header3.
* Micro Focus COBOL for Unix V3.1 revision 035 17-Oct-97 19:23 Page 5
* wca.cbl )
233 05 PIC X(3) VALUE SPACES.
234 05 PIC X(3) VALUE
235 "Job".
236 05 PIC X(22) VALUE ALL SPACES.
237 05 PIC X(5) VALUE
238 "Daily".
239 05 PIC X(3) VALUE SPACES.
240 05 PIC X(5) VALUE
241 "Daily".
242 05 PIC X(7) VALUE SPACES.
243 05 PIC X(6) VALUE
244 "Client".
245 05 PIC X(35) VALUE ALL SPACES.
246 05 PIC X(8) VALUE
247 "Employee".
248 05 PIC X(34) VALUE ALL SPACES.
249 01 pr-main-header4.
250 05 PIC X(7) VALUE
251 " Number".
252 05 PIC X(7) VALUE SPACES.
253 05 PIC X(9) VALUE
254 "Job Title".
255 05 PIC X(5) VALUE SPACES.
256 05 PIC X(5) VALUE
257 "Hours".
258 05 PIC X(2) VALUE SPACES.
259 05 PIC X(9) VALUE
260 "Rate (RM)".
261 05 PIC X(5) VALUE SPACES.
262 05 PIC X(3) VALUE
263 "ID.".
264 05 PIC X(10) VALUE ALL SPACES.
265 05 PIC X(11) VALUE
266 "Client Name".
267 05 PIC X(18) VALUE ALL SPACES.
268 05 PIC X(3) VALUE
269 "ID.".
270 05 PIC X(13) VALUE ALL SPACES.
271 05 PIC X(13) VALUE
272 "Employer Name".
273 05 PIC X(10) VALUE SPACES.
274 01 pr-dash-line.
275 05 PIC X(130) VALUE ALL "-".
276 01 pr-blank-line.
277 05 PIC X(130) VALUE ALL SPACES.
278 01 pr-detail1.
279 05 pr-J-no PIC 9(6) VALUE ZEROS.
280 05 PIC x(4) VALUE SPACES.
281 05 pr-J-title PIC x(15) .
282 05 PIC x(4) VALUE SPACES.
283 05 pr-J-dailyhours PIC 9(2) VALUE ZEROS.
284 05 PIC x(5) VALUE SPACES.
285 05 pr-J-dailyrate PIC Z(3).99 VALUE ZEROS.
286 05 PIC x(6) VALUE SPACES.
287 05 pr-J-cid PIC 9(6) VALUE ZEROS.
288 05 PIC x(3) VALUE SPACES.
289 05 pr-J-cname PIC X(30) .
290 05 PIC x(5) VALUE SPACES.
* Micro Focus COBOL for Unix V3.1 revision 035 17-Oct-97 19:23 Page 6
* wca.cbl )
291 01 pr-detail2.
292 05 PIC x(90) VALUE ALL SPACES.
293 05 pr-J-wid PIC 9(6) VALUE ZEROS.
294 05 PIC x(4) VALUE SPACES.
295 05 pr-J-wname PIC X(30) VALUE ZEROS.
296 05 PIC x(1) VALUE SPACES.
297
298**********************************************************
299 01 british-date.
300 05 ws-year PIC 9(4) VALUE ZEROS.
301 05 ws-month PIC 9(2) VALUE ZEROS.
302 05 ws-day PIC 9(2) VALUE ZEROS.
303 05 PIC X(13).
304 01 ws-more-rec PIC X.
305 88 no-more-rec VALUE "N".
306 88 yes-more-rec VALUE "Y".
307 01 ws-choice PIC 9 VALUE 1.
308 88 valid-choice VALUE 1 THRU 8.
309 88 quit-program VALUE 8.
310 01 line-count PIC 9(2) VALUE 6.
311 01 max-line PIC 9(2) VALUE 6.
312 01 more-assign PIC X.
313 88 no-more-assign VALUE "N".
314 88 yes-more-assign VALUE "Y".
315 01 ws-esc PIC X.
316 88 esc-m VALUE "M", "m".
317 88 esc-p VALUE "P", "p".
318 88 esc-h VALUE "H", "h".
319
320 01 ws-enter PIC X.
321
322 LINKAGE SECTION.
323 01 ls-esc-code PIC X.
324 88 esc-code-m VALUE "M".
325 88 esc-code-p VALUE "P".
326 88 esc-code-h VALUE "H".
327
328 SCREEN SECTION.
329 01 Report-Menu-scr.
330 05 Std-Detail-Scr.
331 10 Header-Scr.
332 15 LINE 01 COL 01 PIC X(5) REVERSE-VIDEO.
333 15 LINE 01 COL 07 VALUE "MAIN MENU".
334 15 LINE 01 COL 17 PIC X(46) REVERSE-VIDEO.
335 15 LINE 01 COL 64 PIC 9(2) FROM ws-day.
336 15 LINE 01 COL 66 VALUE "/".
337
338
339 15 LINE 01 COL 67 PIC 9(2) FROM ws-month.
340 15 LINE 01 COL 69 VALUE "/".
341 15 LINE 01 COL 70 PIC 9(4) FROM ws-year.
342 15 LINE 01 COL 75 PIC X(5) REVERSE-VIDEO.
343
344 10 Footer-Scr.
345 15 LINE 23 COL 01 PIC X(15) REVERSE-VIDEO.
346 15 LINE 23 COL 17 VALUE
347 "ESC - [M]AIN MENU - [P]REVIOUS MENU - [H]ELP".
348 15 LINE 23 COL 64 PIC X(15) REVERSE-VIDEO.
* Micro Focus COBOL for Unix V3.1 revision 035 17-Oct-97 19:23 Page 7
* wca.cbl )
349
350 01 Menu-List-Scr.
351 05 Menu-Border-Scr.
352 10 LINE 05 COL 04 PIC X(74) REVERSE-VIDEO.
353 10 LINE 06 COL 04 PIC X REVERSE-VIDEO.
354 10 LINE 06 COL 41 PIC X REVERSE-VIDEO.
355 10 LINE 06 COL 77 PIC X REVERSE-VIDEO.
356 10 LINE 07 COL 04 PIC X REVERSE-VIDEO.
357 10 LINE 07 COL 41 PIC X REVERSE-VIDEO.
358 10 LINE 07 COL 77 PIC X REVERSE-VIDEO.
359 10 LINE 08 COL 04 PIC X REVERSE-VIDEO.
360 10 LINE 08 COL 41 PIC X REVERSE-VIDEO.
361 10 LINE 08 COL 77 PIC X REVERSE-VIDEO.
362 10 LINE 09 COL 04 PIC X REVERSE-VIDEO.
363 10 LINE 09 COL 41 PIC X REVERSE-VIDEO.
364 10 LINE 09 COL 77 PIC X REVERSE-VIDEO.
365 10 LINE 10 COL 04 PIC X REVERSE-VIDEO.
366 10 LINE 10 COL 41 PIC X REVERSE-VIDEO.
367 10 LINE 10 COL 77 PIC X REVERSE-VIDEO.
368 10 LINE 11 COL 04 PIC X REVERSE-VIDEO.
369 10 LINE 11 COL 41 PIC X REVERSE-VIDEO.
370 10 LINE 11 COL 77 PIC X REVERSE-VIDEO.
371 10 LINE 12 COL 04 PIC X(74) REVERSE-VIDEO.
372 10 LINE 13 COL 04 PIC X REVERSE-VIDEO.
373 10 LINE 13 COL 41 PIC X REVERSE-VIDEO.
374 10 LINE 13 COL 77 PIC X REVERSE-VIDEO.
375 10 LINE 14 COL 04 PIC X REVERSE-VIDEO.
376 10 LINE 14 COL 41 PIC X REVERSE-VIDEO.
377 10 LINE 14 COL 77 PIC X REVERSE-VIDEO.
378 10 LINE 15 COL 04 PIC X REVERSE-VIDEO.
379 10 LINE 15 COL 41 PIC X REVERSE-VIDEO.
380 10 LINE 15 COL 77 PIC X REVERSE-VIDEO.
381 10 LINE 16 COL 04 PIC X REVERSE-VIDEO.
382 10 LINE 16 COL 41 PIC X REVERSE-VIDEO.
383 10 LINE 16 COL 77 PIC X REVERSE-VIDEO.
384 10 LINE 17 COL 04 PIC X REVERSE-VIDEO.
385 10 LINE 17 COL 41 PIC X REVERSE-VIDEO.
386 10 LINE 17 COL 77 PIC X REVERSE-VIDEO.
387 10 LINE 18 COL 04 PIC X REVERSE-VIDEO.
388 10 LINE 18 COL 41 PIC X REVERSE-VIDEO.
389 10 LINE 18 COL 77 PIC X REVERSE-VIDEO.
390 10 LINE 19 COL 04 PIC X(25) REVERSE-VIDEO.
391 10 LINE 19 COL 52 PIC X(26) REVERSE-VIDEO.
392
393 05 Menu-Content-Scr.
394 10 LINE 03 COL 29 VALUE "<< REPORT GENERATION >>".
395 10 LINE 07 COL 13 VALUE "CLIENT REPORT OPTION".
396 10 LINE 08 COL 13 VALUE "~~~~~~~~~~~~~~~~~~~~".
397 10 LINE 07 COL 50 VALUE "WORKER REPORT OPTION".
398 10 LINE 08 COL 50 VALUE "~~~~~~~~~~~~~~~~~~~~".
399 10 LINE 09 COL 09 VALUE "<1> ClienT Report".
400 10 LINE 09 COL 46 VALUE "<3> Worker Report".
401 10 LINE 10 COL 09 VALUE
402 "<2> Weekly Client Bill Report".
403 10 LINE 10 COL 46 VALUE "<4> Worker Pay Stub Report".
404 10 LINE 14 COL 11 VALUE "ACCOUNTING REPORT OPTION".
405 10 LINE 15 COL 11 VALUE "~~~~~~~~~~~~~~~~~~~~~~~~".
406 10 LINE 14 COL 46 VALUE "MISCELLANEOUS REPORT OPTION".
* Micro Focus COBOL for Unix V3.1 revision 035 17-Oct-97 19:23 Page 8
* wca.cbl )
407 10 LINE 15 COL 46 VALUE "~~~~~~~~~~~~~~~~~~~~~~~~~~~".
408 10 LINE 16 COL 09 VALUE
409 "<5> Account Receivable Report".
410 10 LINE 16 COL 46 VALUE
411 "<7> Current Assignment Report".
412 10 LINE 17 COL 09 VALUE "<6> Weekly Payroll Report".
413 10 LINE 17 COL 46 VALUE "<8> Return Main Menu".
414 10 LINE 19 COL 30 VALUE "ENTER SELECTION : [ ]".
415 10 LINE 19 COL 49 PIC X USING ws-choice AUTO.
416
417 01 Choice-Err-Msg.
418 05 LINE 21 COL 25 VALUE "Please Enter Choice 1 - 8 Only !"
419 HIGHLIGHT.
420
421 PROCEDURE DIVISION .
422 000-Main.
423 OPEN I-O client-file
424 worker-file
425 job-file
426 OUTPUT pr-ca-file
427
428 MOVE 1 TO J-no
429 PERFORM 100-system-date
430 DISPLAY ERASE
431 PERFORM UNTIL no-more-rec
432 READ job-file NEXT RECORD
433 AT END
434 SET no-more-rec TO TRUE
435 NOT AT END
436 IF J-status = 1 THEN
437 IF line-count >= max-line THEN
438 PERFORM 500-write-header
439 END-IF
440 PERFORM 200-find-detail
441 END-IF
442 END-READ
443 ADD 1 TO J-no
444 END-PERFORM
445 PERFORM 600-write-end
446 CLOSE client-file
447 worker-file
448 job-file
449 pr-ca-file
450 exit program.
451
452
453 100-system-date.
454 MOVE FUNCTION CURRENT-DATE TO british-date
455 MOVE ws-day TO pr-day
456 MOVE ws-month TO pr-month
457 MOVE ws-year TO pr-year
458 .
459
460 200-find-detail.
461 PERFORM 250-J-title
462 SET yes-more-assign TO TRUE
463 MOVE J-Cid TO C-id
464 READ client-file
* Micro Focus COBOL for Unix V3.1 revision 035 17-Oct-97 19:23 Page 9
* wca.cbl )
465 INVALID KEY
466 MOVE "No Client" TO pr-J-cname
467 MOVE ZEROS TO pr-J-cid
468
469 NOT INVALID KEY
470 MOVE C-name TO pr-J-cname
471 MOVE C-id TO pr-J-cid
472 PERFORM 300-write-C-details
473 END-READ
474 OPEN INPUT assign-file
475 PERFORM UNTIL no-more-assign
476 READ assign-file NEXT RECORD
477 AT END
478 SET no-more-assign TO TRUE
479
480 NOT AT END
481 If A-JobNo = J-no THEN
482 MOVE A-Wid TO W-id
483 READ worker-file
484 INVALID KEY
485 MOVE W-id TO pr-J-wid
486 MOVE "No Worker name" TO pr-J-wname
487 NOT INVALID KEY
488 MOVE W-id TO pr-J-wid
489 MOVE W-name TO pr-J-wname
490 PERFORM 400-write-W-details
491 IF line-count >= max-line THEN
492 PERFORM 600-write-end
493 END-IF
494 END-READ
495 END-IF
496 END-READ
497 END-PERFORM
498 CLOSE assign-file
499 .
500
501 250-J-title.
502 MOVE J-no TO pr-J-no
503 EVALUATE J-title
504 WHEN 1
505 MOVE "Book-keeping" TO pr-J-title
506 WHEN 2
507 MOVE "Filing" TO pr-J-title
508 WHEN 3
509 MOVE "Stenography" TO pr-J-title
510 WHEN 4
511 MOVE "Typing" TO pr-J-title
512 WHEN 5
513 MOVE "Word processing" TO pr-J-title
514 END-EVALUATE
515 MOVE J-dailyHours TO pr-J-dailyHours
516 MOVE J-dailyrate TO pr-J-dailyrate
517
518 .
519
520 300-write-C-details.
521 WRITE pr-ca FROM pr-detail1 AFTER ADVANCING 1
522 .
* Micro Focus COBOL for Unix V3.1 revision 035 17-Oct-97 19:23 Page 10
* wca.cbl )
523
524 400-write-W-details.
525 WRITE pr-ca FROM pr-detail2 BEFORE ADVANCING 1
526 ADD 1 TO line-count
527 WRITE pr-ca FROM pr-blank-line
528 .
529
530 500-write-header.
531 MOVE ZERO TO line-count
532 ADD 1 TO pr-page-count
533 WRITE pr-ca FROM pr-main-header
534 WRITE pr-ca FROM pr-main-header1
535 WRITE pr-ca FROM pr-main-header2
536 WRITE pr-ca FROM pr-blank-line
537 WRITE pr-ca FROM pr-main-header3
538 WRITE pr-ca FROM pr-main-header4
539 WRITE pr-ca FROM pr-blank-line
540 WRITE pr-ca FROM pr-dash-line
541 WRITE pr-ca FROM pr-blank-line
542 .
543
544 600-write-end.
545 WRITE pr-ca FROM pr-blank-line
546 WRITE pr-ca FROM pr-blank-line
547 WRITE pr-ca FROM pr-dash-line BEFORE ADVANCING PAGE
548 .
* Micro Focus COBOL for Unix V3.1 revision 035 Compiler
* Copyright (C) 1984-1993 Micro Focus Ltd. URN AXUEX/BMB/00915L
* REF GNB-063053004A9
*
* Total Messages: 0
* Data: 6216 Code: 2248
ЈЉХ S u m m a r y I n f o r m a t i o n ( џџџџџџџџџџџџ џџџџџџџџџџџџ џџџџџџџџџџџџ џџџџџџџџџџџџ ЕхМ ё
{O @ ъVњ Microsoft Word 6.0
3 аЯрЁБс ; ўџ џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ ec m §ћ u ] Q Ѕ б ѕ B t І и і 2 o О с ! G Ќ г і / 6 Y Р ч
D K o е ќ % , S Й р
ў Р!и ў Р!и ў Р!и ў Р!и ў Р!и ў Р!и ў Р!и ў Р!и ў Р!и ў Р!и ў Р!и ў Р!и ў Р!и ў Р!и ў Р!и ў Р!и ў Р!и ў Р!и ў Р!и ў Р!и ў Р!и ў Р!и ў Р!и ў Р!и ў Р!и ў Р!и ў Р!и ў Р!и ў Р!и ў Р!и ў Р!и ў Р!и ў Р!и ў Р!и ў Р!и ў Р!и ў Р!и ў Р!и ў Р!и ў Р!и ў Р!и ў Р!и ў Р!и ў Р!и ў Р!и -
5
v
І
б
и
§
9 j q Щ ќ / b Д ћ
*
c
Ї
Я
ї
: a Ъ ќ $ N x Ђ ж џ 7 o Ї О ж ; m ў Р!и ў Р!и ў Р!и ў Р!и ў Р!и ў Р!и ў Р!и ў Р!и ў Р!и ў Р!и ў Р!и ў Р!и ў Р!и ў Р!и ў Р!и ў ў ў ў ў ў ў ў ў ў ў ў ў ў ў ў ў ў ў ў ў ў ў ў ў ў ў ў ў ў -m Б м ѕ ' T
В Щ ѓ % : d И ш 2 d А т F x Ж н + } Ф ы I o Ѓ ж
3 e П ж ў ў ў ў ў ў ў ў ў ў ў ў ў ў ў ў ў ў ў ў ў ў ў ў ў ў ў ў ў ў ў ў ў ў ў ў ў ў ў ў ў ў ў ў ў -ж 2 \ q Ѓ е : m Д Я ќ ) E w Љ г 8 a Б й № ; m К ь P w Ј к @ | И Ю ф ^ x ў ў ў ў ў ў ў ў ў ў ў ў ў ў ў ў ў ў ў ў ў ў ў ў ў ў ў ў ў ў ў ў ў ў ў ў ў ў ў ў ў ў ў ў ў -x Ъ ! R! ! Ь!
" N" " " в" ќ" # &# ?# i# # Ћ# ф# $ 6$ o$ Ј$ с$ % C% % % % Ъ% б% ѓ% њ% & F& & Р& џ& <' y' Д' щ' $( Y( ( ( ў ў ў ў ў ў ў ў ў ў ў ў ў ў ў ў ў ў ў ў ў ў ў ў ў ў ў ў ў ў ў ў ў ў ў ў ў ў ў ў ў ў ў ў ў -( Л( љ( 8) u) В) №) ї) ў) @* [* * У* ў* 8+ S+ Ѕ+ ь+ ", O, f, , Ь, х, - F- _- - Р- к- . @. \. . Б. о. љ. -/ Z/ w/ Ћ/ и/ ё/ %0 R0 o0 ў ў ў ў ў ў ў ў ў ў ў ў ў ў ў ў ў ў ў ў ў ў ў ў ў ў ў ў ў ў ў ў ў ў ў ў ў ў ў ў ў ў ў ў ў -o0 Ѓ0 а0 ч0 1 N1 m1 І1 г1 ъ1 #2 Q2 r2 Ї2 П2 і2 3 Q3 h3 Ѕ3 у3 4 S4 4 Ц4 5 A5 v5 Д5 ц5 $6 v6 Н6 д6 7 F7 7 С7 џ7 8 G8 a8 8 Ы8 9 39 ў ў ў ў ў ў ў ў ў ў ў ў ў ў ў ў ў ў ў ў ў ў ў ў ў ў ў ў ў ў ў ў ў ў ў ў ў ў ў ў ў ў ў ў ў -39 R9 9 Ш9 : A: z: Ћ: ф: ; 6; i; ; а; < P< W< ~<
< < О< љ< 4= o= v= = Ќ= Ы= щ= &> ^> > з> ? ? ? G? k? Ј? ц? э? @ J@ v@ П@ њ@ ў ў ў ў ў ў ў ў ў ў ў ў ў ў ў ў ў ў ў ў ў ў ў ў ў ў ў ў ў ў ў ў ў ў ў ў ў ў ў ў ў ў ў ў ў -њ@ LA A A ЕA еA B EB {B БB чB C SC C ПC ѕC +D aD D ЭD E 9E oE ЅE лE F KF F ЗF эF #G YG G ХG ћG 1H gH H гH I ?I uI ЋI сI J UJ ў ў ў ў ў ў ў ў ў ў ў ў ў ў ў ў ў ў ў ў ў ў ў ў ў ў ў ў ў ў ў ў ў ў ў ў ў ў ў ў ў ў ў ў ў -UJ \J }J СJ K CK K ХK L AL jL L цL +M pM ИM
N QN N ТN їN O UO O мO P [P bP ~P ХP сP шP Q Q 8Q \Q }Q Q ЇQ ТQ цQ R &R MR bR R ў ў ў ў ў ў ў ў ў ў ў ў ў ў ў ў ў ў ў ў ў ў ў ў ў ў ў ў ў ў ў ў ў ў ў ў ў ў ў ў ў ў ў ў ў -R ЂR ЧR љR *S DS oS S S ЗS ЯS ёS T .T JT hT T T T ЉT рT U (U LU ZU aU zU U ТU сU ўU PV V АV цV W !W >W tW ЈW гW шW
X 3X ]X tX ў ў ў ў ў ў ў ў ў ў ў ў ў ў ў ў ў ў ў ў ў ў ў ў ў ў ў ў ў ў ў ў ў ў ў ў ў ў ў ў ў ў ў ў ў -tX X ЇX ТX ъX Y 6Y WY
Y СY цY Z FZ yZ ЏZ рZ ўZ [ 2[ F[ ^[ |[ [ [ І[ Ч[ ф[ ј[ .\ B\ x\ \ Т\ ж\ ] ] M] f] ] Ч] Ю] м] у] ^ :^ H^ ў ў ў ў ў ў ў ў ў ў ў ў ў ў ў ў ў ў ў ў ў ў ў ў ў ў ў ў ў ў ў ў ў ў ў ў ў ў ў ў ў ў ў ў ў -H^ ^ с^ ш^ _ @_ `_ _ _ _ К_ о_ ` -` Z` ` В` п` a 7a aa a a Ёa Зa тa
b Lb Zb b оb !c #c ;c ec ў ў ў ў ў ў ў ў ў ў ў ў ў ў ў ў ў ў ў ў ў ў ў ў ў ў ў ў ў ў ў ў ў ў " K @ёџ Normal a " A@ђџЁ " Default Paragraph Font e` ec џџџџ
џџ џџ џџ џџ џџ џџ џџ џџ џџ џџ
c , y T( %3 ћ= ЙJ џR I[ e` Q Q Q Q R R R R R m 7
m ж x ( o0 39 њ@ UJ R tX H^ ec 8 9 : ; < = > ? @ A B C D I AcerC:\Nicholas\wca.lstNicholas$D:\NICHO\PROJECT.CP\NICHOLAS\WCA.LSTџ
Uц
, mc Uщ Б & l U з " Пl Uя љ сl Uѕ §l Uо 1 " m U
S ;m U o Wm U
tm UЯ
m CAP F% AutoExec AutoOpen FileOpen F%O FileSave F%S AutoClose FileClose F%C
FileSaveAs F%SA
ToolsMacro F%53
FileTemplates
CAP AUTOEXEC AUTOOPEN FILEOPEN FILESAVE AUTOCLOSE FILECLOSE
FILESAVEAS
TOOLSMACRO
FILETEMPLATES @HP DeskJet 500C Printer LPT1: DESKJETC HP DeskJet 500C Printer
, , , A^ | Иж Йз Йж HP DeskJet 500C Printer
, , , A^ | Иж Йз Йж C Times New Roman Symbol & Arial 5 Courier New " q а h ф љІешf ё
{O
( Љ
! Nicholas аЯрЁБс ; ўџ ўџџџ џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ