00001  IDENTIFICATION DIVISION.                                         05/28/14
00002  PROGRAM-ID.             DTSCU119.                                DTSCU119
00003  AUTHOR.                 TRICOASTAL CONSULTING LTD.                  LV033
00004  DATE-WRITTEN.           DECEMBER 1991.                           DTSCU119
00005  DATE-COMPILED.                                                   DTSCU119
00006      SKIP3                                                        DTSCU119
00007 *****                                                             DTSCU119
00008 *                                                                 DTSCU119
00009 *    FUNCTION:  AGENCY FACTS.                                     DTSCU119
00010 *                                                                 DTSCU119
00011 *                                                                 DTSCU119
00012 *    MODIFICATION LOG:                                            DTSCU119
00013 *                                                                 DTSCU119
00014 *    05/30/94  MODIFIED FOR MONTANA.                              DTSCU119
00015 *              WORK ORDER:                      PROGRAMMER: TCL   DTSCU119
00016 *                                                                 DTSCU119
00017 *    02/12/97  RE-COMPILED FOR CHANGES TO COPY MEMBER DTSIC119.   DTSCU119
00018 *              REFERENCE RFP: NONE              PROGRAMMER: MJA   DTSCU119
00019 *                                                                 DTSCU119
00020 *    11/04/97  RE-COMPILED FOR CHANGES TO COPY MEMBER DTSIC119.   DTSCU119
00021 *              REFERENCE RFP: TCL 208           PROGRAMMER: EHH   DTSCU119
00022 *                                                                 DTSCU119
00023 *    10/06/1998  REVIEWED AND MODIFIED FOR DC.                    DTSCU119
00024 *                REFERENCE: DC DEVELOPMENT      PROGRAMMER: EHH   DTSCU119
00025 *                                                                 DTSCU119
00026 *    04/21/2000  RECOMPILED FOR DTSIC119 COPYBOOK CHANGES         DTSCU119
00027 *                REFERENCE: DC DEVELOPMENT      PROGRAMMER: ZL1   DTSCU119
00028 *                                                                 DTSCU119
00029 *    09/11/2006  RECOMPILED FOR DTSIC119 COPYBOOK CHANGES         DTSCU119
00030 *                 ADDED BOBBY TUCKER AS NEW TAX CHIEF             DTSCU119
00031 *                REFERENCE: DC DEVELOPMENT      PROGRAMMER: ZL1   DTSCU119
00032 *                                                                 DTSCU119
00033 *    07/28/2008  RECOMPILED FOR DTSIC119 COPYBOOK CHANGES         DTSCU119
00034 *                 ADDED SCOTT KUBLY  AS NEW ASSOCIATE DIR.        DTSCU119
00035 *                REFERENCE: DC DEVELOPMENT      PROGRAMMER: ZL1   DTSCU119
00036 *                                                                 DTSCU119
00037 *    04/10/2009  RECOMPILED FOR DTSIC119 COPYBOOK CHANGES         DTSCU119
00038 *                ADDED VALARIE KITCHINGS AS ASSOCIATE DIR.        DTSCU119
00039 *                REFERENCE: DC DEVELOPMENT      PROGRAMMER: ZL1   DTSCU119
00040 *                                                                 DTSCU119
00041 *    07/23/2010  RECOMPILED FOR DTSIC119 COPYBOOK CHANGES         DTSCU119
00042 *                ADDED MARY TUCKER       AS ASSOCIATE DIR.        DTSCU119
00043 *                ADDED MARILYN SEABROOK  AS TAX CHIEF.            DTSCU119
00044 *                REFERENCE: DC DEVELOPMENT      PROGRAMMER: ZL1   DTSCU119
00045 *                                                                 DTSCU119
00046 *    05/22/2014  RECOMPILED FOR DTSIC119 COPYBOOK CHANGES         DTSCU119
00047 *                ADDED ROSA AS COLLECTIONS/FIELD SUPV             DTSCU119
00048 *                REMOVED LARRY TOLER                              DTSCU119
00049 *                REFERENCE: DC DEVELOPMENT      PROGRAMMER: ZL1   DTSCU119
00050 *                                                                 DTSCU119
00051 *    MM/DD/YYYY  XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX   DTSCU119
00052 *                XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX   DTSCU119
00053 *                REFERENCE: XXXXXXXXXXXXXXX     PROGRAMMER: XXX   DTSCU119
00054 *                                                                 DTSCU119
00055 *                                                                 DTSCU119
00056 *    DESCRIPTION:                                                 DTSCU119
00057 *                                                                 DTSCU119
00058 *    DTSCU119 RETURNS FACTS (NAMES, ADDRESSES, PHONE NUMBERS)     DTSCU119
00059 *    ABOUT THE AGENCY, UI DIVISION, TAX SECTION, AND A TAX SECTIONDTSCU119
00060 *    UNIT FACTS ARE USED IN CONSTRUCTING PRINTED OUTPUT THAT WILL DTSCU119
00061 *    BE SENT TO EMPLOYERS.                                        DTSCU119
00062 *                                                                 DTSCU119
00063 *                                                                 DTSCU119
00064 *****                                                             DTSCU119
00065      SKIP3                                                        DTSCU119
00066  ENVIRONMENT DIVISION.                                            DTSCU119
00067      SKIP3                                                        DTSCU119
00068  DATA DIVISION.                                                   DTSCU119
00069      SKIP3                                                        DTSCU119
00070  WORKING-STORAGE SECTION.                                         DTSCU119
000705 77  PAN-VALET PICTURE X(24) VALUE '033DTSCU119  05/28/14'.       DTSCU119
00071  77  PAN-VALET PICTURE X(24) VALUE '002DTSCU119  05/22/14'.       DTSCU119
00072  77  PAN-VALET PICTURE X(24) VALUE '031DTSCU119  01/03/14'.       DTSCU119
00073  77  PAN-VALET PICTURE X(24) VALUE '001DTSCU119  01/03/14'.       DTSCU119
00074  77  PAN-VALET PICTURE X(24) VALUE '029DTSCU119  04/01/11'.       DTSCU119
00075      SKIP3                                                        DTSCU119
00076  01  WRK-AREA.                                                    DTSCU119
00077      05  WRK-ABEND-CODE              PIC  X(04)  VALUE 'U119'.    DTSCU119
00078                                                                   DTSCU119
00079      05  WRK-RESP-CODE               PIC S9(08)  COMP.            DTSCU119
00080      EJECT                                                        DTSCU119
00081  01  C119-LITERALS.                                               DTSCU119
00082  ++INCLUDE DTSIC119                                               DTSCU119
00083      EJECT                                                        DTSCU119
00084  LINKAGE SECTION.                                                 DTSCU119
00085      SKIP3                                                        DTSCU119
00086  01  DFHCOMMAREA.                                                 DTSCU119
00087  ++INCLUDE DTSIL119                                               DTSCU119
00088      EJECT                                                        DTSCU119
00089  PROCEDURE DIVISION.                                              DTSCU119
00090      SKIP2                                                        DTSCU119
00091      IF L119-REQ-MIXED-88                                         DTSCU119
00092          MOVE C119-AGY-NAME-ADDR-MIXED TO L119-AGY-NAME-ADDR      DTSCU119
00093          MOVE C119-AGY-MISC-MIXED TO L119-AGY-MISC-NAME-TITLE     DTSCU119
00094          MOVE C119-AGY-MISC-TEL TO L119-AGY-MISC-TEL              DTSCU119
00095          MOVE C119-UC-OFFICE-MIXED TO L119-UC-OFFICE-NAME-TITLE   DTSCU119
00096          MOVE C119-UC-OFFICE-TEL TO L119-UC-OFFICE-TEL            DTSCU119
00097          MOVE C119-TAX-DIV-MIXED TO L119-TAX-DIV-NAME-TITLE       DTSCU119
00098          MOVE C119-TAX-DIV-TEL TO L119-TAX-DIV-TEL                DTSCU119
00099          MOVE C119-TAX-BUR-MIXED TO L119-TAX-BUR-NAME-TITLE       DTSCU119
00100          MOVE C119-TAX-BUR-TEL TO L119-TAX-BUR-TEL                DTSCU119
00101      ELSE                                                         DTSCU119
00102      IF L119-REQ-CAPS-88                                          DTSCU119
00103          MOVE C119-AGY-NAME-ADDR-CAPS TO L119-AGY-NAME-ADDR       DTSCU119
00104          MOVE C119-AGY-MISC-CAPS TO L119-AGY-MISC-NAME-TITLE      DTSCU119
00105          MOVE C119-AGY-MISC-TEL TO L119-AGY-MISC-TEL              DTSCU119
00106          MOVE C119-UC-OFFICE-CAPS TO L119-UC-OFFICE-NAME-TITLE    DTSCU119
00107          MOVE C119-UC-OFFICE-TEL TO L119-UC-OFFICE-TEL            DTSCU119
00108          MOVE C119-TAX-DIV-CAPS TO L119-TAX-DIV-NAME-TITLE        DTSCU119
00109          MOVE C119-TAX-DIV-TEL TO L119-TAX-DIV-TEL                DTSCU119
00110          MOVE C119-TAX-BUR-CAPS TO L119-TAX-BUR-NAME-TITLE        DTSCU119
00111          MOVE C119-TAX-BUR-TEL TO L119-TAX-BUR-TEL                DTSCU119
00112      ELSE                                                         DTSCU119
00113          GO TO S899-ABEND.                                        DTSCU119
00114                                                                   DTSCU119
00115      IF L119-REQ-NO-UNIT-88                                       DTSCU119
00116          MOVE SPACES TO L119-UNIT                                 DTSCU119
00117      ELSE                                                         DTSCU119
00118      IF L119-REQ-EMP-REG-88                                       DTSCU119
00119          MOVE C119-EMP-REG-TEL TO L119-UNIT-TEL                   DTSCU119
00120          IF L119-REQ-CAPS-88                                      DTSCU119
00121              MOVE C119-EMP-REG-CAPS TO L119-UNIT-NAME-TITLE       DTSCU119
00122          ELSE                                                     DTSCU119
00123              MOVE C119-EMP-REG-MIXED TO L119-UNIT-NAME-TITLE      DTSCU119
00124      ELSE                                                         DTSCU119
00125      IF L119-REQ-EXP-RATING-88                                    DTSCU119
00126          MOVE C119-EXP-RATE-TEL TO L119-UNIT-TEL                  DTSCU119
00127          IF L119-REQ-CAPS-88                                      DTSCU119
00128              MOVE C119-EXP-RATE-CAPS TO L119-UNIT-NAME-TITLE      DTSCU119
00129          ELSE                                                     DTSCU119
00130              MOVE C119-EXP-RATE-MIXED TO L119-UNIT-NAME-TITLE     DTSCU119
00131      ELSE                                                         DTSCU119
00132      IF L119-REQ-TAX-ACCOUNTING-88                                DTSCU119
00133          MOVE C119-TAX-ACCT-TEL TO L119-UNIT-TEL                  DTSCU119
00134          IF L119-REQ-CAPS-88                                      DTSCU119
00135              MOVE C119-TAX-ACCT-CAPS TO L119-UNIT-NAME-TITLE      DTSCU119
00136          ELSE                                                     DTSCU119
00137              MOVE C119-TAX-ACCT-MIXED TO L119-UNIT-NAME-TITLE     DTSCU119
00138      ELSE                                                         DTSCU119
00139      IF L119-REQ-COLLECTIONS-88                                   DTSCU119
00140          MOVE C119-COLL-TEL TO L119-UNIT-TEL                      DTSCU119
00141          IF L119-REQ-CAPS-88                                      DTSCU119
00142              MOVE C119-COLL-CAPS TO L119-UNIT-NAME-TITLE          DTSCU119
00143          ELSE                                                     DTSCU119
00144              MOVE C119-COLL-MIXED TO L119-UNIT-NAME-TITLE         DTSCU119
00145      ELSE                                                         DTSCU119
00146      IF L119-REQ-FIELD-SUPPORT-88                                 DTSCU119
00147          MOVE C119-FLD-SUPP-TEL TO L119-UNIT-TEL                  DTSCU119
00148          IF L119-REQ-CAPS-88                                      DTSCU119
00149              MOVE C119-FLD-SUPP-CAPS TO L119-UNIT-NAME-TITLE      DTSCU119
00150          ELSE                                                     DTSCU119
00151              MOVE C119-FLD-SUPP-MIXED TO L119-UNIT-NAME-TITLE     DTSCU119
00152      ELSE                                                         DTSCU119
00153      IF L119-REQ-RQC-TPL-88                                       DTSCU119
00154          MOVE C119-RQC-TPL-TEL TO L119-UNIT-TEL                   DTSCU119
00155          IF L119-REQ-CAPS-88                                      DTSCU119
00156              MOVE C119-RQC-TPL-CAPS TO L119-UNIT-NAME-TITLE       DTSCU119
00157          ELSE                                                     DTSCU119
00158              MOVE C119-RQC-TPL-MIXED TO L119-UNIT-NAME-TITLE      DTSCU119
00159      ELSE                                                         DTSCU119
00160      IF L119-REQ-FUTA-88                                          DTSCU119
00161          MOVE C119-FUTA-TEL TO L119-UNIT-TEL                      DTSCU119
00162          IF L119-REQ-CAPS-88                                      DTSCU119
00163              MOVE C119-FUTA-CAPS TO L119-UNIT-NAME-TITLE          DTSCU119
00164          ELSE                                                     DTSCU119
00165              MOVE C119-FUTA-MIXED TO L119-UNIT-NAME-TITLE         DTSCU119
00166      ELSE                                                         DTSCU119
00167          GO TO S899-ABEND.                                        DTSCU119
00168      SKIP2                                                        DTSCU119
00169      EXEC CICS                                                    DTSCU119
00170          RETURN                                                   DTSCU119
00171      END-EXEC.                                                    DTSCU119
00172      SKIP2                                                        DTSCU119
00173      GOBACK.                                                      DTSCU119
00174      EJECT                                                        DTSCU119
00175  S899-ABEND.                                                      DTSCU119
00176                                                                   DTSCU119
00177      EXEC CICS                                                    DTSCU119
00178          ABEND                                                    DTSCU119
00179              ABCODE (WRK-ABEND-CODE)                              DTSCU119
00180      END-EXEC.                                                    DTSCU119
00181                                                                   DTSCU119
00182  S899-EXIT.                                                       DTSCU119
00183      EXIT.                                                        DTSCU119
