00001 IDENTIFICATION DIVISION. 06/29/02 00002 PROGRAM-ID. DTSCU410. DTSCU410 00003 AUTHOR. TRW. LV003 00004 DATE-WRITTEN. OCTOBER 20001. DTSCU410 00005 DATE-COMPILED. DTSCU410 00006 ***** DTSCU410 00007 * DTSCU410 00008 * FUNCTION: FIND FILING SCHEDULE FOR A GIVEN QUARTER DTSCU410 00009 * DTSCU410 00010 * DTSCU410 00011 * MODIFICATION LOG: DTSCU410 00012 * DTSCU410 00013 * 10/30/2001 INITIAL DEVELOPMENT. DTSCU410 00014 * WORK ORDER: PROGRAMMER: GD DTSCU410 00015 * DTSCU410 00016 * XX/XX/XXXX XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX DTSCU410 00017 * XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX DTSCU410 00018 * WORK ORDER: PROGRAMMER: XXX DTSCU410 00019 ***** DTSCU410 00020 * DTSCU410 00021 * DESCRIPTION: DTSCU410 00022 * DTSCU410 00023 * DTSCU410 RETURNS THE FILING SCHEDULE FOR A GIVEN QUARTER. DTSCU410 00024 * DTSCU410 00025 * DTSCU410 00026 ***** DTSCU410 00027 SKIP3 DTSCU410 00028 ENVIRONMENT DIVISION. DTSCU410 00029 SKIP3 DTSCU410 00030 DATA DIVISION. DTSCU410 00031 SKIP3 DTSCU410 00032 WORKING-STORAGE SECTION. DTSCU410 000325 77 PAN-VALET PICTURE X(24) VALUE '003DTSCU410 06/29/02'. DTSCU410 00033 SKIP3 DTSCU410 00034 01 WRK-AREA. DTSCU410 00035 05 WRK-ABEND-CODE PIC X(04) VALUE 'U410'. DTSCU410 00036 05 WRK-ABEND-MSG PIC X(60). DTSCU410 00037 DTSCU410 00038 05 WRK-MODE PIC X(01). DTSCU410 00039 88 WRK-MODE-INPUT-YRQ-88 VALUE '0'. DTSCU410 00040 88 WRK-MODE-MOST-RECENT-88 VALUE '1'. DTSCU410 00041 DTSCU410 00042 05 WRK-CURR-SCHED PIC X(01). DTSCU410 00043 05 WRK-CURR-STRT-YRQ PIC S9(05) COMP-3. DTSCU410 00044 DTSCU410 00045 05 WRK-YRQ-FOUND-IND PIC X(01). DTSCU410 00046 88 WRK-YRQ-FOUND-YES-88 VALUE 'Y'. DTSCU410 00047 88 WRK-YRQ-FOUND-NO-88 VALUE 'N'. DTSCU410 00048 DTSCU410 00049 01 L810-LINK-AREA. DTSCU410 00050 05 L810-CONTROL-BLOCK. DTSCU410 00051 ++INCLUDE DTSIL810 DTSCU410 00052 05 MSKL-REC. DTSCU410 00053 ++INCLUDE DTSIMSKL DTSCU410 00054 EJECT DTSCU410 00055 01 MFSC-REC. DTSCU410 00056 ++INCLUDE DTSIMFSC DTSCU410 00057 EJECT DTSCU410 00058 LINKAGE SECTION. DTSCU410 00059 SKIP3 DTSCU410 00060 01 DFHCOMMAREA. DTSCU410 00061 ++INCLUDE DTSIL410 DTSCU410 00062 EJECT DTSCU410 00063 PROCEDURE DIVISION. DTSCU410 00064 SKIP2 DTSCU410 00065 DTSCU410-MAINLINE. DTSCU410 00066 PERFORM P0000-PROCESS THRU P0000-EXIT. DTSCU410 00067 DTSCU410 00068 DTSCU410-MAINLINE-EXIT. DTSCU410 00069 EXEC CICS DTSCU410 00070 RETURN DTSCU410 00071 END-EXEC. DTSCU410 00072 EJECT DTSCU410 00073 P0000-PROCESS. DTSCU410 00074 MOVE SPACES TO WRK-CURR-SCHED. DTSCU410 00075 MOVE ZERO TO WRK-CURR-STRT-YRQ. DTSCU410 00076 DTSCU410 00077 SET L410-NULL-SCHED-88 TO TRUE. DTSCU410 00078 MOVE ZEROS TO L410-SCHED-START-YRQ. DTSCU410 00079 DTSCU410 00080 MOVE LOW-VALUES TO MFSC-KEY-AREA. DTSCU410 00081 MOVE L410-EMP-NO TO MFSC-EMP-NO. DTSCU410 00082 SET MFSC-FSC-88 TO TRUE. DTSCU410 00083 MOVE MFSC-KEY-AREA TO MSKL-KEY-AREA. DTSCU410 00084 PERFORM S810-START-BROWSE THRU S810-EXIT. DTSCU410 00085 IF L810-NO-REC-88 DTSCU410 00086 GO TO P0000-EXIT DTSCU410 00087 ELSE DTSCU410 00088 IF L410-MODE-INPUT-YRQ-88 DTSCU410 00089 SET WRK-YRQ-FOUND-NO-88 TO TRUE DTSCU410 00090 PERFORM P1000-INPUT-YRQ THRU P1000-EXIT DTSCU410 00091 UNTIL WRK-YRQ-FOUND-YES-88 DTSCU410 00092 OR L810-NO-REC-88 DTSCU410 00093 ELSE DTSCU410 00094 PERFORM P2000-MOST-RECENT THRU P2000-EXIT DTSCU410 00095 UNTIL L810-NO-REC-88 DTSCU410 00096 MOVE WRK-CURR-SCHED TO L410-FILING-SCHED DTSCU410 00097 MOVE WRK-CURR-STRT-YRQ TO L410-SCHED-START-YRQ. DTSCU410 00098 DTSCU410 00099 PERFORM S810-END-BROWSE THRU S810-EXIT. DTSCU410 00100 P0000-EXIT. DTSCU410 00101 EXIT. DTSCU410 00102 DTSCU410 00103 P1000-INPUT-YRQ. DTSCU410 00104 MOVE MSKL-REC TO MFSC-REC. DTSCU410 00105 DTSCU410 00106 IF L410-YRQ >= MFSC-START-YRQ DTSCU410 00107 AND L410-YRQ <= MFSC-END-YRQ DTSCU410 00108 IF MFSC-STATUS-OPEN-88 DTSCU410 00109 SET WRK-YRQ-FOUND-YES-88 TO TRUE DTSCU410 00110 MOVE MFSC-FILING-SCHEDULE-CD TO L410-FILING-SCHED DTSCU410 00111 MOVE MFSC-START-YRQ TO L410-SCHED-START-YRQ DTSCU410 00112 GO TO P1000-EXIT. DTSCU410 00113 DTSCU410 00114 PERFORM S810-READ-NEXT THRU S810-EXIT. DTSCU410 00115 DTSCU410 00116 P1000-EXIT. DTSCU410 00117 EXIT. DTSCU410 00118 DTSCU410 00119 P2000-MOST-RECENT. DTSCU410 00120 MOVE MSKL-REC TO MFSC-REC. DTSCU410 00121 DTSCU410 00122 IF MFSC-STATUS-OPEN-88 DTSCU410 00123 IF MFSC-START-YRQ > WRK-CURR-STRT-YRQ DTSCU410 00124 MOVE MFSC-START-YRQ TO WRK-CURR-STRT-YRQ DTSCU410 00125 MOVE MFSC-FILING-SCHEDULE-CD TO WRK-CURR-SCHED. DTSCU410 00126 DTSCU410 00127 PERFORM S810-READ-NEXT THRU S810-EXIT. DTSCU410 00128 DTSCU410 00129 P2000-EXIT. DTSCU410 00130 EXIT. DTSCU410 00131 DTSCU410 00132 S810-READ. DTSCU410 00133 SET L810-READ-88 TO TRUE. DTSCU410 00134 GO TO S810-MSTR-IO. DTSCU410 00135 DTSCU410 00136 S810-START-BROWSE. DTSCU410 00137 SET L810-START-BROWSE-88 TO TRUE. DTSCU410 00138 GO TO S810-MSTR-IO. DTSCU410 00139 DTSCU410 00140 S810-READ-NEXT. DTSCU410 00141 SET L810-READ-NEXT-88 TO TRUE. DTSCU410 00142 GO TO S810-MSTR-IO. DTSCU410 00143 DTSCU410 00144 S810-END-BROWSE. DTSCU410 00145 SET L810-END-BROWSE-88 TO TRUE. DTSCU410 00146 GO TO S810-MSTR-IO. DTSCU410 00147 DTSCU410 00148 S810-MSTR-IO. DTSCU410 00149 EXEC CICS DTSCU410 00150 LINK DTSCU410 00151 PROGRAM('DTSCU810') DTSCU410 00152 COMMAREA(L810-LINK-AREA) DTSCU410 00153 END-EXEC. DTSCU410 00154 DTSCU410 00155 IF L810-FILE-CLOSED-88 DTSCU410 00156 GO TO DTSCU410-MAINLINE-EXIT. DTSCU410 00157 DTSCU410 00158 S810-EXIT. DTSCU410 00159 EXIT. DTSCU410 00160 DTSCU410 00161 S899-ABEND. DTSCU410 00162 SKIP1 DTSCU410 00163 EXEC CICS DTSCU410 00164 ABEND DTSCU410 00165 ABCODE(WRK-ABEND-CODE) DTSCU410 00166 END-EXEC. DTSCU410 00167 SKIP1 DTSCU410 00168 S899-EXIT. DTSCU410 00169 EXIT. DTSCU410