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

95
Batch/DTSBU006.cob Normal file
View File

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