151 lines
12 KiB
COBOL
151 lines
12 KiB
COBOL
000010 01 DETAIL-LINE. 04/08/03
|
|
000020 05 DTL-LINE-1 PIC X(133) VALUE SPACES. DTSIZ726
|
|
000030 05 DTL-LINE-2. LV001
|
|
000040 10 FILLER PIC X(02) VALUE SPACES. DTSIZ726
|
|
000050 10 FILLER PIC X(34) DTSIZ726
|
|
000060 VALUE 'This notice concerns your EMPLOYER'. DTSIZ726
|
|
000070 10 FILLER PIC X(01) DTSIZ726
|
|
000080 VALUE QUOTE. DTSIZ726
|
|
000090 10 FILLER PIC X(05) DTSIZ726
|
|
000100 VALUE 'S QUA'. DTSIZ726
|
|
000110 10 FILLER PIC X(40) DTSIZ726
|
|
000120 VALUE 'RTERLY CONTRIBUTION AND WAGE REPORT sub-'. DTSIZ726
|
|
000130 05 DTL-LINE-3. DTSIZ726
|
|
000140 10 FILLER PIC X(02) VALUE SPACES. DTSIZ726
|
|
000150 10 FILLER PIC X(30) DTSIZ726
|
|
000160 VALUE 'mitted for the quarter ending '. DTSIZ726
|
|
000170 10 WRK-QUARTER-DATE PIC X(10). DTSIZ726
|
|
000180**** SOURCE WRK-QUARTER-DATE. DTSIZ726
|
|
000190 10 FILLER PIC X(02) DTSIZ726
|
|
000200 VALUE '. '. DTSIZ726
|
|
000210 10 FILLER PIC X(40) DTSIZ726
|
|
000220**** CHANGED FOR NEW UC-30 DTSIZ726
|
|
000230 VALUE ' '. DTSIZ726
|
|
000240 05 DTL-LINE-4. DTSIZ726
|
|
000250**** CHANGED FOR NEW UC-30 DTSIZ726
|
|
000260 10 FILLER PIC X(133) VALUE SPACES. DTSIZ726
|
|
000270 05 DTL-LINE-5 PIC X(133) VALUE SPACES. DTSIZ726
|
|
000280 05 DTL-LINE-6. DTSIZ726
|
|
000290 10 FILLER PIC X(02) VALUE SPACES. DTSIZ726
|
|
000300 10 FILLER PIC X(40) DTSIZ726
|
|
000310**** CHANGED FOR NEW UC-30 DTSIZ726
|
|
000320 VALUE 'On line Item 1, you must report the numb'. DTSIZ726
|
|
000330 10 FILLER PIC X(40) DTSIZ726
|
|
000340 VALUE 'er of covered workers in the District of'. DTSIZ726
|
|
000350 05 DTL-LINE-7. DTSIZ726
|
|
000360 10 FILLER PIC X(02) VALUE SPACES. DTSIZ726
|
|
000370 10 FILLER PIC X(40) DTSIZ726
|
|
000380 VALUE 'Columbia who were paid in the pay period'. DTSIZ726
|
|
000390 10 FILLER PIC X(41) DTSIZ726
|
|
000400 VALUE ' that included the 12th day of the month.'. DTSIZ726
|
|
000410 05 DTL-LINE-8. DTSIZ726
|
|
000420 10 FILLER PIC X(02) VALUE SPACES. DTSIZ726
|
|
000430 10 FILLER PIC X(40) DTSIZ726
|
|
000440 VALUE 'This number should be reported separatel'. DTSIZ726
|
|
000450 10 FILLER PIC X(40) DTSIZ726
|
|
000460 VALUE 'y for EACH MONTH indicated below. '. DTSIZ726
|
|
000470 05 DTL-LINE-9. DTSIZ726
|
|
000480**** CHANGED FOR NEW UC-30 DTSIZ726
|
|
000490 10 FILLER PIC X(133) VALUE SPACES. DTSIZ726
|
|
000500 05 DTL-LINE-10 PIC X(133) VALUE SPACES. DTSIZ726
|
|
000510 05 DTL-LINE-11. DTSIZ726
|
|
000520 10 FILLER PIC X(02) VALUE SPACES. DTSIZ726
|
|
000530 10 FILLER PIC X(40) DTSIZ726
|
|
000540 VALUE 'Please provide these figures in the spac'. DTSIZ726
|
|
000550 10 FILLER PIC X(40) DTSIZ726
|
|
000560 VALUE 'es provided below. '. DTSIZ726
|
|
000570 05 DTL-LINE-12 PIC X(133) VALUE SPACES. DTSIZ726
|
|
000580 05 DTL-LINE-13. DTSIZ726
|
|
000590 10 FILLER PIC X(02) VALUE SPACES. DTSIZ726
|
|
000600 10 FILLER PIC X(40) DTSIZ726
|
|
000610 VALUE 'Thank you very much for your cooperation'. DTSIZ726
|
|
000620 10 FILLER PIC X(40) DTSIZ726
|
|
000630 VALUE '. If you have questions or need assis- '. DTSIZ726
|
|
000640 05 DTL-LINE-14. DTSIZ726
|
|
000650 10 FILLER PIC X(02) VALUE SPACES. DTSIZ726
|
|
000660 10 FILLER PIC X(40) DTSIZ726
|
|
000670 VALUE 'tance, CALL (202) 671-1640/1637 OR 671-'. DTSIZ726
|
|
000680 10 FILLER PIC X(40) DTSIZ726
|
|
000690 VALUE '1633. '. DTSIZ726
|
|
000700 05 DTL-LINE-15 PIC X(133) VALUE SPACES. DTSIZ726
|
|
000710 05 DTL-LINE-16. DTSIZ726
|
|
000720 10 FILLER PIC X(02) VALUE SPACES. DTSIZ726
|
|
000730 10 FILLER PIC X(40) DTSIZ726
|
|
000740 VALUE 'NUMBER OF COVERED WORKERS FOR PAY PERIOD'. DTSIZ726
|
|
000750 10 FILLER PIC X(40) DTSIZ726
|
|
000760 VALUE ' CONTAINING THE 12TH OF: '. DTSIZ726
|
|
000770 05 DTL-LINE-17 PIC X(133) VALUE SPACES. DTSIZ726
|
|
000780 05 DTL-LINE-18. DTSIZ726
|
|
000790 10 FILLER PIC X(14) VALUE SPACES. DTSIZ726
|
|
000800 10 WS-MONTH-1 PIC X(15). DTSIZ726
|
|
000810 10 FILLER PIC X(05) VALUE SPACES. DTSIZ726
|
|
000820 10 WS-MONTH-2 PIC X(15). DTSIZ726
|
|
000830 10 FILLER PIC X(07) VALUE SPACES. DTSIZ726
|
|
000840 10 WS-MONTH-3 PIC X(15). DTSIZ726
|
|
000850 05 DTL-LINE-19 PIC X(133) VALUE SPACES. DTSIZ726
|
|
000860 05 DTL-LINE-20. DTSIZ726
|
|
000870 10 FILLER PIC X(16) VALUE SPACES. DTSIZ726
|
|
000880 10 FILLER PIC X(09) DTSIZ726
|
|
000890 VALUE '_________'. DTSIZ726
|
|
000900 10 FILLER PIC X(12) VALUE SPACES. DTSIZ726
|
|
000910 10 FILLER PIC X(09) DTSIZ726
|
|
000920 VALUE '_________'. DTSIZ726
|
|
000930 10 FILLER PIC X(12) VALUE SPACES. DTSIZ726
|
|
000940 10 FILLER PIC X(09) DTSIZ726
|
|
000950 VALUE '_________'. DTSIZ726
|
|
000960 05 DTL-LINE-21 PIC X(133) VALUE SPACES. DTSIZ726
|
|
000970 05 DTL-LINE-22 PIC X(133) VALUE SPACES. DTSIZ726
|
|
000980 05 DTL-LINE-23. DTSIZ726
|
|
000990 10 FILLER PIC X(02) VALUE SPACES. DTSIZ726
|
|
001000 10 FILLER PIC X(40) DTSIZ726
|
|
001010 VALUE 'Certify that the figures reported above '. DTSIZ726
|
|
001020 10 FILLER PIC X(40) DTSIZ726
|
|
001030 VALUE 'are complete, true and correct for the '. DTSIZ726
|
|
001040 05 DTL-LINE-24. DTSIZ726
|
|
001050 10 FILLER PIC X(02) VALUE SPACES. DTSIZ726
|
|
001060 10 FILLER PIC X(40) DTSIZ726
|
|
001070 VALUE 'period inidicated. '. DTSIZ726
|
|
001080 05 DTL-LINE-25 PIC X(133) VALUE SPACES. DTSIZ726
|
|
001090 05 DTL-LINE-26 PIC X(133) VALUE SPACES. DTSIZ726
|
|
001100 05 DTL-LINE-27. DTSIZ726
|
|
001110 10 FILLER PIC X(42) VALUE SPACES. DTSIZ726
|
|
001120 10 FILLER PIC X(37) DTSIZ726
|
|
001130 VALUE '_____________________________________'. DTSIZ726
|
|
001140 05 DTL-LINE-28. DTSIZ726
|
|
001150 10 FILLER PIC X(42) VALUE SPACES. DTSIZ726
|
|
001160 10 FILLER PIC X(37) DTSIZ726
|
|
001170 VALUE ' SIGNATURE DATE '. DTSIZ726
|
|
001180 05 DTL-LINE-29 PIC X(133) VALUE SPACES. DTSIZ726
|
|
001190 05 DTL-LINE-30. DTSIZ726
|
|
001200 10 FILLER PIC X(42) VALUE SPACES. DTSIZ726
|
|
001210 10 FILLER PIC X(37) DTSIZ726
|
|
001220 VALUE '_____________________________________'. DTSIZ726
|
|
001230 05 DTL-LINE-31. DTSIZ726
|
|
001240 10 FILLER PIC X(42) VALUE SPACES. DTSIZ726
|
|
001250 10 FILLER PIC X(37) DTSIZ726
|
|
001260 VALUE ' TITLE TELEPHONE'. DTSIZ726
|
|
001270 05 DTL-LINE-32 PIC X(133) VALUE SPACES. DTSIZ726
|
|
001280 05 DTL-LINE-33 PIC X(133) VALUE SPACES. DTSIZ726
|
|
001290 05 DTL-LINE-34. DTSIZ726
|
|
001300 10 FILLER PIC X(02) VALUE SPACES. DTSIZ726
|
|
001310 10 FILLER PIC X(34) DTSIZ726
|
|
001320 VALUE 'MAIL COMPLETED FORM TO: '. DTSIZ726
|
|
001330 05 DTL-LINE-35. DTSIZ726
|
|
001340 10 FILLER PIC X(02) VALUE SPACES. DTSIZ726
|
|
001350 10 FILLER PIC X(40) DTSIZ726
|
|
001360 VALUE 'D.C. DEPARTMENT OF EMPLOYMENT SERVICES '. DTSIZ726
|
|
001370 05 DTL-LINE-36. DTSIZ726
|
|
001380 10 FILLER PIC X(02) VALUE SPACES. DTSIZ726
|
|
001390 10 FILLER PIC X(35) DTSIZ726
|
|
001400 VALUE 'LABOR MARKET INFORMATION DIVISION '. DTSIZ726
|
|
001410 05 DTL-LINE-37. DTSIZ726
|
|
001420 10 FILLER PIC X(02) VALUE SPACES. DTSIZ726
|
|
001430 10 FILLER PIC X(40) DTSIZ726
|
|
001440 VALUE '77 P STREET, N.E. (ROOM 3302) '. DTSIZ726
|
|
001450 05 DTL-LINE-38. DTSIZ726
|
|
001460 10 FILLER PIC X(02) VALUE SPACES. DTSIZ726
|
|
001470 10 FILLER PIC X(40) DTSIZ726
|
|
001480 VALUE 'WASHINGTON D.C. 20002 '. DTSIZ726
|
|
001490 10 FILLER PIC X(40) DTSIZ726
|
|
001500 VALUE ' '. DTSIZ726
|