00001  IDENTIFICATION DIVISION.                                         02/21/01
00002  PROGRAM-ID.             DTSBR724.                                DTSBR724
00003  AUTHOR.                 MT DEPT OF LABOR/UI PROGRAMMING SECTION     LV014
00004  DATE-WRITTEN.           AUGUST 1994.                             DTSBR724
00005  DATE-COMPILED.                                                   DTSBR724
00006                                                                   DTSBR724
00007 *****                                                             DTSBR724
00008 *                                                                 DTSBR724
00009 *    CALLING SEQUENCE:  DTSBD300 CALLS                            DTSBR724
00010 *                       DTSBD180 WHICH UPDATES DTSIR724           DTSBR724
00011 *                       DTSBR724 READS DTSIR724 RECORDS.          DTSBR724
00012 *                                                                 DTSBR724
00013 *    MODIFICATION HISTORY:                                        DTSBR724
00014 *                                                                 DTSBR724
00015 * 08-03-94 INITIAL DEVELOPMENT                                    DTSBR724
00016 *          REFERENCE RFP #RAP             AUTHOR OF CHANGE - SFW  DTSBR724
00017 *                                                                 DTSBR724
00018 * 03-30-95 MOVED OPID NAME TO LINE UP UNDER THE CE NUMBER INSTEAD DTSBR724
00019 *          OF UNDER THE WORD "DESTINATION".  REQUESTED BY USERS.  DTSBR724
00020 *          REFERENCE RFP #RAP                    PROGRAMMER: MJA  DTSBR724
00021 *                                                                 DTSBR724
00022 * 10-06-96 ADDED FIELD WS-DAYS-OVERDUE TO USE AS SOURCE FOR THE   DTSBR724
00023 *          PAGE HEADING.  REPORT WRITER BUG ON TERMINATION CAUSED DTSBR724
00024 *          OC7 ABEND.                                             DTSBR724
00025 *          REFERENCE RFP #PROD RECOVERY          PROGRAMMER: SFW  DTSBR724
00026 *                                                                 DTSBR724
00027 * 02-21-97 ADDING L071-NAM TO THE CONTROL FIELDS FOR THE REPORT   DTSBR724
00028 *          IS A TRICK TO COMPENSATE FOR A REPORT WRITER BUG.      DTSBR724
00029 *          REFERENCE RFP #PROD RECOVERY          PROGRAMMER: SFW  DTSBR724
00030 *                                                                 DTSBR724
00031 * MM-DD-YY XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX  DTSBR724
00032 *          XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX  DTSBR724
00033 *          REFERENCE RFP #****                   PROGRAMMER: XXX  DTSBR724
00034 *                                                                 DTSBR724
00035 *                                                                 DTSBR724
00036 *    DESCRIPTION:                                                 DTSBR724
00037 *                                                                 DTSBR724
00038 *        THIS MODULE PRINTS A LIST OF ALL TICKLERS WITH A TRIGGER DTSBR724
00039 *        DATE NOT GREATER THAN CURRENT DATE MINUS A DAYS PARM.    DTSBR724
00040 *                                                                 DTSBR724
00041 *                                                                 DTSBR724
00042 *    RECORDS READ:                                                DTSBR724
00043 *                                                                 DTSBR724
00044 *        NONE.                                                    DTSBR724
00045 *                                                                 DTSBR724
00046 *                                                                 DTSBR724
00047 *    PRINTED OUTPUTS:                                             DTSBR724
00048 *                                                                 DTSBR724
00049 *        724R1  TICKLER TRIGGER OVERDUE LIST                      DTSBR724
00050 *                                                                 DTSBR724
00051 *                                                                 DTSBR724
00052 *    RECORDS WRITTEN:                                             DTSBR724
00053 *                                                                 DTSBR724
00054 *        NONE.                                                    DTSBR724
00055 *                                                                 DTSBR724
00056 *                                                                 DTSBR724
00057 *    MODULES CALLED:                                              DTSBR724
00058 *                                                                 DTSBR724
00059 *        DTSBU001 DATE EDIT/CONVERSION MODULE                     DTSBR724
00060 *        DTSBU037 MISCELLANEOUS CODES EDIT/DESCRIPTION            DTSBR724
00061 *        DTSBU071 NAME EDIT/LOOKUP MODULE                         DTSBR724
00062 *        DTSBU082 OPERATOR ID EDIT/LOOKUP MODULE                  DTSBR724
00063 *****                                                             DTSBR724
00064      EJECT                                                        DTSBR724
00065  ENVIRONMENT DIVISION.                                            DTSBR724
00066                                                                   DTSBR724
00067  CONFIGURATION SECTION.                                           DTSBR724
00068  SPECIAL-NAMES. C01 IS TOP-OF-PAGE.                               DTSBR724
00069                                                                   DTSBR724
00070  INPUT-OUTPUT SECTION.                                            DTSBR724
00071                                                                   DTSBR724
00072  FILE-CONTROL.                                                    DTSBR724
00073      SELECT PRT-FILE ASSIGN TO RPT724R1.                          DTSBR724
00074                                                                   DTSBR724
00075  DATA DIVISION.                                                   DTSBR724
00076                                                                   DTSBR724
00077  FILE SECTION.                                                    DTSBR724
00078                                                                   DTSBR724
00079  FD  PRT-FILE                                                     DTSBR724
00080      RECORDING MODE IS F.                                         DTSBR724
00081  01  PRT-RECORD              PIC X(133).                          DTSBR724
00082                                                                   DTSBR724
00083      EJECT                                                        DTSBR724
00084  WORKING-STORAGE SECTION.                                         DTSBR724
000845 77  PAN-VALET PICTURE X(24) VALUE '014DTSBR724  02/21/01'.       DTSBR724
00085                                                                   DTSBR724
00086  01  WRK-AREA.                                                    DTSBR724
00087      05  WRK-ABEND-CD                PIC S9(04)  COMP  VALUE +724.DTSBR724
00088      05  FIRST-TIME-IND              PIC  X(01)  VALUE 'Y'.       DTSBR724
00089      05  FIRST-PAGE-IND              PIC  X(01)  VALUE 'Y'.       DTSBR724
00090                                                                   DTSBR724
00091      05  WS-BLANK-LINE               PIC  X(133) VALUE SPACES.    DTSBR724
00092      05  WRK-PAGE-TRUNCATE           PIC  9(01) VALUE ZERO.       DTSBR724
00093          88  WRK-ODD-PAGE-88             VALUE 1 3 5 7 9.         DTSBR724
00094                                                                   DTSBR724
00095      05  WS-NUMBER-ONE               PIC S9(03)  COMP-3 VALUE +0. DTSBR724
00096      05  WS-NUMBER-TWO               PIC S9(03)  COMP-3 VALUE +0. DTSBR724
00097      05  WS-FOOT-NUMBER-ONE          PIC S9(05)  COMP-3 VALUE +0. DTSBR724
00098      05  WS-FOOT-NUMBER-TWO          PIC S9(05)  COMP-3 VALUE +0. DTSBR724
00099      05  WS-LINE-CNT                 PIC S9(02)  COMP-3 VALUE 60. DTSBR724
00100      05  WS-LINE-CNT2                PIC S9(02)  COMP-3 VALUE +0. DTSBR724
00101      05  WS-PAGE-CNT                 PIC S9(05)  COMP-3 VALUE +0. DTSBR724
00102                                                                   DTSBR724
00103      05  WS-DAYS-OVERDUE             PIC  9(03)  VALUE ZERO.      DTSBR724
00104      05  WS-DEST-OP-ID               PIC  X(08)  VALUE SPACES.    DTSBR724
00105                                                                   DTSBR724
00106  01  PAGE-HEADING.                                                DTSBR724
00107      05  HDR1-LINE-1.                                             DTSBR724
00108          10  FILLER                  PIC  X(01)  VALUE SPACE.     DTSBR724
00109          10  FILLER                  PIC  X(05)                   DTSBR724
00110                 VALUE '724R1'.                                    DTSBR724
00111          10  FILLER                  PIC  X(34)  VALUE SPACES.    DTSBR724
00112          10  HDR1-AGY-NAME-LINE1     PIC  X(50) VALUE SPACE.      DTSBR724
00113          10  FILLER                  PIC  X(28)  VALUE SPACES.    DTSBR724
00114          10  FILLER                  PIC  X(05)                   DTSBR724
00115                 VALUE 'DATE:'.                                    DTSBR724
00116          10  FILLER                  PIC  X(01)  VALUE SPACE.     DTSBR724
00117          10  HDR1-SYS-DATE           PIC  X(08) VALUE SPACE.      DTSBR724
00118      05  HDR1-LINE-2.                                             DTSBR724
00119          10  FILLER                  PIC  X(40)  VALUE SPACES.    DTSBR724
00120          10  HDR1-AGY-NAME-LINE2     PIC  X(50) VALUE SPACE.      DTSBR724
00121          10  FILLER                  PIC  X(28)  VALUE SPACES.    DTSBR724
00122          10  FILLER                  PIC  X(05)                   DTSBR724
00123                 VALUE 'TIME:'.                                    DTSBR724
00124          10  FILLER                  PIC  X(01)  VALUE SPACE.     DTSBR724
00125          10  HDR1-SYS-TIME           PIC  X(08) VALUE SPACE.      DTSBR724
00126      05  HDR1-LINE-3.                                             DTSBR724
00127          10  FILLER                  PIC  X(01)  VALUE SPACE.     DTSBR724
00128          10  FILLER                  PIC  X(30)                   DTSBR724
00129                 VALUE 'ROUTE TO: CHIEF, TAX DIVISION '.           DTSBR724
00130          10  FILLER                  PIC  X(20)  VALUE SPACES.    DTSBR724
00131          10  FILLER                  PIC  X(28)                   DTSBR724
00132                 VALUE 'TICKLER TRIGGER OVERDUE LIST'.             DTSBR724
00133          10  FILLER                  PIC  X(39)  VALUE SPACES.    DTSBR724
00134          10  FILLER                  PIC  X(05)                   DTSBR724
00135                 VALUE 'PAGE:'.                                    DTSBR724
00136          10  FILLER                  PIC  X(03)  VALUE SPACES.    DTSBR724
00137          10  HDR1-PAGE-CNT           PIC  ZZ,ZZ9.                 DTSBR724
00138      05  HDR1-LINE-4.                                             DTSBR724
00139          10  FILLER                  PIC  X(01)  VALUE SPACE.     DTSBR724
00140          10  FILLER                  PIC  X(20)                   DTSBR724
00141                 VALUE 'TICKLER DESTINATION:'.                     DTSBR724
00142          10  FILLER                  PIC  X(01)  VALUE SPACE.     DTSBR724
00143          10  HDR1-DEST-OP-ID         PIC  X(08) VALUE SPACE.      DTSBR724
00144          10  FILLER                  PIC  X(27)  VALUE SPACES.    DTSBR724
00145          10  FILLER                  PIC  X(13)                   DTSBR724
00146                 VALUE 'DAYS OVERDUE:'.                            DTSBR724
00147          10  HDR1-DAYS-OVERDUE       PIC  ZZ9.                    DTSBR724
00148      05  HDR1-LINE-5.                                             DTSBR724
00149          10  FILLER                  PIC  X(22)  VALUE SPACES.    DTSBR724
00150          10  HDR1-NAM                PIC  X(32) VALUE SPACE.      DTSBR724
00151      05  HDR1-LINE-6                 PIC  X(133) VALUE SPACES.    DTSBR724
00152      05  HDR1-LINE-7                 PIC  X(133) VALUE SPACES.    DTSBR724
00153      05  HDR1-LINE-8.                                             DTSBR724
00154          10  FILLER                  PIC  X(14)  VALUE SPACES.    DTSBR724
00155          10  FILLER                  PIC  X(07)                   DTSBR724
00156                 VALUE 'TRIGGER'.                                  DTSBR724
00157          10  FILLER                  PIC  X(60)  VALUE SPACES.    DTSBR724
00158          10  FILLER                  PIC  X(07)                   DTSBR724
00159                 VALUE 'TICKLER'.                                  DTSBR724
00160      05  HDR1-LINE-9.                                             DTSBR724
00161          10  FILLER                  PIC  X(16)  VALUE SPACES.    DTSBR724
00162          10  FILLER                  PIC  X(04)                   DTSBR724
00163                 VALUE 'DATE'.                                     DTSBR724
00164          10  FILLER                  PIC  X(06)  VALUE SPACES.    DTSBR724
00165          10  FILLER                  PIC  X(06)                   DTSBR724
00166                 VALUE 'EMP NO'.                                   DTSBR724
00167          10  FILLER                  PIC  X(08)  VALUE SPACES.    DTSBR724
00168          10  FILLER                  PIC  X(13)                   DTSBR724
00169                 VALUE 'PRIMARY  NAME'.                            DTSBR724
00170          10  FILLER                  PIC  X(30)  VALUE SPACES.    DTSBR724
00171          10  FILLER                  PIC  X(04)                   DTSBR724
00172                 VALUE 'TYPE'.                                     DTSBR724
00173      05  HDR1-LINE-10                PIC  X(133) VALUE SPACES.    DTSBR724
00174                                                                   DTSBR724
00175  01  DETAIL-LINE.                                                 DTSBR724
00176      05  DTL1-LINE-2.                                             DTSBR724
00177          10  FILLER                  PIC  X(12)  VALUE SPACES.    DTSBR724
00178          10  DTL1-SLASH-8-DATE       PIC  X(10) VALUE SPACE.      DTSBR724
00179          10  FILLER                  PIC  X(04)  VALUE SPACES.    DTSBR724
00180          10  DTL1-EMP-NO             PIC  999B999.                DTSBR724
00181          10  FILLER                  PIC  X(05)  VALUE SPACES.    DTSBR724
00182          10  DTL1-PRIMARY-NAME       PIC  X(40) VALUE SPACE.      DTSBR724
00183          10  FILLER                  PIC  X(05)  VALUE SPACES.    DTSBR724
00184          10  DTL1-TYPE               PIC  X(03) VALUE SPACE.      DTSBR724
00185          10  FILLER                  PIC  X(02)  VALUE SPACES.    DTSBR724
00186          10  DTL1-SHORT-DSCR         PIC  X(10) VALUE SPACE.      DTSBR724
00187                                                                   DTSBR724
00188  01  CONTROL-FOOTING.                                             DTSBR724
00189      05  CTF-LINE-3.                                              DTSBR724
00190          10  FILLER                  PIC  X(15)  VALUE SPACES.    DTSBR724
00191          10  FILLER                  PIC  X(22)                   DTSBR724
00192                 VALUE '*** END OF DESTINATION'.                   DTSBR724
00193                                                                   DTSBR724
00194  01  CONTROL-FOOTING-FINAL.                                       DTSBR724
00195      05  CFF-LINE-3.                                              DTSBR724
00196          10  FILLER                  PIC  X(15)  VALUE SPACES.    DTSBR724
00197          10  FILLER                  PIC  X(17)                   DTSBR724
00198                 VALUE '*** END OF REPORT'.                        DTSBR724
00199      EJECT                                                        DTSBR724
00200  01  L001-LINK-AREA.                                              DTSBR724
00201  ++INCLUDE  DTSIL001                                              DTSBR724
00202      EJECT                                                        DTSBR724
00203  01  L037-LINK-AREA.                                              DTSBR724
00204  ++INCLUDE  DTSIL037                                              DTSBR724
00205      EJECT                                                        DTSBR724
00206  01  L071-LINK-AREA.                                              DTSBR724
00207  ++INCLUDE  DTSIL071                                              DTSBR724
00208      EJECT                                                        DTSBR724
00209  01  L082-LINK-AREA.                                              DTSBR724
00210  ++INCLUDE  DTSIL082                                              DTSBR724
00211      EJECT                                                        DTSBR724
00212  LINKAGE SECTION.                                                 DTSBR724
00213                                                                   DTSBR724
00214  01  LRCM-LINK-AREA.                                              DTSBR724
00215  ++INCLUDE  DTSILRCM                                              DTSBR724
00216      EJECT                                                        DTSBR724
00217  01  R724-REC.                                                    DTSBR724
00218  ++INCLUDE  DTSIR724                                              DTSBR724
00219      EJECT                                                        DTSBR724
00220  PROCEDURE DIVISION USING LRCM-LINK-AREA                          DTSBR724
00221                           R724-REC.                               DTSBR724
00222                                                                   DTSBR724
00223      IF FIRST-TIME-IND = 'Y'                                      DTSBR724
00224          PERFORM I1000-INITIATE                                   DTSBR724
00225             THRU I1000-EXIT                                       DTSBR724
00226          MOVE 'N' TO FIRST-TIME-IND.                              DTSBR724
00227                                                                   DTSBR724
00228      IF LRCM-EOR-88                                               DTSBR724
00229          PERFORM T1000-TERMINATE                                  DTSBR724
00230             THRU T1000-EXIT                                       DTSBR724
00231      ELSE                                                         DTSBR724
00232          PERFORM P1000-PROCESS                                    DTSBR724
00233             THRU P1000-EXIT.                                      DTSBR724
00234                                                                   DTSBR724
00235      GOBACK.                                                      DTSBR724
00236      EJECT                                                        DTSBR724
00237  I1000-INITIATE.                                                  DTSBR724
00238                                                                   DTSBR724
00239      OPEN OUTPUT PRT-FILE.                                        DTSBR724
00240      MOVE LRCM-SYS-DATE TO HDR1-SYS-DATE.                         DTSBR724
00241      MOVE LRCM-SYS-TIME TO HDR1-SYS-TIME.                         DTSBR724
00242      MOVE LRCM-AGY-NAME-LINE1 TO HDR1-AGY-NAME-LINE1.             DTSBR724
00243      MOVE LRCM-AGY-NAME-LINE2 TO HDR1-AGY-NAME-LINE2.             DTSBR724
00244      MOVE SPACES TO PRT-RECORD.                                   DTSBR724
00245                                                                   DTSBR724
00246  I1000-EXIT.                                                      DTSBR724
00247      EXIT.                                                        DTSBR724
00248      EJECT                                                        DTSBR724
00249  P1000-PROCESS.                                                   DTSBR724
00250 *                                                                 DTSBR724
00251      IF R724-DEST-OP-ID NOT = WS-DEST-OP-ID                       DTSBR724
00252         MOVE R724-DEST-OP-ID TO WS-DEST-OP-ID                     DTSBR724
00253         IF WS-NUMBER-ONE = +0                                     DTSBR724
00254            MOVE +99 TO WS-NUMBER-ONE                              DTSBR724
00255         ELSE                                                      DTSBR724
00256             PERFORM P3000-PRINT-FOOTER THRU P3000-EXIT            DTSBR724
00257             MOVE +0   TO WS-PAGE-CNT                              DTSBR724
00258             MOVE +60 TO WS-LINE-CNT2                              DTSBR724
00259         END-IF                                                    DTSBR724
00260      END-IF.                                                      DTSBR724
00261                                                                   DTSBR724
00262 *                                                                 DTSBR724
00263      PERFORM P1010-SETUP-OP-NAME                                  DTSBR724
00264         THRU P1010-EXIT.                                          DTSBR724
00265                                                                   DTSBR724
00266      PERFORM P1020-SETUP-TRIGGER-DATE                             DTSBR724
00267         THRU P1020-EXIT.                                          DTSBR724
00268                                                                   DTSBR724
00269      PERFORM P1030-SETUP-TYPE-DESCRIP                             DTSBR724
00270         THRU P1030-EXIT.                                          DTSBR724
00271                                                                   DTSBR724
00272      MOVE R724-DAYS-OVERDUE TO WS-DAYS-OVERDUE.                   DTSBR724
00273      MOVE WS-DAYS-OVERDUE   TO HDR1-DAYS-OVERDUE.                 DTSBR724
00274      MOVE R724-DEST-OP-ID   TO HDR1-DEST-OP-ID.                   DTSBR724
00275      MOVE R724-EMP-NO       TO DTL1-EMP-NO.                       DTSBR724
00276      MOVE R724-PRIMARY-NAME TO DTL1-PRIMARY-NAME.                 DTSBR724
00277      MOVE R724-TYPE         TO DTL1-TYPE.                         DTSBR724
00278      PERFORM P2000-PRINT-HEADER THRU P2000-EXIT.                  DTSBR724
00279      WRITE PRT-RECORD FROM DTL1-LINE-2  AFTER 2.                  DTSBR724
00280      ADD +2    TO WS-LINE-CNT2.                                   DTSBR724
00281                                                                   DTSBR724
00282  P1000-EXIT.                                                      DTSBR724
00283      EXIT.                                                        DTSBR724
00284      EJECT                                                        DTSBR724
00285  P1010-SETUP-OP-NAME.                                             DTSBR724
00286      MOVE R724-DEST-OP-ID TO L082-OP-ID.                          DTSBR724
00287                                                                   DTSBR724
00288      PERFORM S082-GET-DEST-OP-ID                                  DTSBR724
00289         THRU S082-EXIT.                                           DTSBR724
00290                                                                   DTSBR724
00291      MOVE L082-NAME TO L071-NAM.                                  DTSBR724
00292      MOVE L082-NAME TO HDR1-NAM.                                  DTSBR724
00293      MOVE 2         TO L071-NAME-FORMAT.                          DTSBR724
00294                                                                   DTSBR724
00295      PERFORM S071-DESLASH-NAME                                    DTSBR724
00296         THRU S071-EXIT.                                           DTSBR724
00297                                                                   DTSBR724
00298  P1010-EXIT.                                                      DTSBR724
00299      EXIT.                                                        DTSBR724
00300                                                                   DTSBR724
00301  P1020-SETUP-TRIGGER-DATE.                                        DTSBR724
00302                                                                   DTSBR724
00303      SET  L001-FROM-FED-8   TO TRUE.                              DTSBR724
00304      MOVE R724-TRIGGER-DATE TO L001-FED-8-DATE-9.                 DTSBR724
00305                                                                   DTSBR724
00306      PERFORM S001-SET-SLASHED-DATE                                DTSBR724
00307         THRU S001-EXIT.                                           DTSBR724
00308      MOVE L001-SLASH-8-DATE TO DTL1-SLASH-8-DATE.                 DTSBR724
00309                                                                   DTSBR724
00310  P1020-EXIT.                                                      DTSBR724
00311      EXIT.                                                        DTSBR724
00312                                                                   DTSBR724
00313  P1030-SETUP-TYPE-DESCRIP.                                        DTSBR724
00314                                                                   DTSBR724
00315      SET  L037-MTCK-TYPE TO TRUE.                                 DTSBR724
00316      MOVE R724-TYPE      TO L037-CD.                              DTSBR724
00317                                                                   DTSBR724
00318      PERFORM S037-GET-DESCRIP                                     DTSBR724
00319         THRU S037-EXIT.                                           DTSBR724
00320                                                                   DTSBR724
00321      MOVE L037-SHORT-DSCR TO DTL1-SHORT-DSCR.                     DTSBR724
00322                                                                   DTSBR724
00323  P1030-EXIT.                                                      DTSBR724
00324      EXIT.                                                        DTSBR724
00325                                                                   DTSBR724
00326  P2000-PRINT-HEADER.                                              DTSBR724
00327      IF WS-LINE-CNT GREATER 56 OR                                 DTSBR724
00328           WS-LINE-CNT2 GREATER 56                                 DTSBR724
00329         MOVE +0          TO WS-LINE-CNT                           DTSBR724
00330         MOVE +0          TO WS-LINE-CNT2                          DTSBR724
00331         ADD  +1          TO WS-PAGE-CNT                           DTSBR724
00332         MOVE WS-PAGE-CNT TO HDR1-PAGE-CNT                         DTSBR724
00333         WRITE PRT-RECORD FROM HDR1-LINE-1 AFTER TOP-OF-PAGE       DTSBR724
00334         WRITE PRT-RECORD FROM HDR1-LINE-2 AFTER 1                 DTSBR724
00335         WRITE PRT-RECORD FROM HDR1-LINE-3 AFTER 1                 DTSBR724
00336         WRITE PRT-RECORD FROM HDR1-LINE-4 AFTER 1                 DTSBR724
00337         WRITE PRT-RECORD FROM HDR1-LINE-5 AFTER 1                 DTSBR724
00338         WRITE PRT-RECORD FROM HDR1-LINE-6 AFTER 1                 DTSBR724
00339         WRITE PRT-RECORD FROM HDR1-LINE-7 AFTER 1                 DTSBR724
00340         WRITE PRT-RECORD FROM HDR1-LINE-8 AFTER 1                 DTSBR724
00341         WRITE PRT-RECORD FROM HDR1-LINE-9 AFTER 1                 DTSBR724
00342         WRITE PRT-RECORD FROM HDR1-LINE-10 AFTER 1                DTSBR724
00343         ADD +10   TO WS-LINE-CNT2.                                DTSBR724
00344  P2000-EXIT.                                                      DTSBR724
00345      EXIT.                                                        DTSBR724
00346                                                                   DTSBR724
00347  P3000-PRINT-FOOTER.                                              DTSBR724
00348      IF WS-LINE-CNT2 > 52                                         DTSBR724
00349         PERFORM P2000-PRINT-HEADER THRU P2000-EXIT                DTSBR724
00350      END-IF.                                                      DTSBR724
00351                                                                   DTSBR724
00352      WRITE PRT-RECORD FROM CTF-LINE-3  AFTER 3.                   DTSBR724
00353                                                                   DTSBR724
00354      MOVE WS-PAGE-CNT TO WRK-PAGE-TRUNCATE.                       DTSBR724
00355      IF WRK-ODD-PAGE-88                                           DTSBR724
00356         WRITE PRT-RECORD  FROM WS-BLANK-LINE                      DTSBR724
00357                 AFTER TOP-OF-PAGE                                 DTSBR724
00358         WRITE PRT-RECORD  FROM WS-BLANK-LINE AFTER 58             DTSBR724
00359         ADD +60   TO WS-LINE-CNT2                                 DTSBR724
00360         MOVE +0   TO WS-PAGE-CNT                                  DTSBR724
00361      END-IF.                                                      DTSBR724
00362                                                                   DTSBR724
00363  P3000-EXIT.                                                      DTSBR724
00364      EXIT.                                                        DTSBR724
00365                                                                   DTSBR724
00366  T1000-TERMINATE.                                                 DTSBR724
00367                                                                   DTSBR724
00368      IF WS-LINE-CNT2 > 52                                         DTSBR724
00369         PERFORM P2000-PRINT-HEADER THRU P2000-EXIT                DTSBR724
00370      END-IF.                                                      DTSBR724
00371                                                                   DTSBR724
00372      WRITE PRT-RECORD FROM CTF-LINE-3  AFTER 3.                   DTSBR724
00373      WRITE PRT-RECORD FROM CFF-LINE-3  AFTER 3.                   DTSBR724
00374                                                                   DTSBR724
00375      CLOSE PRT-FILE.                                              DTSBR724
00376                                                                   DTSBR724
00377  T1000-EXIT.                                                      DTSBR724
00378      EXIT.                                                        DTSBR724
00379                                                                   DTSBR724
00380  S001-SET-SLASHED-DATE.                                           DTSBR724
00381                                                                   DTSBR724
00382      CALL 'DTSBU001' USING L001-LINK-AREA.                        DTSBR724
00383                                                                   DTSBR724
00384  S001-EXIT.                                                       DTSBR724
00385      EXIT.                                                        DTSBR724
00386                                                                   DTSBR724
00387  S037-GET-DESCRIP.                                                DTSBR724
00388                                                                   DTSBR724
00389      CALL 'DTSBU037' USING L037-LINK-AREA.                        DTSBR724
00390                                                                   DTSBR724
00391  S037-EXIT.                                                       DTSBR724
00392      EXIT.                                                        DTSBR724
00393                                                                   DTSBR724
00394  S071-DESLASH-NAME.                                               DTSBR724
00395                                                                   DTSBR724
00396      CALL 'DTSBU071' USING L071-LINK-AREA.                        DTSBR724
00397                                                                   DTSBR724
00398  S071-EXIT.                                                       DTSBR724
00399      EXIT.                                                        DTSBR724
00400                                                                   DTSBR724
00401  S082-GET-DEST-OP-ID.                                             DTSBR724
00402                                                                   DTSBR724
00403      CALL 'DTSBU082' USING L082-LINK-AREA.                        DTSBR724
00404                                                                   DTSBR724
00405  S082-EXIT.                                                       DTSBR724
00406      EXIT.                                                        DTSBR724
00407                                                                   DTSBR724
00408 *S999-ABEND.                                                      DTSBR724
00409 *                                                                 DTSBR724
00410 *    CALL 'DTSBU999' USING WRK-ABEND-CD.                          DTSBR724
00411 *                                                                 DTSBR724
00412 *S999-EXIT.                                                       DTSBR724
00413 *    EXIT.                                                        DTSBR724
