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