00001  IDENTIFICATION DIVISION.                                         01/24/01
00002  PROGRAM-ID.             DTSBR603.                                DTSBR603
00003  AUTHOR.                 MT DEPT OF LABOR/UI PROGRAMMING SECTION     LV128
00004  DATE-WRITTEN.           OCTOBER 1994.                            DTSBR603
00005  DATE-COMPILED.                                                   DTSBR603
00006 *                                                                 DTSBR603
00007 *                                                                 DTSBR603
00008 *****                                                             DTSBR603
00009 *   CALLING SEQUENCE:  DTSBD300 CALLS                             DTSBR603
00010 *                      DTSBD331 WHICH CREATES DTSIR603            DTSBR603
00011 *                      DTSBR603 READS DTSIR603 RECORDS.           DTSBR603
00012 *                                                                 DTSBR603
00013 *    FUNCTION:  FIELD ASSIGNMENT REPORT TAX DATA.                 DTSBR603
00014 *                                                                 DTSBR603
00015 *    MODIFICATION HISTORY:                                        DTSBR603
00016 *                                                                 DTSBR603
00017 * 10-26-94 INITIAL DEVELOPMENT                                    DTSBR603
00018 *          REFERENCE RFP #RAP             AUTHOR OF CHANGE - SFW  DTSBR603
00019 *                                                                 DTSBR603
00020 * 12-14-94 ADD FIELD REP OPID.                                    DTSBR603
00021 *          REFERENCE RFP #CR024           AUTHOR OF CHANGE - RHC  DTSBR603
00022 *                                                                 DTSBR603
00023 * 03-16-95 ADD REPORT 603R2 - FIELD ASSIGNMENT EXPORT REPORT.     DTSBR603
00024 *          REFERENCE RFP #CR054           AUTHOR OF CHANGE - RHC  DTSBR603
00025 *                                                                 DTSBR603
00026 * 04-07-95 RECOMPILED FOR R991-UNIT-DSCR PER CHANGE REQUEST 064   DTSBR603
00027 *          REFERENCE RFP #RAP             AUTHOR OF CHANGE - SFW  DTSBR603
00028 *                                                                 DTSBR603
00029 * 10-22-99 HEADER AND DETAIL LINE CORRECTIONS                     DTSBR603
00030 *          CHANGED ZZZ,ZZZ.99 TO ZZZ,ZZ9.99 IN DETAIL-LINE        DTSBR603
00031 *          AND ADDED W-EMP-NO-RE          AUTHOR OF CHANGE -**FB  DTSBR603
00032 *                                                                 DTSBR603
00033 * 10-30-00 FIXED MISHANDLING OF MAIL/PHYS ADDRS & T B D           DTSBR603
00034 *                                                                 DTSBR603
00035 *                                         AUTHOR OF CHANGE - JHP  DTSBR603
00036 *                                                                 DTSBR603
00037 * MM-DD-YY XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX  DTSBR603
00038 *          XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX  DTSBR603
00039 *          REFERENCE RFP #****            AUTHOR OF CHANGE - XXX  DTSBR603
00040 *                                                                 DTSBR603
00041 *                                                                 DTSBR603
00042 *    DESCRIPTION:                                                 DTSBR603
00043 *                                                                 DTSBR603
00044 *        THIS MODULE BUILDS VARIABLE LENGTH RECORDS FOR DOWNLOAD  DTSBR603
00045 *        TO A PC SPREADSHEET IN AID OF A FIELD ASSIGNMENT.        DTSBR603
00046 *                                                                 DTSBR603
00047 *        THIS IS AN "AT LEAST ONCE" MODULE.                       DTSBR603
00048 *                                                                 DTSBR603
00049 *                                                                 DTSBR603
00050 *    RECORDS READ:                                                DTSBR603
00051 *                                                                 DTSBR603
00052 *        NONE.                                                    DTSBR603
00053 *                                                                 DTSBR603
00054 *    PRINTED OUTPUTS:                                             DTSBR603
00055 *                                                                 DTSBR603
00056 *        NONE.                                                    DTSBR603
00057 *                                                                 DTSBR603
00058 *    RECORDS WRITTEN:                                             DTSBR603
00059 *                                                                 DTSBR603
00060 *        603R1  FIELD ASSIGNMENT REPORT                           DTSBR603
00061 *                                                                 DTSBR603
00062 *    MODULES CALLED:                                              DTSBR603
00063 *                                                                 DTSBR603
00064 *        DTSBU001 DATE EDIT/CONVERSION MODULE                     DTSBR603
00065 *        DTSBU056 RATE DISPLAY MODULE                             DTSBR603
00066 *        DTSBU062 FIELD REP ID EDIT/DESCRIPTION MODULE            DTSBR603
00067 *        DTSBU143 VARIABLE LENGTH RECORD CONSTRUCTION MODULE      DTSBR603
00068 *                                                                 DTSBR603
00069 *                                                                 DTSBR603
00070 *****                                                             DTSBR603
00071 *                                                                 DTSBR603
00072 *                                                                 DTSBR603
00073  ENVIRONMENT DIVISION.                                            DTSBR603
00074  CONFIGURATION SECTION.                                           DTSBR603
00075  SPECIAL-NAMES.                                                   DTSBR603
00076      C01 IS TOP-OF-PAGE.                                          DTSBR603
00077      SKIP2                                                        DTSBR603
00078  INPUT-OUTPUT SECTION.                                            DTSBR603
00079                                                                   DTSBR603
00080  FILE-CONTROL.                                                    DTSBR603
00081      SELECT PRT-FILE    ASSIGN TO RPT603R1.                       DTSBR603
00082      SKIP2                                                        DTSBR603
00083  DATA DIVISION.                                                   DTSBR603
00084      SKIP2                                                        DTSBR603
00085  FILE SECTION.                                                    DTSBR603
00086      SKIP2                                                        DTSBR603
00087  FD  PRT-FILE                                                     DTSBR603
00088      RECORDING MODE IS F                                          DTSBR603
00089      DATA RECORD IS REPORT-REC.                                   DTSBR603
00090  01  REPORT-REC            PIC X(133).                            DTSBR603
00091      EJECT                                                        DTSBR603
00092  WORKING-STORAGE SECTION.                                         DTSBR603
000925 77  PAN-VALET PICTURE X(24) VALUE '128DTSBR603  01/24/01'.       DTSBR603
00093 *                                                                 DTSBR603
00094  01  WRK-AREA.                                                    DTSBR603
00095      05  WRK-ABEND-CD                PIC S9(04)  COMP  VALUE +603.DTSBR603
00096      05  SUB                         PIC  9(04)  VALUE ZERO.      DTSBR603
00097      05  FIRST-TIME-IND              PIC  X(01)  VALUE 'Y'.       DTSBR603
00098                                                                   DTSBR603
00099      05  WS-MISC-DATA                PIC  X(35)  VALUE SPACES.    DTSBR603
00100                                                                   DTSBR603
00101      05  WS-FIELD-REP-INFO.                                       DTSBR603
00102          10  WS-FIELD-REP-ID-LAST    PIC  X(02)  VALUE SPACE.     DTSBR603
00103          10  FILLER                  PIC  X(02)  VALUE SPACE.     DTSBR603
00104          10  WS-FIELD-REP-NAME       PIC  X(32)  VALUE SPACE.     DTSBR603
00105                                                                   DTSBR603
00106      05  WS-PAGE-COUNT               PIC  9(04)  VALUE ZERO.      DTSBR603
00107      05  WS-LINE-COUNT               PIC  9(04)  VALUE ZERO.      DTSBR603
00108      05  WS-ASSIGN-NO-OUTPUT         PIC  9(07)  VALUE ZERO.      DTSBR603
00109                                                                   DTSBR603
00110      05  WS-YR-QTR                   PIC 9(05)   VALUE ZERO.      DTSBR603
00111      05  WS-YR-QTR-R REDEFINES WS-YR-QTR.                         DTSBR603
00112          10  WS-YQTR-CC              PIC 99.                      DTSBR603
00113          10  WS-YQTR-YR              PIC 99.                      DTSBR603
00114          10  WS-YQTR-MM              PIC 9.                       DTSBR603
00115      05  WS-DISPLAY-YQTR.                                         DTSBR603
00116          10  WS-DISPLAY-YR           PIC X(02)  VALUE SPACE.      DTSBR603
00117          10  FILLER                  PIC X(01)  VALUE '/'.        DTSBR603
00118          10  WS-DISPLAY-MM           PIC X(01)  VALUE SPACE.      DTSBR603
00119      05  WS-VOICE-OUTPUT             PIC X(09)  VALUE SPACE.      DTSBR603
00120      05  WS-VOICE-OUTPUT-R.                                       DTSBR603
00121          10  WS-VOICE-OUTPUT-EDIT1   PIC X(03)  VALUE SPACE.      DTSBR603
00122          10  FILLER                  PIC X(01)  VALUE '-'.        DTSBR603
00123          10  WS-VOICE-OUTPUT-EDIT2   PIC X(03)  VALUE SPACE.      DTSBR603
00124          10  FILLER                  PIC X(01)  VALUE '-'.        DTSBR603
00125          10  WS-VOICE-OUTPUT-EDIT3   PIC X(04)  VALUE SPACE.      DTSBR603
00126      05  WS-START-DATE-OUTPUT        PIC X(08)  VALUE SPACE.      DTSBR603
00127      05  WS-AUDIT-START-YRQ-OUTPUT.                               DTSBR603
00128          10  WS-AUDIT-START-YRQ-OUTPUT-R                          DTSBR603
00129                                      PIC  99/9.                   DTSBR603
00130      05  WS-AUDIT-END-YRQ-OUTPUT.                                 DTSBR603
00131          10  WS-AUDIT-END-YRQ-OUTPUT-R                            DTSBR603
00132                                      PIC  99/9.                   DTSBR603
00133                                                                   DTSBR603
00134      05  WS-OPO-SSN-UNPACK           PIC  9(09)  VALUE ZERO.      DTSBR603
00135      05  WS-OPO-SSN-OUTPUT.                                       DTSBR603
00136          10  WS-OPO-SSN-OUTPUT-EDIT1 PIC  9(03)  VALUE ZERO.      DTSBR603
00137          10  FILLER                  PIC  X(01)  VALUE '-'.       DTSBR603
00138          10  WS-OPO-SSN-OUTPUT-EDIT2 PIC  9(02)  VALUE ZERO.      DTSBR603
00139          10  FILLER                  PIC  X(01)  VALUE '-'.       DTSBR603
00140          10  WS-OPO-SSN-OUTPUT-EDIT3 PIC  9(04)  VALUE ZERO.      DTSBR603
00141                                                                   DTSBR603
00142      EJECT                                                        DTSBR603
00143      05 WS-HEADER-1.                                              DTSBR603
00144         10  FILLER                  PIC X(01)  VALUE SPACE.       DTSBR603
00145         10  WS-REPORT-TYPE          PIC X(05) VALUE               DTSBR603
00146                 '603R1'.                                          DTSBR603
00147         10  FILLER                  PIC X(35)  VALUE SPACE.       DTSBR603
00148         10  WS-LRCM-AGY-NAME-LINE1  PIC X(50)  VALUE SPACE.       DTSBR603
00149         10  FILLER                  PIC X(28)  VALUE SPACE.       DTSBR603
00150         10  FILLER                  PIC X(05)                     DTSBR603
00151                VALUE 'DATE:'.                                     DTSBR603
00152         10  WS-LRCM-SYS-DATE        PIC X(08)  VALUE SPACE.       DTSBR603
00153      05  WS-HEADER-2.                                             DTSBR603
00154         10  FILLER                  PIC X(01)  VALUE SPACE.       DTSBR603
00155         10  FILLER                  PIC X(40)  VALUE SPACE.       DTSBR603
00156         10  WS-LRCM-AGY-NAME-LINE2  PIC X(50)  VALUE SPACE.       DTSBR603
00157         10  FILLER                  PIC X(28)  VALUE SPACE.       DTSBR603
00158         10  FILLER                  PIC X(05)                     DTSBR603
00159                VALUE 'TIME:'.                                     DTSBR603
00160         10  WS-LRCM-SYS-TIME        PIC X(08)  VALUE SPACE.       DTSBR603
00161      05  WS-HEADER-3.                                             DTSBR603
00162         10  FILLER                  PIC X(01)  VALUE SPACE.       DTSBR603
00163         10  FILLER                  PIC X(10) VALUE               DTSBR603
00164                      'ROUTE TO: '.                                DTSBR603
00165         10  WS-HEADER-3-UNIT        PIC X(20)  VALUE SPACE.       DTSBR603
00166         10  FILLER                  PIC X(10)  VALUE SPACE.       DTSBR603
00167         10  WS-HEADER-3-TITLE       PIC X(50)  VALUE SPACE.       DTSBR603
00168         10  FILLER                  PIC X(28)  VALUE SPACE.       DTSBR603
00169         10  FILLER                  PIC X(05)                     DTSBR603
00170                VALUE 'PAGE:'.                                     DTSBR603
00171         10  FILLER                  PIC  X(02)  VALUE SPACE.      DTSBR603
00172         10  W-PAGE-CNTR             PIC  ZZ,ZZ9.                  DTSBR603
00173                                                                   DTSBR603
00174      05  WS-LINE-01.                                              DTSBR603
00175          10  FILLER                  PIC X(01)  VALUE SPACE.      DTSBR603
00176          10  FILLER                  PIC X(10) VALUE              DTSBR603
00177              'ASSIGN NO:'.                                        DTSBR603
00178          10  FILLER                  PIC X(06)  VALUE SPACE.      DTSBR603
00179          10  W-ASSIGN-NO             PIC 999B99999.               DTSBR603
00180          10  FILLER                  PIC X(45)  VALUE SPACE.      DTSBR603
00181          10  FILLER                  PIC X(20) VALUE              DTSBR603
00182              '--------------------'.                              DTSBR603
00183          10  FILLER                  PIC X(24) VALUE              DTSBR603
00184              ' OWNER/PARTNER/OFFICERS '.                          DTSBR603
00185          10  FILLER                  PIC X(20) VALUE              DTSBR603
00186              '--------------------'.                              DTSBR603
00187      05  WS-LINE-02.                                              DTSBR603
00188          10  FILLER                  PIC X(01)  VALUE SPACE.      DTSBR603
00189          10  FILLER                  PIC X(10) VALUE              DTSBR603
00190              'FIELD REP:'.                                        DTSBR603
00191          10  FILLER                  PIC X(06)  VALUE SPACE.      DTSBR603
00192          10  W-FLD-ID                PIC X(02)  VALUE SPACE.      DTSBR603
00193          10  FILLER                  PIC X(02)  VALUE SPACE.      DTSBR603
00194          10  W-FLD-REP-NAME          PIC X(35)  VALUE SPACE.      DTSBR603
00195          10  FILLER                  PIC X(45)  VALUE SPACE.      DTSBR603
00196          10  FILLER                  PIC X(45)  VALUE SPACE.      DTSBR603
00197          10  FILLER                  PIC X(20) VALUE              DTSBR603
00198              '        NAME        '.                              DTSBR603
00199          10  FILLER                  PIC X(24) VALUE              DTSBR603
00200              '           TITLE        '.                          DTSBR603
00201          10  FILLER                  PIC X(20) VALUE              DTSBR603
00202              '             SSN    '.                              DTSBR603
00203      05  WS-LINE-03.                                              DTSBR603
00204          10  FILLER                  PIC X(01)  VALUE SPACE.      DTSBR603
00205          10  FILLER                  PIC X(10) VALUE              DTSBR603
00206              'OPERATOR :'.                                        DTSBR603
00207          10  FILLER                  PIC X(06)  VALUE SPACE.      DTSBR603
00208          10  W-OPER-ID               PIC X(08)  VALUE SPACE.      DTSBR603
00209                                                                   DTSBR603
00210      05  WS-LINE-04.                                              DTSBR603
00211          10  FILLER                  PIC X(01)  VALUE SPACE.      DTSBR603
00212          10  W-LINE-04-TAG           PIC X(10) VALUE              DTSBR603
00213              '   EMP NO:'.                                        DTSBR603
00214          10  FILLER                  PIC X(06)  VALUE SPACE.      DTSBR603
00215          10  W-EMP-NO                PIC 999B999.                 DTSBR603
00216          10  W-EMP-NO-RE  REDEFINES W-EMP-NO                      DTSBR603
00217                                      PIC XXXBXXX.                 DTSBR603
00218          10  W-LINE-04-VARIABLE-DATA PIC X(107)  VALUE SPACE.     DTSBR603
00219      05  W-LINE-DATA OCCURS 5 TIMES.                              DTSBR603
00220              15  W-LABEL                 PIC X(08)  VALUE SPACE.  DTSBR603
00221              15  W-VARIABLE-DATA         PIC X(35)  VALUE SPACE.  DTSBR603
00222              15  W-FILLER1               PIC X(04)  VALUE SPACE.  DTSBR603
00223              15  W-OPER-NAME             PIC X(20)  VALUE SPACE.  DTSBR603
00224              15  W-FILLER2               PIC X(04)  VALUE SPACE.  DTSBR603
00225              15  W-OPER-TITLE            PIC X(15)  VALUE SPACE.  DTSBR603
00226              15  W-FILLER2               PIC X(04)  VALUE SPACE.  DTSBR603
00227              15  W-OPER-SSN              PIC X(11)  VALUE SPACE.  DTSBR603
00228      05  WS-LINE-05.                                              DTSBR603
00229          10  FILLER                  PIC X(01) VALUE SPACE.       DTSBR603
00230          10  FILLER                  PIC X(31) VALUE SPACES.      DTSBR603
00231          10  W-PHONE-OUTPUT          PIC X(15) VALUE SPACE.       DTSBR603
00232      05  WS-LINE-06.                                              DTSBR603
00233          10  FILLER                  PIC X(01) VALUE SPACE.       DTSBR603
00234          10  FILLER                  PIC X(11) VALUE              DTSBR603
00235              '  ORG TYPE:'.                                       DTSBR603
00236          10  FILLER                  PIC X(06) VALUE SPACE.       DTSBR603
00237          10  W-ORG-TYPE              PIC X(03) VALUE SPACE.       DTSBR603
00238          10  FILLER                  PIC X(10) VALUE SPACE.       DTSBR603
00239          10  W-ORG-NAME              PIC X(35) VALUE SPACE.       DTSBR603
00240      05  WS-LINE-07.                                              DTSBR603
00241          10  FILLER                  PIC X(01) VALUE SPACE.       DTSBR603
00242          10  FILLER                  PIC X(11) VALUE              DTSBR603
00243              '   FEIN NO:'.                                       DTSBR603
00244          10  FILLER                  PIC X(06) VALUE SPACE.       DTSBR603
00245          10  W-FEIN-NO               PIC 99B9999999.              DTSBR603
00246          10  FILLER                  PIC X(09) VALUE SPACE.       DTSBR603
00247          10  FILLER                  PIC X(10) VALUE              DTSBR603
00248              'SIC CODE :'.                                        DTSBR603
00249          10  FILLER                  PIC X(04) VALUE SPACE.       DTSBR603
00250          10  W-SIC-CD                PIC X(04) VALUE SPACE.       DTSBR603
00251          10  FILLER                  PIC X(10) VALUE SPACES.      DTSBR603
00252          10  FILLER                  PIC X(11) VALUE              DTSBR603
00253              'NAICS CODE:'.                                       DTSBR603
00254          10  FILLER                  PIC X(06) VALUE SPACES.      DTSBR603
00255          10  W-NAICS-CD              PIC X(06) VALUE SPACE.       DTSBR603
00256      05  WS-LINE-08.                                              DTSBR603
00257          10  FILLER                  PIC X(01)  VALUE SPACE.      DTSBR603
00258          10  FILLER                  PIC X(11)  VALUE             DTSBR603
00259              'CREDIT IND:'.                                       DTSBR603
00260          10  FILLER                  PIC X(06)  VALUE SPACE.      DTSBR603
00261          10  W-CREDIT-IND            PIC X(01)  VALUE SPACE.      DTSBR603
00262          10  FILLER                  PIC X(18)  VALUE SPACE.      DTSBR603
00263          10  FILLER                  PIC X(12)  VALUE             DTSBR603
00264              'START DATE:'.                                       DTSBR603
00265          10  FILLER                  PIC X(03)  VALUE SPACES.     DTSBR603
00266          10  W-START-DATE            PIC X(08)  VALUE SPACE.      DTSBR603
00267      05  WS-LINE-09.                                              DTSBR603
00268          10  FILLER                  PIC X(01)  VALUE SPACE.      DTSBR603
00269          10  FILLER                  PIC X(11)  VALUE             DTSBR603
00270              ' DEBIT IND:'.                                       DTSBR603
00271          10  FILLER                  PIC X(06)  VALUE SPACE.      DTSBR603
00272          10  W-DEBIT-IND             PIC X(01)  VALUE SPACE.      DTSBR603
00273          10  FILLER                  PIC X(18)  VALUE SPACE.      DTSBR603
00274          10  FILLER                  PIC X(12) VALUE              DTSBR603
00275              'START QTR :' .                                      DTSBR603
00276          10  FILLER                  PIC X(03) VALUE SPACES.      DTSBR603
00277          10  W-START-QTR             PIC X(04) VALUE SPACE.       DTSBR603
00278          10  FILLER                  PIC X(10) VALUE SPACES.      DTSBR603
00279          10  FILLER                  PIC X(11) VALUE              DTSBR603
00280              '  END QTR :'.                                       DTSBR603
00281          10  FILLER                  PIC X(06) VALUE SPACES.      DTSBR603
00282          10  W-END-QTR               PIC X(04) VALUE SPACE.       DTSBR603
00283      05  WS-LINE-11.                                              DTSBR603
00284          10  FILLER                  PIC X(01)  VALUE SPACE.      DTSBR603
00285          10  FILLER                  PIC X(132) VALUE ALL '-'.    DTSBR603
00286      05 WS-LINE-11-HDR.                                           DTSBR603
00287         10  FILLER                  PIC X(01) VALUE SPACE.        DTSBR603
00288         10  FILLER                  PIC X(10) VALUE SPACES.       DTSBR603
00289         10  FILLER                  PIC X(20) VALUE SPACE.        DTSBR603
00290         10  FILLER                  PIC X(10) VALUE SPACE.        DTSBR603
00291         10  WS-LINE-11-TITLE        PIC X(50) VALUE SPACE.        DTSBR603
00292         10  FILLER                  PIC X(28) VALUE SPACE.        DTSBR603
00293      05 WS-LINE-12-HDR.                                           DTSBR603
00294         10  FILLER                  PIC X(01) VALUE SPACE.        DTSBR603
00295         10  FILLER                  PIC X(31) VALUE               DTSBR603
00296             'YEAR  REPORT    TAX    WGE CHG '.                    DTSBR603
00297         10  FILLER                  PIC X(34) VALUE               DTSBR603
00298             '------------  WAGES  ------------ '.                 DTSBR603
00299         10  FILLER                  PIC X(32) VALUE               DTSBR603
00300             '-------- TAXES --------  ------ '.                   DTSBR603
00301         10  FILLER                  PIC X(35) VALUE               DTSBR603
00302             'PENALTY ------ ----- INTEREST -----'.                DTSBR603
00303      05 WS-LINE-13-HDR.                                           DTSBR603
00304         10  FILLER                  PIC X(01) VALUE SPACE.        DTSBR603
00305         10  FILLER                  PIC X(31) VALUE               DTSBR603
00306             ' QTR  TYPE      RATE     DATE  '.                    DTSBR603
00307         10  FILLER                  PIC X(34) VALUE               DTSBR603
00308             ' TOTAL        EXCESS      TAXABLE '.                 DTSBR603
00309         10  FILLER                  PIC X(32) VALUE               DTSBR603
00310             'CHARGED          PAID    CHARGED'.                   DTSBR603
00311         10  FILLER                  PIC X(35) VALUE               DTSBR603
00312             '        PAID   CHARGED         PAID'.                DTSBR603
00313                                                                   DTSBR603
00314  01  WS-QUARTER-AREA.                                             DTSBR603
00315      05 WS-QUARTER-DATA.                                          DTSBR603
00316           15  FILLER                PIC X(01)  VALUE SPACE.       DTSBR603
00317           15  W-YR-QTR              PIC X(04)  VALUE SPACE.       DTSBR603
00318           15  FILLER                PIC X(01)  VALUE SPACE.       DTSBR603
00319           15  W-RPT-TYPE            PIC X(10)  VALUE SPACE.       DTSBR603
00320           15  FILLER                PIC X(01)  VALUE SPACE.       DTSBR603
00321           15  W-UI-RATE             PIC X(05)  VALUE SPACE.       DTSBR603
00322           15  FILLER                PIC X(01)  VALUE SPACE.       DTSBR603
00323           15  W-WAGE-CHNG-DATE      PIC X(08)  VALUE SPACE.       DTSBR603
00324           15  FILLER                PIC X(01)  VALUE SPACE.       DTSBR603
00325           15  W-TOTAL-WAGE          PIC ZZZZ,ZZ9.99.              DTSBR603
00326           15  FILLER                PIC X(01)  VALUE SPACE.       DTSBR603
00327           15  W-EXCESS-WAGE         PIC ZZZZ,ZZ9.99.              DTSBR603
00328           15  FILLER                PIC X(01)  VALUE SPACE.       DTSBR603
00329           15  W-TAXABLE-WAGE        PIC ZZZ,ZZ9.99.               DTSBR603
00330           15  FILLER                PIC X(01)  VALUE SPACE.       DTSBR603
00331           15  W-TAXES-CHARGED       PIC ZZZ,ZZ9.99.               DTSBR603
00332           15  FILLER                PIC X(01)  VALUE SPACE.       DTSBR603
00333           15  W-TAXES-PAID          PIC ZZZ,ZZ9.99.               DTSBR603
00334           15  W-TAX-ADJ-IND         PIC X.                        DTSBR603
00335           15  FILLER                PIC X(01)  VALUE SPACE.       DTSBR603
00336           15  W-PENALTY-CHARGED     PIC ZZZ,ZZ9.99.               DTSBR603
00337           15  FILLER                PIC X(01)  VALUE SPACE.       DTSBR603
00338           15  W-PENALTY-PAID        PIC ZZZ,ZZ9.99.               DTSBR603
00339           15  W-PEN-ADJ-IND         PIC X.                        DTSBR603
00340           15  FILLER                PIC X(01)  VALUE SPACE.       DTSBR603
00341           15  W-INTEREST-CHG        PIC ZZ,ZZ9.99.                DTSBR603
00342           15  FILLER                PIC X(01)  VALUE SPACE.       DTSBR603
00343           15  W-INTEREST-PAID       PIC ZZ,ZZ9.99.                DTSBR603
00344           15  W-INT-ADJ-IND         PIC X.                        DTSBR603
00345      EJECT                                                        DTSBR603
00346  01  L001-LINK-AREA.                                              DTSBR603
00347  ++INCLUDE DTSIL001                                               DTSBR603
00348      EJECT                                                        DTSBR603
00349  01  L032-LINK-AREA.                                              DTSBR603
00350  ++INCLUDE DTSIL032                                               DTSBR603
00351      EJECT                                                        DTSBR603
00352  01  L056-LINK-AREA.                                              DTSBR603
00353  ++INCLUDE DTSIL056                                               DTSBR603
00354      EJECT                                                        DTSBR603
00355  01  L062-LINK-AREA.                                              DTSBR603
00356  ++INCLUDE DTSIL062                                               DTSBR603
00357      EJECT                                                        DTSBR603
00358  LINKAGE SECTION.                                                 DTSBR603
00359      SKIP2                                                        DTSBR603
00360  01  LRCM-LINK-AREA.                                              DTSBR603
00361  ++INCLUDE DTSILRCM                                               DTSBR603
00362      EJECT                                                        DTSBR603
00363  01  R603-REC.                                                    DTSBR603
00364  ++INCLUDE DTSIR603                                               DTSBR603
00365      EJECT                                                        DTSBR603
00366  PROCEDURE DIVISION USING LRCM-LINK-AREA                          DTSBR603
00367                           R603-REC.                               DTSBR603
00368                                                                   DTSBR603
00369      IF FIRST-TIME-IND = 'Y'                                      DTSBR603
00370          PERFORM I1000-INITIATE THRU I1000-EXIT                   DTSBR603
00371          MOVE 'N' TO FIRST-TIME-IND.                              DTSBR603
00372                                                                   DTSBR603
00373      IF LRCM-EOR-88                                               DTSBR603
00374          PERFORM T1000-TERMINATE THRU T1000-EXIT                  DTSBR603
00375      ELSE                                                         DTSBR603
00376          PERFORM P1000-PROCESS THRU P1000-EXIT.                   DTSBR603
00377                                                                   DTSBR603
00378      GOBACK.                                                      DTSBR603
00379                                                                   DTSBR603
00380  I1000-INITIATE.                                                  DTSBR603
00381                                                                   DTSBR603
00382      MOVE SPACES TO WS-FIELD-REP-INFO.                            DTSBR603
00383      OPEN OUTPUT PRT-FILE.                                        DTSBR603
00384                                                                   DTSBR603
00385  I1000-EXIT.                                                      DTSBR603
00386      EXIT.                                                        DTSBR603
00387                                                                   DTSBR603
00388  T1000-TERMINATE.                                                 DTSBR603
00389                                                                   DTSBR603
00390      CLOSE PRT-FILE.                                              DTSBR603
00391                                                                   DTSBR603
00392  T1000-EXIT.                                                      DTSBR603
00393      EXIT.                                                        DTSBR603
00394      EJECT                                                        DTSBR603
00395  P1000-PROCESS.                                                   DTSBR603
00396                                                                   DTSBR603
00397      IF R603-ASSIGN-NO = WS-ASSIGN-NO-OUTPUT                      DTSBR603
00398          NEXT SENTENCE                                            DTSBR603
00399      ELSE                                                         DTSBR603
00400          PERFORM P1010-HEADER THRU P1010-EXIT.                    DTSBR603
00401                                                                   DTSBR603
00402      PERFORM P2000-OUTPUT-EMPLOYER-RECS THRU P2000-EXIT.          DTSBR603
00403                                                                   DTSBR603
00404      MOVE WS-LINE-11          TO REPORT-REC.                      DTSBR603
00405      WRITE REPORT-REC AFTER 2 LINES.                              DTSBR603
00406                                                                   DTSBR603
00407      MOVE 'PRE-AUDIT INFORMATION BY QUARTER' TO WS-LINE-11-TITLE. DTSBR603
00408      MOVE WS-LINE-11-HDR      TO REPORT-REC.                      DTSBR603
00409      PERFORM S2000-WRITE-RECORD THRU S2000-EXIT.                  DTSBR603
00410      MOVE WS-LINE-12-HDR      TO REPORT-REC.                      DTSBR603
00411      PERFORM S2000-WRITE-RECORD THRU S2000-EXIT.                  DTSBR603
00412      MOVE WS-LINE-13-HDR      TO REPORT-REC.                      DTSBR603
00413      PERFORM S2000-WRITE-RECORD THRU S2000-EXIT.                  DTSBR603
00414                                                                   DTSBR603
00415      IF R603-QTR-CNT > +0                                         DTSBR603
00416         PERFORM P3000-OUTPUT-QUARTER-RECS THRU P3000-EXIT         DTSBR603
00417             VARYING R603-QTR-IDX FROM +1 BY +1                    DTSBR603
00418             UNTIL R603-QTR-IDX >  R603-QTR-CNT                    DTSBR603
00419      ELSE                                                         DTSBR603
00420         MOVE '        NO QUARTER DATA FOUND      '                DTSBR603
00421                                TO WS-MISC-DATA                    DTSBR603
00422         WRITE REPORT-REC FROM WS-MISC-DATA  AFTER 3               DTSBR603
00423      END-IF.                                                      DTSBR603
00424  P1000-EXIT.                                                      DTSBR603
00425      EXIT.                                                        DTSBR603
00426                                                                   DTSBR603
00427  P1010-HEADER.                                                    DTSBR603
00428      MOVE LRCM-AGY-NAME-LINE1 TO WS-LRCM-AGY-NAME-LINE1           DTSBR603
00429      MOVE LRCM-SYS-DATE       TO WS-LRCM-SYS-DATE                 DTSBR603
00430      MOVE WS-HEADER-1         TO REPORT-REC                       DTSBR603
00431      WRITE REPORT-REC AFTER TOP-OF-PAGE.                          DTSBR603
00432                                                                   DTSBR603
00433      MOVE LRCM-AGY-NAME-LINE2 TO WS-LRCM-AGY-NAME-LINE2           DTSBR603
00434      MOVE LRCM-SYS-TIME       TO WS-LRCM-SYS-TIME                 DTSBR603
00435      MOVE WS-HEADER-2         TO REPORT-REC                       DTSBR603
00436      WRITE REPORT-REC AFTER 1 LINE.                               DTSBR603
00437                                                                   DTSBR603
00438      MOVE '          FIELD ASSIGNMENT REPORT TAX-DATA        '    DTSBR603
00439                               TO WS-HEADER-3-TITLE                DTSBR603
00440      MOVE 'ENFORCEMENT UNIT'  TO WS-HEADER-3-UNIT                 DTSBR603
00441      ADD 1 TO WS-PAGE-COUNT                                       DTSBR603
00442      MOVE WS-PAGE-COUNT       TO W-PAGE-CNTR                      DTSBR603
00443      MOVE WS-HEADER-3         TO REPORT-REC                       DTSBR603
00444      WRITE REPORT-REC AFTER 1 LINE.                               DTSBR603
00445                                                                   DTSBR603
00446      MOVE R603-FIELD-REP-ID TO WS-FIELD-REP-ID-LAST               DTSBR603
00447                                L062-FLD-REP-ID                    DTSBR603
00448      PERFORM S062-FLD-REP-INFO THRU S062-EXIT                     DTSBR603
00449      MOVE L062-NAME TO W-FLD-REP-NAME                             DTSBR603
00450      MOVE R603-ASSIGN-NO TO WS-ASSIGN-NO-OUTPUT.                  DTSBR603
00451  P1010-EXIT.                                                      DTSBR603
00452      EXIT.                                                        DTSBR603
00453      EJECT                                                        DTSBR603
00454  P2000-OUTPUT-EMPLOYER-RECS.                                      DTSBR603
00455      MOVE WS-ASSIGN-NO-OUTPUT TO W-ASSIGN-NO.                     DTSBR603
00456      MOVE WS-LINE-01          TO REPORT-REC.                      DTSBR603
00457      PERFORM S2000-WRITE-RECORD THRU S2000-EXIT.                  DTSBR603
00458                                                                   DTSBR603
00459      MOVE R603-FIELD-REP-ID   TO W-FLD-ID.                        DTSBR603
00460      MOVE WS-LINE-02          TO REPORT-REC.                      DTSBR603
00461      PERFORM S2000-WRITE-RECORD THRU S2000-EXIT.                  DTSBR603
00462                                                                   DTSBR603
00463      MOVE R603-FIELD-REP-OPID TO W-OPER-ID.                       DTSBR603
00464      MOVE WS-LINE-03          TO REPORT-REC.                      DTSBR603
00465      PERFORM S2000-WRITE-RECORD THRU S2000-EXIT.                  DTSBR603
00466                                                                   DTSBR603
00467      PERFORM P3500-OUTPUT-OPO-RECS THRU P3500-EXIT                DTSBR603
00468         VARYING R603-OPO-IDX FROM  1 BY  1                        DTSBR603
00469         UNTIL  R603-OPO-IDX > 5.                                  DTSBR603
00470                                                                   DTSBR603
00471      MOVE R603-MAIL-VOICE-1(1:10) TO WS-VOICE-OUTPUT              DTSBR603
00472      MOVE SPACES                  TO W-PHONE-OUTPUT.              DTSBR603
00473                                                                   DTSBR603
00474      IF WS-VOICE-OUTPUT  >       SPACES                           DTSBR603
00475          MOVE R603-MAIL-VOICE-1(1:3) TO WS-VOICE-OUTPUT-EDIT1     DTSBR603
00476          MOVE R603-MAIL-VOICE-1(4:3) TO WS-VOICE-OUTPUT-EDIT2     DTSBR603
00477          MOVE R603-MAIL-VOICE-1(7:4) TO WS-VOICE-OUTPUT-EDIT3     DTSBR603
00478          MOVE WS-VOICE-OUTPUT-R      TO W-PHONE-OUTPUT            DTSBR603
00479          MOVE WS-LINE-05             TO REPORT-REC                DTSBR603
00480          PERFORM S2000-WRITE-RECORD  THRU S2000-EXIT.             DTSBR603
00481                                                                   DTSBR603
00482      PERFORM S2000-WRITE-RECORD  THRU S2000-EXIT.                 DTSBR603
00483                                                                   DTSBR603
00484      PERFORM P3750-PHYS-ADDR-RTN   THRU P3750-EXIT                DTSBR603
00485         VARYING R603-PHYS-IDX FROM 1 BY  1                        DTSBR603
00486             UNTIL  R603-PHYS-IDX > 5.                             DTSBR603
00487                                                                   DTSBR603
00488      MOVE R603-PHYS-VOICE-1(1:10) TO WS-VOICE-OUTPUT              DTSBR603
00489      MOVE SPACES                  TO W-PHONE-OUTPUT.              DTSBR603
00490                                                                   DTSBR603
00491      IF WS-VOICE-OUTPUT  >       SPACES                           DTSBR603
00492          MOVE R603-PHYS-VOICE-1(1:3) TO WS-VOICE-OUTPUT-EDIT1     DTSBR603
00493          MOVE R603-PHYS-VOICE-1(4:3) TO WS-VOICE-OUTPUT-EDIT2     DTSBR603
00494          MOVE R603-PHYS-VOICE-1(7:4) TO WS-VOICE-OUTPUT-EDIT3     DTSBR603
00495          MOVE WS-VOICE-OUTPUT-R      TO W-PHONE-OUTPUT            DTSBR603
00496          MOVE WS-LINE-05             TO REPORT-REC                DTSBR603
00497          PERFORM S2000-WRITE-RECORD  THRU S2000-EXIT.             DTSBR603
00498                                                                   DTSBR603
00499      MOVE R603-ORG-TYPE TO W-ORG-TYPE.                            DTSBR603
00500      MOVE WS-LINE-06    TO REPORT-REC.                            DTSBR603
00501      WRITE REPORT-REC AFTER 2 LINES.                              DTSBR603
00502                                                                   DTSBR603
00503      MOVE R603-FEIN TO W-FEIN-NO.                                 DTSBR603
00504                                                                   DTSBR603
00505      MOVE R603-SIC-CD TO W-SIC-CD.                                DTSBR603
00506      MOVE R603-NAICS-CD TO W-NAICS-CD.                            DTSBR603
00507      MOVE WS-LINE-07              TO REPORT-REC.                  DTSBR603
00508      PERFORM S2000-WRITE-RECORD THRU S2000-EXIT.                  DTSBR603
00509                                                                   DTSBR603
00510      MOVE R603-CREDIT-IND TO W-CREDIT-IND.                        DTSBR603
00511                                                                   DTSBR603
00512      MOVE R603-START-DATE TO L001-FED-8-DATE-9.                   DTSBR603
00513      SET L001-FROM-FED-8 TO TRUE.                                 DTSBR603
00514      PERFORM S001-DATE THRU S001-EXIT.                            DTSBR603
00515      MOVE L001-SLASH-DATE TO WS-START-DATE-OUTPUT.                DTSBR603
00516      MOVE WS-START-DATE-OUTPUT TO W-START-DATE.                   DTSBR603
00517                                                                   DTSBR603
00518      MOVE WS-LINE-08              TO REPORT-REC.                  DTSBR603
00519      PERFORM S2000-WRITE-RECORD THRU S2000-EXIT.                  DTSBR603
00520                                                                   DTSBR603
00521      MOVE R603-DEBIT-IND  TO W-DEBIT-IND.                         DTSBR603
00522      MOVE R603-AUDIT-START-YRQ                                    DTSBR603
00523           TO WS-AUDIT-START-YRQ-OUTPUT-R.                         DTSBR603
00524      MOVE WS-AUDIT-START-YRQ-OUTPUT TO W-START-QTR                DTSBR603
00525      MOVE R603-AUDIT-END-YRQ                                      DTSBR603
00526           TO WS-AUDIT-END-YRQ-OUTPUT-R.                           DTSBR603
00527      MOVE WS-AUDIT-END-YRQ-OUTPUT TO W-END-QTR                    DTSBR603
00528                                                                   DTSBR603
00529      MOVE WS-LINE-09              TO REPORT-REC.                  DTSBR603
00530      PERFORM S2000-WRITE-RECORD THRU S2000-EXIT.                  DTSBR603
00531                                                                   DTSBR603
00532  P2000-EXIT.                                                      DTSBR603
00533      EXIT.                                                        DTSBR603
00534      EJECT                                                        DTSBR603
00535  P3000-OUTPUT-QUARTER-RECS.                                       DTSBR603
00536                                                                   DTSBR603
00537      MOVE R603-QTR-YRQ (R603-QTR-IDX)                             DTSBR603
00538         TO WS-YR-QTR.                                             DTSBR603
00539      MOVE WS-YQTR-YR TO WS-DISPLAY-YR                             DTSBR603
00540      MOVE WS-YQTR-MM TO WS-DISPLAY-MM                             DTSBR603
00541      MOVE WS-DISPLAY-YQTR TO W-YR-QTR.                            DTSBR603
00542                                                                   DTSBR603
00543      MOVE R603-QTR-CURR-RPT-TYPE (R603-QTR-IDX) TO L032-CD.       DTSBR603
00544      SET L032-MQTR-CURR-RPT-TYPE TO TRUE.                         DTSBR603
00545      PERFORM S032-ACCT-DESCRIPTION THRU S032-EXIT                 DTSBR603
00546      MOVE L032-SHORT-DSCR   TO W-RPT-TYPE.                        DTSBR603
00547                                                                   DTSBR603
00548      MOVE R603-QTR-UI-RATE (R603-QTR-IDX) TO L056-RATE.           DTSBR603
00549      SET L056-DISP3-LEFT-88 TO TRUE.                              DTSBR603
00550      PERFORM S056-RATE-DISPLAY THRU S056-EXIT.                    DTSBR603
00551      MOVE L056-DISP-RATE TO W-UI-RATE.                            DTSBR603
00552                                                                   DTSBR603
00553      MOVE R603-QTR-WAGE-CHNG-DATE (R603-QTR-IDX)                  DTSBR603
00554         TO L001-FED-8-DATE-9.                                     DTSBR603
00555      SET L001-FROM-FED-8 TO TRUE.                                 DTSBR603
00556      PERFORM S001-DATE THRU S001-EXIT.                            DTSBR603
00557      MOVE L001-SLASH-DATE TO W-WAGE-CHNG-DATE.                    DTSBR603
00558                                                                   DTSBR603
00559      MOVE R603-QTR-TOT-WAGE (R603-QTR-IDX) TO W-TOTAL-WAGE.       DTSBR603
00560                                                                   DTSBR603
00561      MOVE R603-QTR-EXCESS-WAGE (R603-QTR-IDX) TO W-EXCESS-WAGE.   DTSBR603
00562                                                                   DTSBR603
00563      MOVE R603-QTR-TAX-WAGE (R603-QTR-IDX) TO W-TAXABLE-WAGE.     DTSBR603
00564                                                                   DTSBR603
00565      MOVE R603-QTR-TAX-CHARGED-AMT (R603-QTR-IDX)                 DTSBR603
00566         TO W-TAXES-CHARGED.                                       DTSBR603
00567                                                                   DTSBR603
00568      MOVE R603-QTR-TAX-PAID-AMT (R603-QTR-IDX)                    DTSBR603
00569         TO W-TAXES-PAID.                                          DTSBR603
00570                                                                   DTSBR603
00571      MOVE R603-QTR-TAX-TOLERATED-IND (R603-QTR-IDX)               DTSBR603
00572         TO W-TAX-ADJ-IND.                                         DTSBR603
00573                                                                   DTSBR603
00574      MOVE R603-QTR-PEN-CHARGED-AMT (R603-QTR-IDX)                 DTSBR603
00575         TO W-PENALTY-CHARGED.                                     DTSBR603
00576                                                                   DTSBR603
00577      MOVE R603-QTR-PEN-PAID-AMT (R603-QTR-IDX)                    DTSBR603
00578         TO W-PENALTY-PAID.                                        DTSBR603
00579                                                                   DTSBR603
00580      MOVE R603-QTR-PEN-TOLERATED-IND (R603-QTR-IDX)               DTSBR603
00581         TO W-PEN-ADJ-IND.                                         DTSBR603
00582                                                                   DTSBR603
00583      MOVE R603-QTR-INT-CHARGED-AMT (R603-QTR-IDX)                 DTSBR603
00584         TO W-INTEREST-CHG.                                        DTSBR603
00585                                                                   DTSBR603
00586      MOVE R603-QTR-INT-PAID-AMT (R603-QTR-IDX)                    DTSBR603
00587         TO W-INTEREST-PAID.                                       DTSBR603
00588                                                                   DTSBR603
00589      MOVE R603-QTR-TAX-TOLERATED-IND (R603-QTR-IDX)               DTSBR603
00590         TO W-INT-ADJ-IND.                                         DTSBR603
00591                                                                   DTSBR603
00592      INITIALIZE REPORT-REC.                                       DTSBR603
00593      PERFORM S2000-WRITE-RECORD THRU S2000-EXIT.                  DTSBR603
00594                                                                   DTSBR603
00595      WRITE REPORT-REC FROM       WS-QUARTER-DATA AFTER 1.         DTSBR603
00596                                                                   DTSBR603
00597  P3000-EXIT.                                                      DTSBR603
00598      EXIT.                                                        DTSBR603
00599      EJECT                                                        DTSBR603
00600  P3500-OUTPUT-OPO-RECS.                                           DTSBR603
00601      SET SUB TO R603-OPO-IDX                                      DTSBR603
00602                                                                   DTSBR603
00603      MOVE R603-OPO-NAME (R603-OPO-IDX)  TO                        DTSBR603
00604           W-OPER-NAME (SUB).                                      DTSBR603
00605                                                                   DTSBR603
00606      MOVE R603-OPO-TITLE (R603-OPO-IDX) TO                        DTSBR603
00607           W-OPER-TITLE (SUB).                                     DTSBR603
00608                                                                   DTSBR603
00609      IF   R603-OPO-SSN (R603-OPO-IDX) > 0                         DTSBR603
00610           MOVE R603-OPO-SSN (R603-OPO-IDX) TO WS-OPO-SSN-UNPACK   DTSBR603
00611           MOVE WS-OPO-SSN-UNPACK (1:3) TO WS-OPO-SSN-OUTPUT-EDIT1 DTSBR603
00612           MOVE WS-OPO-SSN-UNPACK (4:2) TO WS-OPO-SSN-OUTPUT-EDIT2 DTSBR603
00613           MOVE WS-OPO-SSN-UNPACK (6:4) TO WS-OPO-SSN-OUTPUT-EDIT3 DTSBR603
00614           MOVE WS-OPO-SSN-OUTPUT       TO W-OPER-SSN (SUB)        DTSBR603
00615      ELSE                                                         DTSBR603
00616           MOVE SPACES                  TO W-OPER-SSN (SUB)        DTSBR603
00617      END-IF.                                                      DTSBR603
00618                                                                   DTSBR603
00619      IF SUB = 1                                                   DTSBR603
00620         MOVE R603-EMP-NO         TO W-EMP-NO                      DTSBR603
00621         MOVE '   EMP NO:'        TO W-LINE-04-TAG                 DTSBR603
00622         MOVE SPACES              TO W-LABEL (SUB)                 DTSBR603
00623         MOVE R603-PRIMARY-NAME   TO W-VARIABLE-DATA (SUB)         DTSBR603
00624      ELSE                                                         DTSBR603
00625        IF SUB = 2                                                 DTSBR603
00626           MOVE SPACES              TO W-EMP-NO-RE                 DTSBR603
00627           MOVE '          '        TO W-LINE-04-TAG               DTSBR603
00628           MOVE 'MAIL:'             TO W-LABEL (SUB)               DTSBR603
00629           MOVE R603-MAIL-LINE (SUB - 1)                           DTSBR603
00630                                    TO W-VARIABLE-DATA (SUB)       DTSBR603
00631        ELSE                                                       DTSBR603
00632           MOVE SPACES              TO W-LABEL (SUB)               DTSBR603
00633           MOVE R603-MAIL-LINE (SUB - 1)                           DTSBR603
00634                                    TO W-VARIABLE-DATA (SUB)       DTSBR603
00635        END-IF                                                     DTSBR603
00636      END-IF.                                                      DTSBR603
00637                                                                   DTSBR603
00638      IF W-VARIABLE-DATA (SUB) > SPACES OR                         DTSBR603
00639         W-OPER-NAME     (SUB) > SPACES                            DTSBR603
00640           MOVE W-LINE-DATA (SUB)      TO W-LINE-04-VARIABLE-DATA  DTSBR603
00641           MOVE WS-LINE-04             TO REPORT-REC               DTSBR603
00642           PERFORM S2000-WRITE-RECORD  THRU S2000-EXIT             DTSBR603
00643      END-IF.                                                      DTSBR603
00644                                                                   DTSBR603
00645      MOVE  SPACES  TO W-LINE-04-VARIABLE-DATA.                    DTSBR603
00646                                                                   DTSBR603
00647  P3500-EXIT.                                                      DTSBR603
00648      EXIT.                                                        DTSBR603
00649                                                                   DTSBR603
00650  P3750-PHYS-ADDR-RTN.                                             DTSBR603
00651       SET  SUB TO R603-PHYS-IDX.                                  DTSBR603
00652       INITIALIZE W-LINE-DATA (SUB).                               DTSBR603
00653       MOVE R603-PHYS-LINE  (R603-PHYS-IDX) TO                     DTSBR603
00654            W-VARIABLE-DATA (SUB).                                 DTSBR603
00655       DISPLAY 'W-PHYSICAL-DATA  ' W-VARIABLE-DATA (SUB).          DTSBR603
00656       DISPLAY '    SUBSCRIPT    ' SUB.                            DTSBR603
00657                                                                   DTSBR603
00658       IF SUB = 1                                                  DTSBR603
00659          MOVE 'PHYS:'   TO W-LABEL(SUB)                           DTSBR603
00660       ELSE                                                        DTSBR603
00661          MOVE '     '   TO W-LABEL(SUB)                           DTSBR603
00662       END-IF.                                                     DTSBR603
00663                                                                   DTSBR603
00664      IF W-VARIABLE-DATA (SUB) > SPACES                            DTSBR603
00665         MOVE W-LINE-DATA (SUB)      TO W-LINE-04-VARIABLE-DATA    DTSBR603
00666         MOVE WS-LINE-04             TO REPORT-REC                 DTSBR603
00667         PERFORM S2000-WRITE-RECORD  THRU S2000-EXIT               DTSBR603
00668      END-IF.                                                      DTSBR603
00669  P3750-EXIT.                                                      DTSBR603
00670      EXIT.                                                        DTSBR603
00671      EJECT                                                        DTSBR603
00672  S001-DATE.                                                       DTSBR603
00673                                                                   DTSBR603
00674      CALL 'DTSBU001' USING L001-LINK-AREA.                        DTSBR603
00675                                                                   DTSBR603
00676  S001-EXIT.                                                       DTSBR603
00677      EXIT.                                                        DTSBR603
00678                                                                   DTSBR603
00679  S032-ACCT-DESCRIPTION.                                           DTSBR603
00680                                                                   DTSBR603
00681      CALL 'DTSBU032' USING L032-LINK-AREA.                        DTSBR603
00682                                                                   DTSBR603
00683  S032-EXIT.                                                       DTSBR603
00684      EXIT.                                                        DTSBR603
00685                                                                   DTSBR603
00686  S056-RATE-DISPLAY.                                               DTSBR603
00687                                                                   DTSBR603
00688      CALL 'DTSBU056' USING L056-LINK-AREA.                        DTSBR603
00689                                                                   DTSBR603
00690  S056-EXIT.                                                       DTSBR603
00691      EXIT.                                                        DTSBR603
00692                                                                   DTSBR603
00693  S062-FLD-REP-INFO.                                               DTSBR603
00694                                                                   DTSBR603
00695      CALL 'DTSBU062' USING L062-LINK-AREA.                        DTSBR603
00696                                                                   DTSBR603
00697  S062-EXIT.                                                       DTSBR603
00698      EXIT.                                                        DTSBR603
00699                                                                   DTSBR603
00700  S2000-WRITE-RECORD.                                              DTSBR603
00701      WRITE REPORT-REC AFTER 1 LINE.                               DTSBR603
00702      ADD  1  TO WS-LINE-COUNT.                                    DTSBR603
00703      INITIALIZE REPORT-REC.                                       DTSBR603
00704  S2000-EXIT.                                                      DTSBR603
00705      EXIT.                                                        DTSBR603
00706 ****                                                              DTSBR603
