00001  IDENTIFICATION DIVISION.                                         09/25/02
00002  PROGRAM-ID.             DTSBE712.                                DTSBE712
00003  AUTHOR.                 TRICOASTAL CONSULTING LTD.                  LV023
00004  DATE-WRITTEN.           SEPTEMBER 1994.                          DTSBE712
00005  DATE-COMPILED.                                                   DTSBE712
00006      SKIP3                                                        DTSBE712
00007 *****                                                             DTSBE712
00008 *                                                                 DTSBE712
00009 *    FUNCTION:  REQUEST FOR FEDERAL ID LETTER.                    DTSBE712
00010 *                                                                 DTSBE712
00011 *                                                                 DTSBE712
00012 *    MODIFICATION LOG:                                            DTSBE712
00013 *                                                                 DTSBE712
00014 *    02/25/99  MODIFIED TO MEET DUTAS PROGRAM SPECIFICATIONS.     DTSBE712
00015 *              WORK ORDER:                      PROGRAMMER: DVS   DTSBE712
00016 *                                                                 DTSBE712
00017 *    XX/XX/XX  XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX   DTSBE712
00018 *              XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX   DTSBE712
00019 *              WORK ORDER:                      PROGRAMMER: XXX   DTSBE712
00020 *                                                                 DTSBE712
00021 *                                                                 DTSBE712
00022 *  DESCRIPTION:                                                   DTSBE712
00023 *                                                                 DTSBE712
00024 *                                                                 DTSBE712
00025 *    INITIATION:                                                  DTSBE712
00026 *                                                                 DTSBE712
00027 *      SET LECM-MST-OPEN-READ-88 TO TRUE.                         DTSBE712
00028 *      SET LECM-REF-OPEN-READ-88 TO TRUE.                         DTSBE712
00029 *                                                                 DTSBE712
00030 *      EDIT AND DEFAULT PARAMETERS.  SEE PRINTED OUTPUT,          DTSBE712
00031 *      DESCRIPTION AND LAYOUTS (71241).                           DTSBE712
00032 *                                                                 DTSBE712
00033 *    PROCESSING:                                                  DTSBE712
00034 *                                                                 DTSBE712
00035 *      SEE PRINTED OUTPUTS DESCRIPTION AND LAYOUTS (712R1).       DTSBE712
00036 *                                                                 DTSBE712
00037 *                                                                 DTSBE712
00038 *    TERMINATION:                                                 DTSBE712
00039 *                                                                 DTSBE712
00040 *      NONE.                                                      DTSBE712
00041 *                                                                 DTSBE712
00042 *                                                                 DTSBE712
00043 *    RECORDS READ:                                                DTSBE712
00044 *                                                                 DTSBE712
00045 *      MASTER:                                                    DTSBE712
00046 *                                                                 DTSBE712
00047 *        MSOL                                                     DTSBE712
00048 *                                                                 DTSBE712
00049 *                                                                 DTSBE712
00050 *      ALTERNATE INDEX:                                           DTSBE712
00051 *                                                                 DTSBE712
00052 *        NONE.                                                    DTSBE712
00053 *                                                                 DTSBE712
00054 *                                                                 DTSBE712
00055 *      REFERENCE:                                                 DTSBE712
00056 *                                                                 DTSBE712
00057 *        NONE.                                                    DTSBE712
00058 *                                                                 DTSBE712
00059 *                                                                 DTSBE712
00060 *    RECORDS UPDATED:                                             DTSBE712
00061 *                                                                 DTSBE712
00062 *        NONE.                                                    DTSBE712
00063 *                                                                 DTSBE712
00064 *                                                                 DTSBE712
00065 *    REPORT RECORDS WRITTEN:                                      DTSBE712
00066 *                                                                 DTSBE712
00067 *        R712 REQUEST FOR FEDERAL ID LETTER.                      DTSBE712
00068 *                                                                 DTSBE712
00069 *                                                                 DTSBE712
00070 *    BATCH TRANSACTION COLLECTION RECORDS WRITTEN:                DTSBE712
00071 *                                                                 DTSBE712
00072 *        NONE.                                                    DTSBE712
00073 *                                                                 DTSBE712
00074 *                                                                 DTSBE712
00075 *    MODULES CALLED:                                              DTSBE712
00076 *                                                                 DTSBE712
00077 *        DTSBU082  OPERATOR ID EDIT/LOOKUP.                       DTSBE712
00078 *        DTSBU111  ADDRESS LOOKUP.                                DTSBE712
00079 *        DTSBU112  ADDRESS FORMAT.                                DTSBE712
00080 *        DTSBU910  MASTER FILE I/O DRIVER.                        DTSBE712
00081 *        DTSBU946  VARIABLE LENGTH RECORDS SEQUENTIAL OUTPUT 1.   DTSBE712
00082 *                                                                 DTSBE712
00083 *                                                                 DTSBE712
00084 *    VERMONT REFERENCE:                                           DTSBE712
00085 *                                                                 DTSBE712
00086 *        TXBE306                                                  DTSBE712
00087 *                                                                 DTSBE712
00088 *****                                                             DTSBE712
00089      SKIP3                                                        DTSBE712
00090  ENVIRONMENT DIVISION.                                            DTSBE712
00091      EJECT                                                        DTSBE712
00092  DATA DIVISION.                                                   DTSBE712
00093      SKIP3                                                        DTSBE712
00094  WORKING-STORAGE SECTION.                                         DTSBE712
000945 77  PAN-VALET PICTURE X(24) VALUE '023DTSBE712  09/25/02'.       DTSBE712
00095      SKIP3                                                        DTSBE712
00096  01  WRK-AREA.                                                    DTSBE712
00097      05  WRK-ABEND-CD                PIC S9(04)  COMP  VALUE +712.DTSBE712
00098      SKIP1                                                        DTSBE712
00099      05  WRK-MOD-NAME                PIC  X(08)  VALUE 'DTSBE712'.DTSBE712
00100      SKIP3                                                        DTSBE712
00101      05  ABEND-MSG                       PIC  X(60).              DTSBE712
00102      SKIP3                                                        DTSBE712
00103      05  WRK-PARM-RESP-OP-ID         PIC  X(08).                  DTSBE712
00104                                                                   DTSBE712
00105      05  WRK-PARM-MSOL-CUTOFF-DATE   PIC S9(09)  COMP-3.          DTSBE712
00106      SKIP3                                                        DTSBE712
00107      05  MSOL-WITHIN-CUTOFF-IND      PIC  X(01).                  DTSBE712
00108          88  MSOL-WITHIN-CUTOFF-88                VALUE 'Y'.      DTSBE712
00109          88  MSOL-NOT-WITHIN-CUTOFF-88            VALUE 'N'.      DTSBE712
00110                                                                   DTSBE712
00111      05  WRK-EDIT-STATUS-IND             PIC X(01).               DTSBE712
00112          88  WRK-EDIT-PASSED-88                VALUE 'Y'.         DTSBE712
00113          88  WRK-EDIT-FAILED-88                VALUE 'N'.         DTSBE712
00114                                                                   DTSBE712
00115      EJECT                                                        DTSBE712
00116  01  L001-LINK-AREA.                                              DTSBE712
00117  ++INCLUDE DTSIL001                                               DTSBE712
00118      SKIP3                                                        DTSBE712
00119  01  L082-LINK-AREA.                                              DTSBE712
00120  ++INCLUDE DTSIL082                                               DTSBE712
00121      SKIP3                                                        DTSBE712
00122  01  L111-LINK-AREA.                                              DTSBE712
00123  ++INCLUDE DTSIL111                                               DTSBE712
00124      SKIP3                                                        DTSBE712
00125  01  L112-LINK-AREA.                                              DTSBE712
00126  ++INCLUDE DTSIL112                                               DTSBE712
00127      EJECT                                                        DTSBE712
00128  01  L910-LINK-AREA.                                              DTSBE712
00129  ++INCLUDE DTSIL910                                               DTSBE712
00130      SKIP3                                                        DTSBE712
00131  01  MSKL-REC.                                                    DTSBE712
00132  ++INCLUDE DTSIMSKL                                               DTSBE712
00133      SKIP3                                                        DTSBE712
00134  01  MSOL-REC.                                                    DTSBE712
00135  ++INCLUDE DTSIMSOL                                               DTSBE712
00136      EJECT                                                        DTSBE712
00137  01  R712-REC.                                                    DTSBE712
00138  ++INCLUDE DTSIR712                                               DTSBE712
00139      EJECT                                                        DTSBE712
00140  LINKAGE SECTION.                                                 DTSBE712
00141      SKIP3                                                        DTSBE712
00142  01  LECM-LINK-AREA.                                              DTSBE712
00143  ++INCLUDE DTSILECM                                               DTSBE712
00144          10  FILLER REDEFINES LECM-EXTRACT-PARMS.                 DTSBE712
00145              15  LECM-PARM-RESP-OP-ID         PIC  X(08).         DTSBE712
00146              15  FILLER                       PIC  X(01).         DTSBE712
00147              15  LECM-PARM-MSOL-CUTOFF-DATE   PIC  X(06).         DTSBE712
00148              15  FILLER                       PIC  X(51).         DTSBE712
00149      EJECT                                                        DTSBE712
00150  01  MPRF-LINK-REC.                                               DTSBE712
00151  ++INCLUDE DTSIMPRF                                               DTSBE712
00152      EJECT                                                        DTSBE712
00153  PROCEDURE DIVISION USING LECM-LINK-AREA                          DTSBE712
00154                           MPRF-LINK-REC.                          DTSBE712
00155      SKIP2                                                        DTSBE712
00156      MOVE LENGTH OF R712-REC TO R712-LENGTH.                      DTSBE712
00157      MOVE '712'  TO R712-REC-TYPE.                                DTSBE712
00158      EVALUATE TRUE                                                DTSBE712
00159      WHEN LECM-PROCESS-88                                         DTSBE712
00160          PERFORM P0000-PROCESS THRU P0000-EXIT                    DTSBE712
00161                                                                   DTSBE712
00162      WHEN LECM-INITIALIZE-88                                      DTSBE712
00163          SET WRK-EDIT-PASSED-88 TO TRUE                           DTSBE712
00164          PERFORM I0000-INITIALIZE THRU I0000-EXIT                 DTSBE712
00165          IF WRK-EDIT-FAILED-88                                    DTSBE712
00166             PERFORM S999-ABEND THRU S999-EXIT                     DTSBE712
00167      END-IF                                                       DTSBE712
00168                                                                   DTSBE712
00169      WHEN LECM-TERMINATE-88                                       DTSBE712
00170          PERFORM T0000-TERMINATE THRU T0000-EXIT                  DTSBE712
00171                                                                   DTSBE712
00172      WHEN OTHER                                                   DTSBE712
00173          MOVE 'INVALID LECM-CALL-TYPE-IND ENCOUNTERED'            DTSBE712
00174            TO ABEND-MSG                                           DTSBE712
00175          PERFORM S999-ABEND THRU S999-EXIT.                       DTSBE712
00176      GOBACK.                                                      DTSBE712
00177      EJECT                                                        DTSBE712
00178  I0000-INITIALIZE.                                                DTSBE712
00179      SKIP2                                                        DTSBE712
00180      MOVE LECM-TRACE-IND TO L910-TRACE-IND.                       DTSBE712
00181      MOVE WRK-MOD-NAME TO L910-MOD-NAME.                          DTSBE712
00182                                                                   DTSBE712
00183      PERFORM I1000-EDIT-AND-DEFAULT-PARMS THRU I1000-EXIT.        DTSBE712
00184                                                                   DTSBE712
00185      SET LECM-MST-OPEN-READ-88 TO TRUE.                           DTSBE712
00186      SET LECM-REF-OPEN-READ-88 TO TRUE.                           DTSBE712
00187      SKIP2                                                        DTSBE712
00188  I0000-EXIT.                                                      DTSBE712
00189      EXIT.                                                        DTSBE712
00190  ++INCLUDE OJRPE712                                               DTSBE712
00191      SKIP3                                                        DTSBE712
00192 ***************************************************************   DTSBE712
00193 *  THIS IS THE PROCESS PARAGRAPH FOR THE FEDEAL ID LETTERS.       DTSBE712
00194 ***************************************************************   DTSBE712
00195                                                                   DTSBE712
00196  P0000-PROCESS.                                                   DTSBE712
00197                                                                   DTSBE712
00198      IF MPRF-STATUS-ACT-88                                        DTSBE712
00199          NEXT SENTENCE                                            DTSBE712
00200      ELSE                                                         DTSBE712
00201          GO TO P0000-EXIT.                                        DTSBE712
00202                                                                   DTSBE712
00203      IF MPRF-FEIN = +0                                            DTSBE712
00204          NEXT SENTENCE                                            DTSBE712
00205      ELSE                                                         DTSBE712
00206          GO TO P0000-EXIT.                                        DTSBE712
00207                                                                   DTSBE712
00208      IF MPRF-FEIN-HARASS-YES-88                                   DTSBE712
00209          NEXT SENTENCE                                            DTSBE712
00210      ELSE                                                         DTSBE712
00211          GO TO P0000-EXIT.                                        DTSBE712
00212      MOVE LOW-VALUES                TO  MSOL-KEY-AREA.            DTSBE712
00213      SET MSOL-SOL-88                TO  TRUE.                     DTSBE712
00214      MOVE MPRF-EMP-NO               TO  MSOL-EMP-NO.              DTSBE712
00215      MOVE MSOL-KEY-AREA             TO  MSKL-KEY-AREA.            DTSBE712
00216      SET MSOL-NOT-WITHIN-CUTOFF-88  TO  TRUE.                     DTSBE712
00217                                                                   DTSBE712
00218      PERFORM S910-START-BROWSE  THRU  S910-EXIT.                  DTSBE712
00219                                                                   DTSBE712
00220      PERFORM P1000-SCAN-MSOL  THRU  P1000-EXIT                    DTSBE712
00221          UNTIL L910-NO-REC-88   OR                                DTSBE712
00222                MSOL-WITHIN-CUTOFF-88.                             DTSBE712
00223                                                                   DTSBE712
00224       IF MSOL-NOT-WITHIN-CUTOFF-88                                DTSBE712
00225           PERFORM P2000-SETUP-R712  THRU  P2000-EXIT.             DTSBE712
00226                                                                   DTSBE712
00227  P0000-EXIT.                                                      DTSBE712
00228      EXIT.                                                        DTSBE712
00229      EJECT                                                        DTSBE712
00230 ***************************************************************   DTSBE712
00231 *    THIS PARAGRAPH SCANS THE MSOL RECORDS.                       DTSBE712
00232 ***************************************************************   DTSBE712
00233                                                                   DTSBE712
00234  P1000-SCAN-MSOL.                                                 DTSBE712
00235                                                                   DTSBE712
00236      MOVE MSKL-REC                  TO  MSOL-REC.                 DTSBE712
00237                                                                   DTSBE712
00238      IF MSOL-LIAB-MAIL-DATE LESS THAN  WRK-PARM-MSOL-CUTOFF-DATE  DTSBE712
00239          NEXT SENTENCE                                            DTSBE712
00240      ELSE                                                         DTSBE712
00241          SET MSOL-WITHIN-CUTOFF-88  TO  TRUE                      DTSBE712
00242          GO TO P1000-EXIT.                                        DTSBE712
00243                                                                   DTSBE712
00244      PERFORM S910-READ-NEXT  THRU  S910-EXIT.                     DTSBE712
00245                                                                   DTSBE712
00246  P1000-EXIT.                                                      DTSBE712
00247      EXIT.                                                        DTSBE712
00248      EJECT                                                        DTSBE712
00249 ***************************************************************   DTSBE712
00250 *    THIS PARAGRAPH WILL SETUP THE R712 EXTRACT RECORDS.          DTSBE712
00251 ***************************************************************   DTSBE712
00252                                                                   DTSBE712
00253  P2000-SETUP-R712.                                                DTSBE712
00254                                                                   DTSBE712
00255      MOVE MSOL-EMP-NO              TO  R712-EMP-NO                DTSBE712
00256                                                                   DTSBE712
00257      PERFORM P2100-LOOKUP-ADDR   THRU  P2100-EXIT                 DTSBE712
00258                                                                   DTSBE712
00259      IF L111-ADDR-FOUND-88                                        DTSBE712
00260          MOVE WRK-PARM-RESP-OP-ID  TO  R712-OP-ID                 DTSBE712
00261          MOVE LECM-PRIOR-MAIL-DATE TO  R712-MAIL-DATE             DTSBE712
00262          PERFORM S946-WRITE-R712 THRU  S946-EXIT.                 DTSBE712
00263                                                                   DTSBE712
00264  P2000-EXIT.                                                      DTSBE712
00265      EXIT.                                                        DTSBE712
00266      EJECT                                                        DTSBE712
00267 ***************************************************************   DTSBE712
00268 *    THIS PARAGRAPH WILL LOOK UP THE TAX ADDRESS.                 DTSBE712
00269 ***************************************************************   DTSBE712
00270                                                                   DTSBE712
00271  P2100-LOOKUP-ADDR.                                               DTSBE712
00272                                                                   DTSBE712
00273      MOVE MPRF-EMP-NO             TO  L111-EMP-NO.                DTSBE712
00274                                                                   DTSBE712
00275      SET L111-LOOKUP-TAD-88 TO TRUE.                              DTSBE712
00276                                                                   DTSBE712
00277      SET L111-ID-NO-TAD-MAIL-88 TO TRUE.                          DTSBE712
00278                                                                   DTSBE712
00279      PERFORM S111-LOOKUP-ADDR  THRU  S111-EXIT.                   DTSBE712
00280                                                                   DTSBE712
00281      IF L111-ADDR-FOUND-88                                        DTSBE712
00282          PERFORM P2110-FORMAT-ADDR  THRU  P2110-EXIT              DTSBE712
00283        ELSE                                                       DTSBE712
00284            MOVE ALL '?' TO L112-NAME-ADDRESS-AREA.                DTSBE712
00285                                                                   DTSBE712
00286      MOVE L112-MAILING-ADDRESS    TO  R712-FMT-ADDR.              DTSBE712
00287      MOVE L112-ZIP                TO  R712-ZIP.                   DTSBE712
00288      MOVE L112-ADVANCED-BARCODE   TO  R712-ADVANCED-BARCODE.      DTSBE712
00289                                                                   DTSBE712
00290  P2100-EXIT.                                                      DTSBE712
00291      EXIT.                                                        DTSBE712
00292      SKIP3                                                        DTSBE712
00293 ***************************************************************   DTSBE712
00294 *    THIS PARAGRAPH WILL FORMAT THE TAX ADDRESS.                  DTSBE712
00295 ***************************************************************   DTSBE712
00296                                                                   DTSBE712
00297  P2110-FORMAT-ADDR.                                               DTSBE712
00298                                                                   DTSBE712
00299      SET L112-TAD-ADDR-88         TO  TRUE.                       DTSBE712
00300      SET L112-ANCHOR-LAST-88      TO  TRUE.                       DTSBE712
00301      MOVE MPRF-PRIMARY-NAME       TO  L112-PRIMARY-NAME           DTSBE712
00302      MOVE L111-RETURN-AREA        TO  L112-NAME-ADDRESS-AREA.     DTSBE712
00303                                                                   DTSBE712
00304      PERFORM S112-FORMAT-ADDR  THRU  S112-EXIT.                   DTSBE712
00305                                                                   DTSBE712
00306                                                                   DTSBE712
00307  P2110-EXIT.                                                      DTSBE712
00308      EXIT.                                                        DTSBE712
00309      EJECT                                                        DTSBE712
00310  T0000-TERMINATE.                                                 DTSBE712
00311      SKIP2                                                        DTSBE712
00312      SKIP2                                                        DTSBE712
00313  T0000-EXIT.                                                      DTSBE712
00314      EXIT.                                                        DTSBE712
00315      EJECT                                                        DTSBE712
00316  S001-FROM-FED-8.                                                 DTSBE712
00317      SET L001-FROM-FED-8 TO TRUE.                                 DTSBE712
00318      GO TO S001-DATE.                                             DTSBE712
00319      SKIP1                                                        DTSBE712
00320  S001-FROM-ABS-DAY.                                               DTSBE712
00321      SET L001-FROM-ABS-DAY TO TRUE.                               DTSBE712
00322      GO TO S001-DATE.                                             DTSBE712
00323      SKIP1                                                        DTSBE712
00324  S001-FROM-CAL-6.                                                 DTSBE712
00325      SET L001-FROM-CAL-6 TO TRUE.                                 DTSBE712
00326      GO TO S001-DATE.                                             DTSBE712
00327      SKIP1                                                        DTSBE712
00328  S001-DATE.                                                       DTSBE712
00329      CALL 'DTSBU001' USING L001-LINK-AREA.                        DTSBE712
00330  S001-EXIT.                                                       DTSBE712
00331      EXIT.                                                        DTSBE712
00332      SKIP3                                                        DTSBE712
00333  S082-LOOKUP-OP-ID.                                               DTSBE712
00334      CALL 'DTSBU082' USING L082-LINK-AREA.                        DTSBE712
00335  S082-EXIT.                                                       DTSBE712
00336      EXIT.                                                        DTSBE712
00337      SKIP3                                                        DTSBE712
00338  S111-LOOKUP-ADDR.                                                DTSBE712
00339      CALL 'DTSBU111' USING L111-LINK-AREA.                        DTSBE712
00340  S111-EXIT.                                                       DTSBE712
00341      EXIT.                                                        DTSBE712
00342      SKIP3                                                        DTSBE712
00343  S112-FORMAT-ADDR.                                                DTSBE712
00344      CALL 'DTSBU112' USING L112-LINK-AREA.                        DTSBE712
00345  S112-EXIT.                                                       DTSBE712
00346      EXIT.                                                        DTSBE712
00347      SKIP3                                                        DTSBE712
00348  S910-READ.                                                       DTSBE712
00349      SET L910-READ-88 TO TRUE.                                    DTSBE712
00350      GO TO S910-MSTR-IO.                                          DTSBE712
00351      SKIP1                                                        DTSBE712
00352  S910-START-BROWSE.                                               DTSBE712
00353      SET L910-START-BROWSE-88 TO TRUE.                            DTSBE712
00354      GO TO S910-MSTR-IO.                                          DTSBE712
00355      SKIP1                                                        DTSBE712
00356  S910-READ-NEXT.                                                  DTSBE712
00357      SET L910-READ-NEXT-88 TO TRUE.                               DTSBE712
00358      GO TO S910-MSTR-IO.                                          DTSBE712
00359      SKIP1                                                        DTSBE712
00360  S910-COUNT.                                                      DTSBE712
00361      SET L910-COUNT-88 TO TRUE.                                   DTSBE712
00362      GO TO S910-MSTR-IO.                                          DTSBE712
00363      SKIP1                                                        DTSBE712
00364  S910-MSTR-IO.                                                    DTSBE712
00365      CALL 'DTSBU910' USING L910-LINK-AREA                         DTSBE712
00366                            MSKL-REC.                              DTSBE712
00367  S910-EXIT.                                                       DTSBE712
00368      EXIT.                                                        DTSBE712
00369      SKIP3                                                        DTSBE712
00370  S946-WRITE-R712.                                                 DTSBE712
00371      CALL 'DTSBU946' USING R712-REC.                              DTSBE712
00372      GO TO S946-EXIT.                                             DTSBE712
00373      SKIP1                                                        DTSBE712
00374  S946-EXIT.                                                       DTSBE712
00375      EXIT.                                                        DTSBE712
00376      SKIP3                                                        DTSBE712
00377  S999-ABEND.                                                      DTSBE712
00378      DISPLAY '*** DTSBE712 ABENDING.  '                           DTSBE712
00379              ABEND-MSG.                                           DTSBE712
00380      SKIP1                                                        DTSBE712
00381      CALL 'DTSBU999' USING WRK-ABEND-CD.                          DTSBE712
00382  S999-EXIT.                                                       DTSBE712
00383      EXIT.                                                        DTSBE712
