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