giteaadmin/DUTAS
4
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

DUTAS re-platformed to Raincode - Initial Source Code

Browse Source
This commit is contained in:
Neeraj Kumar
2025-07-21 07:44:09 -04:00
commit ca3572c5df
2773 changed files with 798221 additions and 0 deletions
Download Patch File Download Diff File Expand all files Collapse all files

102
CICS/DTSCU006.cob Normal file
View File

@ -0,0 +1,102 @@
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