00001  IDENTIFICATION DIVISION.                                         09/14/05
00002  PROGRAM-ID.             DTSBR711.                                DTSBR711
00003  AUTHOR.                 TRW/TDS OUTSOURCES                          LV001
00004  DATE-WRITTEN.           JUNE 2000.                               DTSBR711
00005  DATE-COMPILED.                                                   DTSBR711
00006      SKIP3                                                        DTSBR711
00007 *****                                                             DTSBR711
00008 *                                                                 DTSBR711
00009 * CALLING SEQUENCE:  DTSBD800 CALLS                               DTSBR711
00010 *                    DTSBR711 READS DTSIR711 RECORDS.             DTSBR711
00011 *                                                                 DTSBR711
00012 *    FUNCTION:  FUTA CERTIFICATION.                               DTSBR711
00013 *                                                                 DTSBR711
00014 *                                                                 DTSBR711
00015 *    MODIFICATION HISTORY:                                        DTSBR711
00016 *                                                                 DTSBR711
00017 * 09-11-05 INITIAL DEVELOPMENT                                    DTSBR711
00018 *          REFERENCE RFP #RAP             AUTHOR OF CHANGE - ZL1  DTSBR711
00019 *                                                                 DTSBR711
00020 *                                                                 DTSBR711
00021 * MM-DD-YY XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX  DTSBR711
00022 *          XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX  DTSBR711
00023 *          REFERENCE RFP #****                   PROGRAMMER: XXX  DTSBR711
00024 *                                                                 DTSBR711
00025 *                                                                 DTSBR711
00026 *    DESCRIPTION:                                                 DTSBR711
00027 *                                                                 DTSBR711
00028 *        THIS MODULE PRINTS FUTA CERTIFICATIONS.                  DTSBR711
00029 *                                                                 DTSBR711
00030 *    RECORDS READ:                                                DTSBR711
00031 *                                                                 DTSBR711
00032 *        NONE.                                                    DTSBR711
00033 *                                                                 DTSBR711
00034 *                                                                 DTSBR711
00035 *    PRINTED OUTPUTS:                                             DTSBR711
00036 *                                                                 DTSBR711
00037 *        711R1  FUTA CERTIFICATION.                               DTSBR711
00038 *                                                                 DTSBR711
00039 *                                                                 DTSBR711
00040 *    RECORDS WRITTEN:                                             DTSBR711
00041 *                                                                 DTSBR711
00042 *        NONE.                                                    DTSBR711
00043 *                                                                 DTSBR711
00044 *                                                                 DTSBR711
00045 *    MODULES CALLED:                                              DTSBR711
00046 *                                                                 DTSBR711
00047 *        MACBU002  DATE ALPHA CONVERSION MODULE                   DTSBR711
00048 *        MACBU071  NAME EDIT/CONVERSION MODULE                    DTSBR711
00049 *        MACBU082  OPERATOR ID EDIT/LOOKUP MODULE                 DTSBR711
00050 *                                                                 DTSBR711
00051 *                                                                 DTSBR711
00052 *****                                                             DTSBR711
00053      EJECT                                                        DTSBR711
00054  ENVIRONMENT DIVISION.                                            DTSBR711
00055      SKIP2                                                        DTSBR711
00056  CONFIGURATION SECTION.                                           DTSBR711
00057  SPECIAL-NAMES. C01 IS TOP-OF-PAGE.                               DTSBR711
00058      SKIP1                                                        DTSBR711
00059  INPUT-OUTPUT SECTION.                                            DTSBR711
00060      SKIP1                                                        DTSBR711
00061  FILE-CONTROL.                                                    DTSBR711
00062      SELECT PRT-FILE  ASSIGN TO RPT711R1.                         DTSBR711
00063      SKIP3                                                        DTSBR711
00064  DATA DIVISION.                                                   DTSBR711
00065      SKIP3                                                        DTSBR711
00066  FILE SECTION.                                                    DTSBR711
00067      SKIP2                                                        DTSBR711
00068  FD  PRT-FILE                                                     DTSBR711
00069      RECORDING MODE IS F                                          DTSBR711
00070      BLOCK CONTAINS 0 RECORDS                                     DTSBR711
00071      LABEL RECORDS ARE OMITTED.                                   DTSBR711
00072  01  XEROX-REPORT.                                                DTSBR711
00073      05  FILLER                      PIC X(1).                    DTSBR711
00074      05  XEROX-RPT                   PIC X(132).                  DTSBR711
00075      EJECT                                                        DTSBR711
00076  WORKING-STORAGE SECTION.                                         DTSBR711
000765 77  PAN-VALET PICTURE X(24) VALUE '001DTSBR711  09/14/05'.       DTSBR711
00077      SKIP3                                                        DTSBR711
00078  01  WRK-AREA.                                                    DTSBR711
00079      05  WRK-ABEND-CD                PIC S9(04)  COMP  VALUE +711.DTSBR711
00080      05  PRINT-R711-CTR              PIC S9(04)  COMP  VALUE +0.  DTSBR711
00081      05  WRK-COPY                    PIC S9(01)  VALUE +0.        DTSBR711
00082      05  FIRST-TIME-IND              PIC  X(01)  VALUE 'Y'.       DTSBR711
00083      05  BLANK-LINE                  PIC  X(132) VALUE SPACES.    DTSBR711
00084                                                                   DTSBR711
00085  01  VSCA-LINE.                                                   DTSBR711
00086      05  VSCA-DATA                   PIC X(133) VALUE SPACES.     DTSBR711
00087                                                                   DTSBR711
00088      EJECT                                                        DTSBR711
00089  ++INCLUDE DTSXL711                                               DTSBR711
00090      SKIP3                                                        DTSBR711
00091  LINKAGE SECTION.                                                 DTSBR711
00092      SKIP3                                                        DTSBR711
00093  01  LRCM-LINK-AREA.                                              DTSBR711
00094  ++INCLUDE DTSILRCM                                               DTSBR711
00095      EJECT                                                        DTSBR711
00096  01  R711-REC.                                                    DTSBR711
00097  ++INCLUDE DTSIR711                                               DTSBR711
00098      EJECT                                                        DTSBR711
00099  PROCEDURE DIVISION USING LRCM-LINK-AREA                          DTSBR711
00100                           R711-REC.                               DTSBR711
00101      SKIP2                                                        DTSBR711
00102      IF FIRST-TIME-IND = 'Y'                                      DTSBR711
00103          PERFORM I1000-INITIATE THRU I1000-EXIT                   DTSBR711
00104          MOVE 'N' TO FIRST-TIME-IND.                              DTSBR711
00105      SKIP1                                                        DTSBR711
00106      IF LRCM-EOR-88                                               DTSBR711
00107          PERFORM T1000-TERMINATE THRU T1000-EXIT                  DTSBR711
00108      ELSE                                                         DTSBR711
00109          PERFORM P1000-PROCESS THRU P1000-EXIT.                   DTSBR711
00110      SKIP2                                                        DTSBR711
00111      GOBACK.                                                      DTSBR711
00112      EJECT                                                        DTSBR711
00113  I1000-INITIATE.                                                  DTSBR711
00114                                                                   DTSBR711
00115      OPEN OUTPUT PRT-FILE.                                        DTSBR711
00116      MOVE SPACES TO XEROX-REPORT.                                 DTSBR711
00117                                                                   DTSBR711
00118      WRITE XEROX-REPORT     FROM VSCA-LINE                        DTSBR711
00119          AFTER ADVANCING TOP-OF-PAGE.                             DTSBR711
00120      WRITE XEROX-REPORT     FROM VSCA-LINE AFTER ADVANCING 8.     DTSBR711
00121      WRITE XEROX-REPORT     FROM XEROX-CNTL-LINE.                 DTSBR711
00122                                                                   DTSBR711
00123  I1000-EXIT.                                                      DTSBR711
00124      EXIT.                                                        DTSBR711
00125      EJECT                                                        DTSBR711
00126  P1000-PROCESS.                                                   DTSBR711
00127      SKIP1                                                        DTSBR711
00128                                                                   DTSBR711
00129 ****** //////////// PRINT IRS COPY ///////////                    DTSBR711
00130                                                                   DTSBR711
00131      WRITE XEROX-REPORT FROM VSCA-LINE AFTER ADVANCING TOP-OF-PAGEDTSBR711
00132      WRITE XEROX-REPORT FROM VSCA-LINE AFTER ADVANCING 8 LINE.    DTSBR711
00133      MOVE 1 TO PRINT-R711-CTR                                     DTSBR711
00134      MOVE 1 TO WRK-COPY.                                          DTSBR711
00135      PERFORM P1100-PRINT-CERT   THRU P1100-EXIT VARYING           DTSBR711
00136         PRINT-R711-CTR FROM 1 BY 1 UNTIL PRINT-R711-CTR > 29.     DTSBR711
00137                                                                   DTSBR711
00138 ****** //////////// PRINT EMPLOYER COPY ///////////               DTSBR711
00139                                                                   DTSBR711
00140      MOVE 1 TO PRINT-R711-CTR                                     DTSBR711
00141      MOVE 2 TO WRK-COPY.                                          DTSBR711
00142      WRITE XEROX-REPORT FROM VSCA-LINE AFTER ADVANCING TOP-OF-PAGEDTSBR711
00143      WRITE XEROX-REPORT FROM VSCA-LINE AFTER ADVANCING 8 LINE.    DTSBR711
00144      PERFORM P1100-PRINT-CERT   THRU P1100-EXIT VARYING           DTSBR711
00145         PRINT-R711-CTR FROM 1 BY 1 UNTIL PRINT-R711-CTR > 29.     DTSBR711
00146                                                                   DTSBR711
00147 ****** //////////// PRINT FILE COPY  //////////////               DTSBR711
00148                                                                   DTSBR711
00149      WRITE XEROX-REPORT FROM VSCA-LINE AFTER ADVANCING TOP-OF-PAGEDTSBR711
00150      WRITE XEROX-REPORT FROM VSCA-LINE AFTER ADVANCING 8 LINE.    DTSBR711
00151      MOVE 1 TO PRINT-R711-CTR                                     DTSBR711
00152      MOVE 3 TO WRK-COPY.                                          DTSBR711
00153      PERFORM P1100-PRINT-CERT   THRU P1100-EXIT VARYING           DTSBR711
00154         PRINT-R711-CTR FROM 1 BY 1 UNTIL PRINT-R711-CTR > 29.     DTSBR711
00155                                                                   DTSBR711
00156  P1000-EXIT.                                                      DTSBR711
00157      EXIT.                                                        DTSBR711
00158      EJECT                                                        DTSBR711
00159  P1100-PRINT-CERT.                                                DTSBR711
00160      MOVE +1 TO PRINT-R711-CTR.                                   DTSBR711
00161      MOVE R711-PRINT-LINE (PRINT-R711-CTR)  TO XEROX-RPT.         DTSBR711
00162      WRITE XEROX-REPORT AFTER ADVANCING 1 LINES                   DTSBR711
00163      WRITE XEROX-REPORT FROM BLANK-LINE AFTER ADVANCING 2 LINES.  DTSBR711
00164      MOVE +2 TO PRINT-R711-CTR.                                   DTSBR711
00165      MOVE R711-PRINT-LINE (PRINT-R711-CTR)  TO XEROX-RPT.         DTSBR711
00166      WRITE XEROX-REPORT AFTER ADVANCING 1 LINES                   DTSBR711
00167      MOVE +3 TO PRINT-R711-CTR.                                   DTSBR711
00168      MOVE R711-PRINT-LINE (PRINT-R711-CTR)  TO XEROX-RPT.         DTSBR711
00169      WRITE XEROX-REPORT AFTER ADVANCING 1 LINES                   DTSBR711
00170      MOVE +4 TO PRINT-R711-CTR.                                   DTSBR711
00171      MOVE R711-PRINT-LINE (PRINT-R711-CTR)  TO XEROX-RPT.         DTSBR711
00172      WRITE XEROX-REPORT AFTER ADVANCING 1 LINES                   DTSBR711
00173      WRITE XEROX-REPORT FROM BLANK-LINE AFTER ADVANCING 3 LINES.  DTSBR711
00174      MOVE +5 TO PRINT-R711-CTR.                                   DTSBR711
00175      MOVE R711-PRINT-LINE (PRINT-R711-CTR)  TO XEROX-RPT.         DTSBR711
00176      WRITE XEROX-REPORT AFTER ADVANCING 1 LINES                   DTSBR711
00177      MOVE +6 TO PRINT-R711-CTR.                                   DTSBR711
00178      MOVE R711-PRINT-LINE (PRINT-R711-CTR)  TO XEROX-RPT.         DTSBR711
00179      WRITE XEROX-REPORT AFTER ADVANCING 1 LINES                   DTSBR711
00180      MOVE +7 TO PRINT-R711-CTR.                                   DTSBR711
00181      MOVE R711-PRINT-LINE (PRINT-R711-CTR)  TO XEROX-RPT.         DTSBR711
00182      WRITE XEROX-REPORT AFTER ADVANCING 1 LINES                   DTSBR711
00183      MOVE +8 TO PRINT-R711-CTR.                                   DTSBR711
00184      MOVE R711-PRINT-LINE (PRINT-R711-CTR)  TO XEROX-RPT.         DTSBR711
00185      WRITE XEROX-REPORT AFTER ADVANCING 1 LINES                   DTSBR711
00186      MOVE +9 TO PRINT-R711-CTR.                                   DTSBR711
00187      MOVE R711-PRINT-LINE (PRINT-R711-CTR)  TO XEROX-RPT.         DTSBR711
00188      WRITE XEROX-REPORT AFTER ADVANCING 1 LINES                   DTSBR711
00189      MOVE +10 TO PRINT-R711-CTR.                                  DTSBR711
00190      MOVE R711-PRINT-LINE (PRINT-R711-CTR)  TO XEROX-RPT.         DTSBR711
00191      WRITE XEROX-REPORT AFTER ADVANCING 1 LINES                   DTSBR711
00192      WRITE XEROX-REPORT FROM BLANK-LINE AFTER ADVANCING 3 LINES.  DTSBR711
00193      MOVE +11 TO PRINT-R711-CTR.                                  DTSBR711
00194      MOVE R711-PRINT-LINE (PRINT-R711-CTR)  TO XEROX-RPT.         DTSBR711
00195      WRITE XEROX-REPORT AFTER ADVANCING 1 LINES                   DTSBR711
00196      MOVE +12 TO PRINT-R711-CTR.                                  DTSBR711
00197      MOVE R711-PRINT-LINE (PRINT-R711-CTR)  TO XEROX-RPT.         DTSBR711
00198      WRITE XEROX-REPORT AFTER ADVANCING 1 LINES                   DTSBR711
00199      MOVE +13 TO PRINT-R711-CTR.                                  DTSBR711
00200      MOVE R711-PRINT-LINE (PRINT-R711-CTR)  TO XEROX-RPT.         DTSBR711
00201      WRITE XEROX-REPORT AFTER ADVANCING 1 LINES                   DTSBR711
00202      MOVE +14 TO PRINT-R711-CTR.                                  DTSBR711
00203      MOVE R711-PRINT-LINE (PRINT-R711-CTR)  TO XEROX-RPT.         DTSBR711
00204      WRITE XEROX-REPORT AFTER ADVANCING 1 LINES                   DTSBR711
00205      MOVE +15 TO PRINT-R711-CTR.                                  DTSBR711
00206      MOVE R711-PRINT-LINE (PRINT-R711-CTR)  TO XEROX-RPT.         DTSBR711
00207      WRITE XEROX-REPORT AFTER ADVANCING 1 LINES                   DTSBR711
00208      MOVE +16 TO PRINT-R711-CTR.                                  DTSBR711
00209      MOVE R711-PRINT-LINE (PRINT-R711-CTR)  TO XEROX-RPT.         DTSBR711
00210      WRITE XEROX-REPORT AFTER ADVANCING 1 LINES                   DTSBR711
00211      MOVE +17 TO PRINT-R711-CTR.                                  DTSBR711
00212      MOVE R711-PRINT-LINE (PRINT-R711-CTR)  TO XEROX-RPT.         DTSBR711
00213      WRITE XEROX-REPORT AFTER ADVANCING 1 LINES                   DTSBR711
00214      MOVE +18 TO PRINT-R711-CTR.                                  DTSBR711
00215      MOVE R711-PRINT-LINE (PRINT-R711-CTR)  TO XEROX-RPT.         DTSBR711
00216      WRITE XEROX-REPORT AFTER ADVANCING 1 LINES                   DTSBR711
00217      MOVE +19 TO PRINT-R711-CTR.                                  DTSBR711
00218      MOVE R711-PRINT-LINE (PRINT-R711-CTR)  TO XEROX-RPT.         DTSBR711
00219      WRITE XEROX-REPORT AFTER ADVANCING 1 LINES                   DTSBR711
00220      WRITE XEROX-REPORT FROM BLANK-LINE AFTER ADVANCING 2 LINES.  DTSBR711
00221      MOVE +20 TO PRINT-R711-CTR.                                  DTSBR711
00222      MOVE R711-PRINT-LINE (PRINT-R711-CTR)  TO XEROX-RPT.         DTSBR711
00223      WRITE XEROX-REPORT AFTER ADVANCING 1 LINES                   DTSBR711
00224      MOVE +21 TO PRINT-R711-CTR.                                  DTSBR711
00225      MOVE R711-PRINT-LINE (PRINT-R711-CTR)  TO XEROX-RPT.         DTSBR711
00226      WRITE XEROX-REPORT AFTER ADVANCING 2 LINES                   DTSBR711
00227      MOVE +22 TO PRINT-R711-CTR.                                  DTSBR711
00228      MOVE R711-PRINT-LINE (PRINT-R711-CTR)  TO XEROX-RPT.         DTSBR711
00229      WRITE XEROX-REPORT AFTER ADVANCING 1 LINES                   DTSBR711
00230      MOVE +23 TO PRINT-R711-CTR.                                  DTSBR711
00231      MOVE R711-PRINT-LINE (PRINT-R711-CTR)  TO XEROX-RPT.         DTSBR711
00232      WRITE XEROX-REPORT AFTER ADVANCING 1 LINES                   DTSBR711
00233      MOVE +24 TO PRINT-R711-CTR.                                  DTSBR711
00234      MOVE R711-PRINT-LINE (PRINT-R711-CTR)  TO XEROX-RPT.         DTSBR711
00235      WRITE XEROX-REPORT AFTER ADVANCING 1 LINES                   DTSBR711
00236      MOVE +25 TO PRINT-R711-CTR.                                  DTSBR711
00237      MOVE R711-PRINT-LINE (PRINT-R711-CTR)  TO XEROX-RPT.         DTSBR711
00238      WRITE XEROX-REPORT AFTER ADVANCING 3 LINES                   DTSBR711
00239      MOVE +26 TO PRINT-R711-CTR.                                  DTSBR711
00240      MOVE R711-PRINT-LINE (PRINT-R711-CTR)  TO XEROX-RPT.         DTSBR711
00241      WRITE XEROX-REPORT AFTER ADVANCING 2 LINES                   DTSBR711
00242      MOVE +27 TO PRINT-R711-CTR.                                  DTSBR711
00243      MOVE R711-PRINT-LINE (PRINT-R711-CTR)  TO XEROX-RPT.         DTSBR711
00244      WRITE XEROX-REPORT AFTER ADVANCING 1 LINES                   DTSBR711
00245      MOVE +28 TO PRINT-R711-CTR.                                  DTSBR711
00246      MOVE R711-PRINT-LINE (PRINT-R711-CTR)  TO XEROX-RPT.         DTSBR711
00247      WRITE XEROX-REPORT AFTER ADVANCING 3 LINES                   DTSBR711
00248      MOVE +29 TO PRINT-R711-CTR.                                  DTSBR711
00249       IF WRK-COPY = 1                                             DTSBR711
00250          MOVE '                                  (IRS COPY)' TO   DTSBR711
00251           R711-PRINT-LINE (PRINT-R711-CTR)                        DTSBR711
00252       ELSE                                                        DTSBR711
00253       IF WRK-COPY = 2                                             DTSBR711
00254          MOVE '                                  (EMPLOYER COPY)' DTSBR711
00255           TO R711-PRINT-LINE (PRINT-R711-CTR)                     DTSBR711
00256       ELSE                                                        DTSBR711
00257          MOVE '                                  (FILE COPY)'     DTSBR711
00258           TO R711-PRINT-LINE (PRINT-R711-CTR).                    DTSBR711
00259      MOVE R711-PRINT-LINE (PRINT-R711-CTR)  TO XEROX-RPT.         DTSBR711
00260      WRITE XEROX-REPORT AFTER ADVANCING 03 LINES.                 DTSBR711
00261      MOVE +30 TO PRINT-R711-CTR.                                  DTSBR711
00262  P1100-EXIT.                                                      DTSBR711
00263      EXIT.                                                        DTSBR711
00264                                                                   DTSBR711
00265                                                                   DTSBR711
00266  T1000-TERMINATE.                                                 DTSBR711
00267      SKIP1                                                        DTSBR711
00268      CLOSE PRT-FILE.                                              DTSBR711
00269      SKIP2                                                        DTSBR711
00270  T1000-EXIT.                                                      DTSBR711
00271      EXIT.                                                        DTSBR711
00272      EJECT                                                        DTSBR711
00273  S999-ABEND.                                                      DTSBR711
00274      SKIP1                                                        DTSBR711
00275      CALL 'DTSBU999' USING WRK-ABEND-CD.                          DTSBR711
00276      SKIP2                                                        DTSBR711
00277  S999-EXIT.                                                       DTSBR711
00278      EXIT.                                                        DTSBR711
00279                                                                   DTSBR711
