00001  IDENTIFICATION DIVISION.                                         09/29/98
00002  PROGRAM-ID.             DTSBU006                                 DTSBU006
00003  AUTHOR.                 TRICOASTAL CONSULTING LTD.                  LV005
00004  DATE-WRITTEN            DECECMER 1991.                           DTSBU006
00005  DATE-COMPILED.                                                   DTSBU006
00006      SKIP3                                                        DTSBU006
00007 *****                                                             DTSBU006
00008 *                                                                 DTSBU006
00009 *    FUNCTION:   RATING YEAR START/END MODULE.                    DTSBU006
00010 *                                                                 DTSBU006
00011 *    MODIFICATION LOG:                                            DTSBU006
00012 *                                                                 DTSBU006
00013 *    08/07/1998  INITIAL DEVELOPMENT.  MODIFIED FROM MACCU006.       CL**2
00014 *                WORK ORDER:                 PROGRAMMER: GDL         CL**2
00015 *                                                                    CL**5
00016 *    09/29/1998  DTSBU006 CLONED FROM DTSCU006.                      CL**5
00017 *                WORK ORDER: DC DEVELOPMENT  PROGRAMMER: EHH         CL**5
00018 *                                                                 DTSBU006
00019 *    XX/XX/XX    XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX     DTSBU006
00020 *                XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX     DTSBU006
00021 *                WORK ORDER:                 PROGRAMMER:          DTSBU006
00022 *                                                                 DTSBU006
00023 *                                                                 DTSBU006
00024 *    DESCRIPTION:                                                 DTSBU006
00025 *                                                                 DTSBU006
00026 *****                                                             DTSBU006
00027  SKIP3                                                            DTSBU006
00028  ENVIRONMENT DIVISION.                                            DTSBU006
00029  DATA DIVISION.                                                   DTSBU006
00030  SKIP3                                                            DTSBU006
00031  WORKING-STORAGE SECTION.                                         DTSBU006
000315 77  PAN-VALET PICTURE X(24) VALUE '005DTSBU006  09/29/98'.       DTSBU006
00032  01  WRK-AREA.                                                    DTSBU006
00033      05  WS-ABEND-CODE                       PIC S9(04)  COMP        CL**5
00034                                                  VALUE +006.         CL**5
00035                                                                      CL**5
00036      05  WS-YRQ-X.                                                DTSBU006
00037          10  WS-YR                           PIC  9(04).          DTSBU006
00038          10  WS-Q                            PIC  9(01).          DTSBU006
00039      05  WS-YRQ-9 REDEFINES WS-YRQ-X         PIC  9(05).          DTSBU006
00040      EJECT                                                        DTSBU006
00041  01  L004-LINK-AREA.                                                 CL**5
00042  ++INCLUDE DTSIL004                                                  CL**2
00043      EJECT                                                        DTSBU006
00044  LINKAGE SECTION.                                                 DTSBU006
00045  01  L006-LINK-AREA.                                                 CL**5
00046  ++INCLUDE DTSIL006                                                  CL**2
00047      EJECT                                                        DTSBU006
00048  PROCEDURE DIVISION USING L006-LINK-AREA.                            CL**5
00049      SKIP2                                                        DTSBU006
00050      IF L006-FROM-QTR                                             DTSBU006
00051          PERFORM P1000-FROM-QTR THRU P1000-EXIT                   DTSBU006
00052      ELSE                                                         DTSBU006
00053          PERFORM S999-ABEND THRU S999-EXIT.                          CL**5
00054      SKIP3                                                        DTSBU006
00055      GOBACK.                                                      DTSBU006
00056      SKIP3                                                        DTSBU006
00057  P1000-FROM-QTR.                                                     CL**2
00058      MOVE L006-YRQ TO WS-YRQ-9.                                   DTSBU006
00059      SKIP1                                                        DTSBU006
00060      MOVE 1 TO WS-Q                                                  CL**2
00061      MOVE WS-YRQ-9 TO L006-RTE-YR-START-YRQ                          CL**2
00062      MOVE 4 TO WS-Q                                                  CL**2
00063      MOVE WS-YRQ-9 TO L006-RTE-YR-END-YRQ.                           CL**2
00064      SKIP1                                                        DTSBU006
00065      PERFORM P1900-RTE-YR-DATES THRU P1900-EXIT.                  DTSBU006
00066      SKIP1                                                        DTSBU006
00067      MOVE L006-YRQ TO WS-YRQ-9.                                   DTSBU006
00068      MOVE WS-YR TO L006-RTE-YR-DISP.                              DTSBU006
00069      SKIP1                                                        DTSBU006
00070  P1000-EXIT.                                                         CL**2
00071      EXIT.                                                        DTSBU006
00072      EJECT                                                        DTSBU006
00073  P1900-RTE-YR-DATES.                                              DTSBU006
00074      SET L004-FROM-5 TO TRUE.                                     DTSBU006
00075      MOVE L006-RTE-YR-START-YRQ TO L004-QTR-5-9.                  DTSBU006
00076      PERFORM S004-YRQ THRU S004-EXIT.                             DTSBU006
00077      MOVE L004-QTR-START-DATE TO L006-RTE-YR-START-DATE.          DTSBU006
00078      SKIP1                                                        DTSBU006
00079      SET L004-FROM-5 TO TRUE.                                     DTSBU006
00080      MOVE L006-RTE-YR-END-YRQ TO L004-QTR-5-9.                    DTSBU006
00081      PERFORM S004-YRQ THRU S004-EXIT.                             DTSBU006
00082      MOVE L004-QTR-END-DATE TO L006-RTE-YR-END-DATE.              DTSBU006
00083  P1900-EXIT.                                                      DTSBU006
00084      EXIT.                                                        DTSBU006
00085      EJECT                                                        DTSBU006
00086  S004-YRQ.                                                        DTSBU006
00087      CALL 'DTSBU004' USING L004-LINK-AREA.                           CL**5
00088  S004-EXIT.                                                       DTSBU006
00089      EXIT.                                                        DTSBU006
00090      SKIP3                                                        DTSBU006
00091  S999-ABEND.                                                         CL**5
00092      CALL 'DTSBU999' USING WS-ABEND-CODE.                            CL**5
00093  S999-EXIT.                                                          CL**5
00094      EXIT.                                                        DTSBU006
