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

56
Batch/DTSBU999.cob Normal file
View File

@ -0,0 +1,56 @@
00001 IDENTIFICATION DIVISION. 08/05/98
00002 PROGRAM-ID. DTSBU999. DTSBU999
00003 AUTHOR. TRICOASTAL CONSULTING LTD. LV002
00004 DATE-WRITTEN. OCTOBER 1991. DTSBU999
00005 DATE-COMPILED. DTSBU999
00006 SKIP3 DTSBU999
00007 ***** DTSBU999
00008 * DTSBU999
00009 * FUNCTION: ABEND PROCESSOR. DTSBU999
00010 * DTSBU999
00011 * DTSBU999
00012 * MODIFICATION LOG: DTSBU999
00013 * DTSBU999
00014 * 08/05/98 INITIAL DEVELOPMENT. MODIFIED FROM MACBU999. CL**2
00015 * WORK ORDER: PROGRAMMER: ZL1. CL**2
00016 * DTSBU999
00017 * XX/XX/XX XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX DTSBU999
00018 * XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX DTSBU999
00019 * WORK ORDER: PROGRAMMER: XXX DTSBU999
00020 * DTSBU999
00021 * DTSBU999
00022 * DESCRIPTION: DTSBU999
00023 * DTSBU999
00024 ***** DTSBU999
00025 SKIP3 DTSBU999
00026 ENVIRONMENT DIVISION. DTSBU999
00027 SKIP3 DTSBU999
00028 DATA DIVISION. DTSBU999
00029 SKIP3 DTSBU999
00030 WORKING-STORAGE SECTION. DTSBU999
000305 77 PAN-VALET PICTURE X(24) VALUE '002DTSBU999 08/05/98'. DTSBU999
00031 SKIP3 DTSBU999
00032 01 WRK-AREA. DTSBU999
00033 05 WRK-ABEND-CODE PIC S9(04) COMP. DTSBU999
00034 EJECT DTSBU999
00035 LINKAGE SECTION. DTSBU999
00036 SKIP3 DTSBU999
00037 01 ABEND-CODE PIC S9(04) COMP. DTSBU999
00038 EJECT DTSBU999
00039 PROCEDURE DIVISION USING ABEND-CODE. DTSBU999
00040 SKIP2 DTSBU999
00041 DISPLAY '*** UI TAX SYSTEM ABEND. ABEND CODE = ' DTSBU999
00042 ABEND-CODE. DTSBU999
00043 DTSBU999
00044 MOVE ABEND-CODE TO WRK-ABEND-CODE. DTSBU999
00045 DTSBU999
00046 IF (WRK-ABEND-CODE > 0) DTSBU999
00047 AND DTSBU999
00048 (WRK-ABEND-CODE < 4096) DTSBU999
00049 NEXT SENTENCE DTSBU999
00050 ELSE DTSBU999
00051 MOVE 999 TO WRK-ABEND-CODE. DTSBU999
00052 DTSBU999
00053 CALL 'ILBOABN0' USING WRK-ABEND-CODE. DTSBU999
00054 SKIP2 DTSBU999
00055 GOBACK. DTSBU999