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

74
Batch/DTSBU021.cob Normal file
View File

@ -0,0 +1,74 @@
00001 IDENTIFICATION DIVISION. 04/05/04
00002 PROGRAM-ID. DTSBU021 DTSBU021
00003 AUTHOR. TRICOASTAL CONSULTING LTD. LV001
00004 DATE-WRITTEN AUGUST 2003. DTSBU021
00005 DATE-COMPILED. DTSBU021
00006 SKIP3 DTSBU021
00007 ***** DTSBU021
00008 * DTSBU021
00009 * FUNCTION: FORMAT/EDIT TELEPHONE NUMBER FROM BATCH DTSBU021
00010 * DTSBU021
00011 * DTSBU021
00012 * MODIFICATION LOG: DTSBU021
00013 * DTSBU021
00014 * 08/04/03 INITIAL DEVELOPMENT. MODIFIED FROM DTSCU021. DTSBU021
00015 * WORK ORDER: PROGRAMMER: ZL1 DTSBU021
00016 * DTSBU021
00017 * DTSBU021
00018 * DTSBU021
00019 * DESCRIPTION: DTSBU021
00020 * DTSBU021
00021 ***** DTSBU021
00022 SKIP3 DTSBU021
00023 ENVIRONMENT DIVISION. DTSBU021
00024 DATA DIVISION. DTSBU021
00025 SKIP3 DTSBU021
00026 WORKING-STORAGE SECTION. DTSBU021
000265 77 PAN-VALET PICTURE X(24) VALUE '001DTSBU021 04/05/04'. DTSBU021
00027 LINKAGE SECTION. DTSBU021
00028 01 L021-LINK-AREA. DTSBU021
00029 ++INCLUDE DTSIL021 DTSBU021
00030 PROCEDURE DIVISION USING L021-LINK-AREA. DTSBU021
00031 SKIP2 DTSBU021
00032 IF (L021-S-TNO1 = SPACE OR LOW-VALUES) DTSBU021
00033 AND (L021-S-TNO2 = SPACE OR LOW-VALUES) DTSBU021
00034 AND (L021-S-TNO3 = SPACE OR LOW-VALUES) DTSBU021
00035 AND (L021-S-TNO4 = SPACE OR LOW-VALUES) DTSBU021
00036 SET L021-NO-ENTRY TO TRUE DTSBU021
00037 MOVE SPACE TO L021-TNO DTSBU021
00038 GO TO INIT0199-GO-BACK. DTSBU021
00039 DTSBU021
00040 IF L021-S-TNO1 = LOW-VALUE OR SPACES DTSBU021
00041 MOVE SPACE TO L021-S-TNO1. DTSBU021
00042 IF L021-S-TNO4 = LOW-VALUE OR SPACES DTSBU021
00043 MOVE SPACE TO L021-S-TNO4. DTSBU021
00044 SKIP2 DTSBU021
00045 IF L021-S-TNO1 = SPACE DTSBU021
00046 NEXT SENTENCE DTSBU021
00047 ELSE DTSBU021
00048 IF L021-S-TNO1 NOT NUMERIC DTSBU021
00049 OR L021-S-TNO1 = ZERO DTSBU021
00050 PERFORM NOT-VALID-ENTRY THRU NOT-VALID-EXIT DTSBU021
00051 GO TO INIT0199-GO-BACK. DTSBU021
00052 DTSBU021
00053 IF L021-S-TNO2 NOT NUMERIC DTSBU021
00054 OR L021-S-TNO2 = ZERO DTSBU021
00055 PERFORM NOT-VALID-ENTRY THRU NOT-VALID-EXIT DTSBU021
00056 GO TO INIT0199-GO-BACK. DTSBU021
00057 DTSBU021
00058 IF L021-S-TNO3 NOT NUMERIC DTSBU021
00059 PERFORM NOT-VALID-ENTRY THRU NOT-VALID-EXIT DTSBU021
00060 GO TO INIT0199-GO-BACK. DTSBU021
00061 DTSBU021
00062 MOVE L021-S-TNO1 TO L021-TNO-AREA-CD. DTSBU021
00063 MOVE L021-S-TNO2 TO L021-TNO-PREFIX. DTSBU021
00064 MOVE L021-S-TNO3 TO L021-TNO-SUFFIX. DTSBU021
00065 MOVE L021-S-TNO4 TO L021-TNO-EXT. DTSBU021
00066 SET L021-VALID TO TRUE. DTSBU021
00067 INIT0199-GO-BACK. DTSBU021
00068 GOBACK. DTSBU021
00069 NOT-VALID-ENTRY. DTSBU021
00070 SET L021-NOT-VALID TO TRUE. DTSBU021
00071 MOVE SPACE TO L021-TNO. DTSBU021
00072 NOT-VALID-EXIT. DTSBU021
00073 EXIT. DTSBU021