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