00001  IDENTIFICATION DIVISION.                                         06/27/01
00002  PROGRAM-ID.             DTSBR903.                                DTSBR903
00003  AUTHOR.                 D.SHEPPERSON                                LV055
00004  DATE-WRITTEN.           JULY 1999.                               DTSBR903
00005  DATE-COMPILED.                                                   DTSBR903
00006      SKIP3                                                        DTSBR903
00007 *****                                                             DTSBR903
00008 *                                                                 DTSBR903
00009 *    CALLING SEQUENCE:  DTSCS76  CREATES DTSIR903 RECORDS.        DTSBR903
00010 *                       DTSBD400 CALLS DTSBR903                   DTSBR903
00011 *                       WHICH PRODUCES THE FEDERAL ID LETTER.     DTSBR903
00012 *                                                                 DTSBR903
00013 *    FUNCTION:  REQUEST FOR FEDERAL ID LETTER                     DTSBR903
00014 *                                                                 DTSBR903
00015 *                                                                 DTSBR903
00016 *    MODIFICATION HISTORY:                                        DTSBR903
00017 *                                                                 DTSBR903
00018 * 08-04-1999 INITIAL DEVELOPMENT.                                 DTSBR903
00019 *            REFERENCE RFP #RAP           AUTHOR OF CHANGE - DVS  DTSBR903
00020 *                                                                 DTSBR903
00021 * MM-DD-YYYY XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX  DTSBR903
00022 *            XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX  DTSBR903
00023 *            REFERENCE RFP #****          AUTHOR OF CHANGE - XXX  DTSBR903
00024 *                                                                 DTSBR903
00025 *                                                                 DTSBR903
00026 *    DESCRIPTION:                                                 DTSBR903
00027 *                                                                 DTSBR903
00028 *        THIS MODULE GENERATES LETTERS TO BE SENT TO EMPLOYERS    DTSBR903
00029 *        FEQUESTING THEIR FEDERAL IDENTIFICATION NUMBER (FEIN).   DTSBR903
00030 *                                                                 DTSBR903
00031 *                                                                 DTSBR903
00032 *    RECORDS READ:                                                DTSBR903
00033 *                                                                 DTSBR903
00034 *        NONE.                                                    DTSBR903
00035 *                                                                 DTSBR903
00036 *                                                                 DTSBR903
00037 *    PRINTED OUTPUTS:                                             DTSBR903
00038 *                                                                 DTSBR903
00039 *        903R1  REQUEST FOR FEDERAL ID LETTER                     DTSBR903
00040 *                                                                 DTSBR903
00041 *                                                                 DTSBR903
00042 *    RECORDS WRITTEN:                                             DTSBR903
00043 *                                                                 DTSBR903
00044 *        NONE.                                                    DTSBR903
00045 *                                                                 DTSBR903
00046 *                                                                 DTSBR903
00047 *    MODULES CALLED:                                              DTSBR903
00048 *                                                                 DTSBR903
00049 *                                                                 DTSBR903
00050 *                                                                 DTSBR903
00051 *****                                                             DTSBR903
00052      EJECT                                                        DTSBR903
00053  ENVIRONMENT DIVISION.                                            DTSBR903
00054      SKIP2                                                        DTSBR903
00055  CONFIGURATION  SECTION.                                          DTSBR903
00056  SPECIAL-NAMES. C01 IS TOP-OF-PAGE.                               DTSBR903
00057  INPUT-OUTPUT SECTION.                                            DTSBR903
00058      SKIP1                                                        DTSBR903
00059  FILE-CONTROL.                                                    DTSBR903
00060      SELECT PRT-FILE ASSIGN TO RPT903R1.                          DTSBR903
00061      SKIP3                                                        DTSBR903
00062  DATA DIVISION.                                                   DTSBR903
00063      SKIP3                                                        DTSBR903
00064  FILE SECTION.                                                    DTSBR903
00065      SKIP2                                                        DTSBR903
00066  FD  PRT-FILE                                                     DTSBR903
00067      LABEL RECORDS ARE OMITTED                                    DTSBR903
00068      RECORD CONTAINS 82 CHARACTERS                                DTSBR903
00069      DATA RECORD IS UC643-FORM.                                   DTSBR903
00070  01  UC643-FORM             PIC X(082).                           DTSBR903
00071                                                                   DTSBR903
00072      EJECT                                                        DTSBR903
00073  WORKING-STORAGE SECTION.                                         DTSBR903
000735 77  PAN-VALET PICTURE X(24) VALUE '055DTSBR903  06/27/01'.       DTSBR903
00074      SKIP3                                                        DTSBR903
00075  01  WRK-AREA.                                                    DTSBR903
00076      05  WRK-ABEND-CD                PIC S9(04)  COMP  VALUE +903.DTSBR903
00077      05  FIRST-TIME-IND              PIC  X(01)  VALUE 'Y'.       DTSBR903
00078      05  BLANK-LINE                  PIC  X(82)  VALUE SPACES.    DTSBR903
00079      05  WS-EMP-NUM.                                              DTSBR903
00080          07  FILLER                      PIC  X(15) VALUE SPACES. DTSBR903
00081          07  WS-EMP-NO                   PIC  999B999.            DTSBR903
00082          07  FILLER                      PIC  X(18) VALUE SPACES. DTSBR903
00083      SKIP1                                                        DTSBR903
00084      05  WS-R903-FMT-ADDR.                                        DTSBR903
00085          10 R903-FMT-ADDR-1          PIC X(40)  VALUE SPACES.     DTSBR903
00086          10 R903-FMT-ADDR-2          PIC X(40)  VALUE SPACES.     DTSBR903
00087          10 R903-FMT-ADDR-3          PIC X(40)  VALUE SPACES.     DTSBR903
00088          10 R903-FMT-ADDR-4          PIC X(40)  VALUE SPACES.     DTSBR903
00089          10 R903-FMT-ADDR-5          PIC X(40)  VALUE SPACES.     DTSBR903
00090      EJECT                                                        DTSBR903
00091  01  L009-LINK-AREA.                                              DTSBR903
00092  ++INCLUDE DTSIL009                                               DTSBR903
00093      EJECT                                                        DTSBR903
00094  01  L071-LINK-AREA.                                              DTSBR903
00095  ++INCLUDE DTSIL071                                               DTSBR903
00096      EJECT                                                        DTSBR903
00097  01  L082-LINK-AREA.                                              DTSBR903
00098  ++INCLUDE DTSIL082                                               DTSBR903
00099      EJECT                                                        DTSBR903
00100  ++INCLUDE DTSXL903                                               DTSBR903
00101      EJECT                                                        DTSBR903
00102  LINKAGE SECTION.                                                 DTSBR903
00103      SKIP3                                                        DTSBR903
00104  01  LRCM-LINK-AREA.                                              DTSBR903
00105  ++INCLUDE DTSILRCM                                               DTSBR903
00106      EJECT                                                        DTSBR903
00107  01  R903-REC.                                                    DTSBR903
00108  ++INCLUDE DTSIR903                                               DTSBR903
00109      EJECT                                                        DTSBR903
00110  PROCEDURE DIVISION USING LRCM-LINK-AREA                          DTSBR903
00111                           R903-REC.                               DTSBR903
00112      SKIP2                                                        DTSBR903
00113      IF FIRST-TIME-IND = 'Y'                                      DTSBR903
00114          PERFORM I1000-INITIATE THRU I1000-EXIT                   DTSBR903
00115          MOVE 'N' TO FIRST-TIME-IND.                              DTSBR903
00116      SKIP1                                                        DTSBR903
00117      IF LRCM-EOR-88                                               DTSBR903
00118          PERFORM T1000-TERMINATE THRU T1000-EXIT                  DTSBR903
00119      ELSE                                                         DTSBR903
00120          PERFORM P1000-PROCESS THRU P1000-EXIT.                   DTSBR903
00121      SKIP2                                                        DTSBR903
00122      GOBACK.                                                      DTSBR903
00123      EJECT                                                        DTSBR903
00124  I1000-INITIATE.                                                  DTSBR903
00125      SKIP1                                                        DTSBR903
00126      OPEN OUTPUT PRT-FILE.                                        DTSBR903
00127 *    WRITE UC643-FORM FROM XF-CA-CNTL-LIN0.                       DTSBR903
00128      WRITE UC643-FORM FROM BLANK-LINE AFTER ADVANCING PAGE.       DTSBR903
00129      WRITE UC643-FORM FROM LINE-13 AFTER ADVANCING 20 LINES.      DTSBR903
00130      WRITE UC643-FORM FROM LINE-14 AFTER ADVANCING 1 LINE.        DTSBR903
00131      WRITE UC643-FORM FROM LINE-15 AFTER ADVANCING 1 LINE.        DTSBR903
00132      WRITE UC643-FORM FROM LINE-16 AFTER ADVANCING 1 LINE.        DTSBR903
00133      WRITE UC643-FORM FROM LINE-17 AFTER ADVANCING 1 LINE.        DTSBR903
00134      WRITE UC643-FORM FROM XF-CA-CNTL-LINE.                       DTSBR903
00135      SKIP2                                                        DTSBR903
00136  I1000-EXIT.                                                      DTSBR903
00137      EXIT.                                                        DTSBR903
00138      EJECT                                                        DTSBR903
00139  P1000-PROCESS.                                                   DTSBR903
00140      SKIP1                                                        DTSBR903
00141      MOVE R903-EMP-NO  TO WS-EMP-NO.                              DTSBR903
00142                                                                   DTSBR903
00143      PERFORM P2000-GENERATE-UC643-FORM THRU P2000-EXIT.           DTSBR903
00144      SKIP2                                                        DTSBR903
00145  P1000-EXIT.                                                      DTSBR903
00146      EXIT.                                                        DTSBR903
00147      EJECT                                                        DTSBR903
00148  P2000-GENERATE-UC643-FORM.                                       DTSBR903
00149      MOVE  R903-FMT-ADDR  TO WS-R903-FMT-ADDR.                    DTSBR903
00150 **>                                                               DTSBR903
00151 **   WRITE UC643-FORM FROM X1-CA-CNTL-LINE.                       DTSBR903
00152      WRITE UC643-FORM FROM X2-CA-CNTL-LINE.                       DTSBR903
00153      WRITE UC643-FORM FROM X3-CA-CNTL-LINE.                       DTSBR903
00154                                                                   DTSBR903
00155      MOVE SPACES TO UC643-FORM   VSCA-DATA.                       DTSBR903
00156      WRITE UC643-FORM   FROM VSCA-ADDR-LINE AFTER TOP-OF-PAGE.    DTSBR903
00157      PERFORM S060-FORM  THRU S060-EXIT 35 TIMES.                  DTSBR903
00158                                                                   DTSBR903
00159      MOVE R903-FMT-ADDR-1 TO PRT1.                                DTSBR903
00160      PERFORM S060-FORM  THRU S060-EXIT.                           DTSBR903
00161                                                                   DTSBR903
00162      IF  R903-FMT-ADDR-2   NOT = SPACES                           DTSBR903
00163          MOVE  R903-FMT-ADDR-2 TO PRT1                            DTSBR903
00164          PERFORM S060-FORM THRU S060-EXIT.                        DTSBR903
00165                                                                   DTSBR903
00166      IF  R903-FMT-ADDR-3   NOT = SPACES                           DTSBR903
00167          MOVE  R903-FMT-ADDR-3 TO PRT1                            DTSBR903
00168          PERFORM S060-FORM THRU S060-EXIT.                        DTSBR903
00169                                                                   DTSBR903
00170      IF  R903-FMT-ADDR-4   NOT = SPACES                           DTSBR903
00171          MOVE  R903-FMT-ADDR-4 TO PRT1                            DTSBR903
00172          PERFORM S060-FORM THRU S060-EXIT.                        DTSBR903
00173                                                                   DTSBR903
00174          MOVE WS-EMP-NUM     TO PRT2.                             DTSBR903
00175      IF  R903-FMT-ADDR-5   NOT = SPACES                           DTSBR903
00176          MOVE  R903-FMT-ADDR-5 TO PRT1                            DTSBR903
00177          PERFORM S060-FORM THRU S060-EXIT.                        DTSBR903
00178                                                                   DTSBR903
00179                                                                   DTSBR903
00180 ******************************************************************DTSBR903
00181 *   THIS AREA WILL MOVE THE ADDRESS FOR LETTER                    DTSBR903
00182 ******************************************************************DTSBR903
00183      WRITE UC643-FORM   FROM VSCA-ADDR-LINE AFTER TOP-OF-PAGE.    DTSBR903
00184      PERFORM S060-FORM  THRU S060-EXIT 16 TIMES.                  DTSBR903
00185                                                                   DTSBR903
00186      MOVE R903-FMT-ADDR-1 TO PRT2.                                DTSBR903
00187      PERFORM S060-FORM  THRU S060-EXIT.                           DTSBR903
00188                                                                   DTSBR903
00189      IF  R903-FMT-ADDR-2   NOT = SPACES                           DTSBR903
00190          MOVE  R903-FMT-ADDR-2 TO PRT2                            DTSBR903
00191          PERFORM S060-FORM THRU S060-EXIT.                        DTSBR903
00192                                                                   DTSBR903
00193      IF  R903-FMT-ADDR-3   NOT = SPACES                           DTSBR903
00194          MOVE  R903-FMT-ADDR-3 TO PRT2                            DTSBR903
00195          PERFORM S060-FORM THRU S060-EXIT.                        DTSBR903
00196                                                                   DTSBR903
00197      IF  R903-FMT-ADDR-4   NOT = SPACES                           DTSBR903
00198          MOVE  R903-FMT-ADDR-4 TO PRT2                            DTSBR903
00199          PERFORM S060-FORM THRU S060-EXIT.                        DTSBR903
00200                                                                   DTSBR903
00201      IF  R903-FMT-ADDR-5   NOT = SPACES                           DTSBR903
00202          MOVE  R903-FMT-ADDR-5 TO PRT2                            DTSBR903
00203          PERFORM S060-FORM THRU S060-EXIT.                        DTSBR903
00204                                                                   DTSBR903
00205  P2000-EXIT.                                                      DTSBR903
00206      EXIT.                                                        DTSBR903
00207      EJECT                                                        DTSBR903
00208  T1000-TERMINATE.                                                 DTSBR903
00209      SKIP1                                                        DTSBR903
00210      WRITE UC643-FORM  FROM  X4-CA-END-LINE.                      DTSBR903
00211      CLOSE PRT-FILE.                                              DTSBR903
00212      SKIP2                                                        DTSBR903
00213  T1000-EXIT.                                                      DTSBR903
00214      EXIT.                                                        DTSBR903
00215      EJECT                                                        DTSBR903
00216  S060-FORM.                                                       DTSBR903
00217      WRITE UC643-FORM FROM VSCA-ADDR-LINE   AFTER  1.             DTSBR903
00218      MOVE  SPACES  TO  VSCA-DATA.                                 DTSBR903
00219  S060-EXIT. EXIT.                                                 DTSBR903
00220  S009-CONVERT-TO-CAPS.                                            DTSBR903
00221      SKIP1                                                        DTSBR903
00222      CALL 'DTSBU009' USING L009-LINK-AREA.                        DTSBR903
00223      SKIP2                                                        DTSBR903
00224  S009-EXIT.                                                       DTSBR903
00225      EXIT.                                                        DTSBR903
00226      SKIP3                                                        DTSBR903
00227  S071-DESLASH-NAME.                                               DTSBR903
00228      SKIP1                                                        DTSBR903
00229      CALL 'DTSBU071' USING L071-LINK-AREA.                        DTSBR903
00230      SKIP2                                                        DTSBR903
00231  S071-EXIT.                                                       DTSBR903
00232      EXIT.                                                        DTSBR903
00233      SKIP3                                                        DTSBR903
00234  S082-OP-ID-INFO.                                                 DTSBR903
00235      SKIP1                                                        DTSBR903
00236      CALL 'DTSBU082' USING L082-LINK-AREA.                        DTSBR903
00237      SKIP2                                                        DTSBR903
00238  S082-EXIT.                                                       DTSBR903
00239      EXIT.                                                        DTSBR903
00240      SKIP3                                                        DTSBR903
00241  S999-ABEND.                                                      DTSBR903
00242      SKIP1                                                        DTSBR903
00243      CALL 'DTSBU999' USING WRK-ABEND-CD.                          DTSBR903
00244      SKIP2                                                        DTSBR903
00245  S999-EXIT.                                                       DTSBR903
00246      EXIT.                                                        DTSBR903
