72 lines
5.6 KiB
COBOL
72 lines
5.6 KiB
COBOL
00001 RD REPORT-LISTING:SUFFIX: 07/29/98
|
|
00002 CONTROLS ARE FINAL DTSIZ735
|
|
00003 PAGE LIMIT 60 LINES LV001
|
|
00004 HEADING 1 DTSIZ735
|
|
00005 FIRST DETAIL 9. DTSIZ735
|
|
00006 SKIP2 DTSIZ735
|
|
00007 01 TYPE IS PAGE HEADING. DTSIZ735
|
|
00008 05 LINE 1. DTSIZ735
|
|
00009 10 COLUMN 1 PIC X(05) DTSIZ735
|
|
00010 VALUE '735R1'. DTSIZ735
|
|
00011 10 COLUMN 41 PIC X(50) DTSIZ735
|
|
00012 SOURCE LRCM-AGY-NAME-LINE1. DTSIZ735
|
|
00013 10 COLUMN 119 PIC X(05) DTSIZ735
|
|
00014 VALUE 'DATE:'. DTSIZ735
|
|
00015 10 COLUMN 125 PIC X(08) DTSIZ735
|
|
00016 SOURCE LRCM-SYS-DATE. DTSIZ735
|
|
00017 05 LINE 2. DTSIZ735
|
|
00018 10 COLUMN 41 PIC X(50) DTSIZ735
|
|
00019 SOURCE LRCM-AGY-NAME-LINE2. DTSIZ735
|
|
00020 10 COLUMN 119 PIC X(05) DTSIZ735
|
|
00021 VALUE 'TIME:'. DTSIZ735
|
|
00022 10 COLUMN 125 PIC X(08) DTSIZ735
|
|
00023 SOURCE LRCM-SYS-TIME. DTSIZ735
|
|
00024 05 LINE 3. DTSIZ735
|
|
00025 10 COLUMN 1 PIC X(31) DTSIZ735
|
|
00026 VALUE 'ROUTE TO: JOB SERVICE DIVISION'. DTSIZ735
|
|
00027 10 COLUMN 119 PIC X(05) DTSIZ735
|
|
00028 VALUE 'PAGE:'. DTSIZ735
|
|
00029 10 COLUMN 127 PIC ZZ,ZZ9 DTSIZ735
|
|
00030 SOURCE PAGE-COUNTER. DTSIZ735
|
|
00031 05 LINE 4. DTSIZ735
|
|
00032 10 COLUMN 40 PIC X(27) DTSIZ735
|
|
00033 VALUE 'EMPLOYERS FOR LOCAL OFFICE '. DTSIZ735
|
|
00034 10 COLUMN 67 PIC 9(02) DTSIZ735
|
|
00035 SOURCE R735-LO-CODE. DTSIZ735
|
|
00036 10 COLUMN 70 PIC X(40) DTSIZ735
|
|
00037 SOURCE WS-JS-OFFICE-NAME. DTSIZ735
|
|
00038 05 LINE 6. DTSIZ735
|
|
00039 10 COLUMN 9 PIC X(31) DTSIZ735
|
|
00040 VALUE 'SIC/OWN BUSINESS NAME OR'. DTSIZ735
|
|
00041 05 LINE 7. DTSIZ735
|
|
00042 10 COLUMN 1 PIC X(40) DTSIZ735
|
|
00043 VALUE 'EMP NO CODE TAX/BENEFIT ALTERNATE '. DTSIZ735
|
|
00044 10 COLUMN 41 PIC X(40) DTSIZ735
|
|
00045 VALUE 'NAMES ADDRESS DELIVERY LINE '. DTSIZ735
|
|
00046 10 COLUMN 96 PIC X(36) DTSIZ735
|
|
00047 VALUE 'CITY ST ZIP CODE'. DTSIZ735
|
|
00048 SKIP2 DTSIZ735
|
|
00049 01 DETAIL-LINE:SUFFIX: TYPE IS DETAIL. DTSIZ735
|
|
00050 05 LINE PLUS 1. DTSIZ735
|
|
00051 10 COLUMN 1 PIC 999B999 DTSIZ735
|
|
00052 SOURCE R735-EMP-NO. DTSIZ735
|
|
00053 10 COLUMN 9 PIC X(04) DTSIZ735
|
|
00054 SOURCE R735-SIC-CD. DTSIZ735
|
|
00055 10 COLUMN 14 PIC X(01) DTSIZ735
|
|
00056 SOURCE R735-OWN-CD. DTSIZ735
|
|
00057 10 COLUMN 17 PIC X(35) DTSIZ735
|
|
00058 SOURCE R735-NAME. DTSIZ735
|
|
00059 10 COLUMN 53 PIC X(40) DTSIZ735
|
|
00060 SOURCE R735-DELIV-LINE. DTSIZ735
|
|
00061 10 COLUMN 94 PIC X(25) DTSIZ735
|
|
00062 SOURCE R735-CITY. DTSIZ735
|
|
00063 10 COLUMN 120 PIC X(02) DTSIZ735
|
|
00064 SOURCE R735-ST. DTSIZ735
|
|
00065 10 COLUMN 123 PIC X(10) DTSIZ735
|
|
00066 SOURCE R735-ZIP. DTSIZ735
|
|
00067 SKIP2 DTSIZ735
|
|
00068 01 TYPE IS CONTROL FOOTING FINAL. DTSIZ735
|
|
00069 05 LINE PLUS 4. DTSIZ735
|
|
00070 10 COLUMN 26 PIC X(17) DTSIZ735
|
|
00071 VALUE '*** END OF REPORT'. DTSIZ735
|