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

77
CICS/DTSCU025.cob Normal file
View File

@ -0,0 +1,77 @@
00001 IDENTIFICATION DIVISION. 08/06/98
00002 PROGRAM-ID. DTSCU025. DTSCU025
00003 AUTHOR. TRICOASTAL CONSULTING LTD. LV003
00004 DATE-WRITTEN. JULY 1994. DTSCU025
00005 DATE-COMPILED. DTSCU025
00006 SKIP3 DTSCU025
00007 ***** DTSCU025
00008 * DTSCU025
00009 * FUNCTION: TIME FROM SCREEN FORMAT/EDIT MODULE. DTSCU025
00010 * DTSCU025
00011 * DTSCU025
00012 * MODIFICATION LOG: DTSCU025
00013 * DTSCU025
00014 * 08/04/98 INITIAL DEVELOPMENT. MODIFIED FROM MACCU025. CL**2
00015 * WORK ORDER: PROGRAMMER: ZL1. CL**2
00016 * DTSCU025
00017 * XX/XX/XX XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX DTSCU025
00018 * XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX DTSCU025
00019 * WORK ORDER: PROGRAMMER: DTSCU025
00020 * DTSCU025
00021 * DTSCU025
00022 * DESCRIPTION: DTSCU025
00023 * DTSCU025
00024 ***** DTSCU025
00025 SKIP3 DTSCU025
00026 ENVIRONMENT DIVISION. DTSCU025
00027 DATA DIVISION. DTSCU025
00028 SKIP3 DTSCU025
00029 WORKING-STORAGE SECTION. DTSCU025
000295 77 PAN-VALET PICTURE X(24) VALUE '003DTSCU025 08/06/98'. DTSCU025
00030 01 WRK-AREA. DTSCU025
00031 05 WRK-6-TIME PIC 9(06). DTSCU025
00032 05 WRK-6-TIME-X REDEFINES WRK-6-TIME. DTSCU025
00033 10 WRK-6-HR PIC X(02). DTSCU025
00034 88 WRK-6-HR-VALID VALUE '00' THRU '23'. DTSCU025
00035 10 WRK-6-MN PIC X(02). DTSCU025
00036 88 WRK-6-MN-VALID VALUE '00' THRU '59'. DTSCU025
00037 10 WRK-6-SC PIC X(02). DTSCU025
00038 88 WRK-6-SC-VALID VALUE '00' THRU '59'. DTSCU025
00039 DTSCU025
00040 LINKAGE SECTION. DTSCU025
00041 01 DFHCOMMAREA. DTSCU025
00042 ++INCLUDE DTSIL025 CL**3
00043 DTSCU025
00044 PROCEDURE DIVISION. DTSCU025
00045 SKIP2 DTSCU025
00046 IF (L025-S-HR = SPACES OR LOW-VALUES) DTSCU025
00047 AND DTSCU025
00048 (L025-S-MN = SPACES OR LOW-VALUES) DTSCU025
00049 AND DTSCU025
00050 (L025-S-SC = SPACES OR LOW-VALUES) DTSCU025
00051 MOVE ZERO TO L025-TIME DTSCU025
00052 SET L025-NO-ENTRY TO TRUE DTSCU025
00053 GO TO INIT0199-GO-BACK DTSCU025
00054 END-IF. DTSCU025
00055 DTSCU025
00056 MOVE L025-S-HR TO WRK-6-HR. DTSCU025
00057 MOVE L025-S-MN TO WRK-6-MN. DTSCU025
00058 MOVE L025-S-SC TO WRK-6-SC. DTSCU025
00059 DTSCU025
00060 IF WRK-6-HR-VALID DTSCU025
00061 AND WRK-6-MN-VALID DTSCU025
00062 AND WRK-6-SC-VALID DTSCU025
00063 MOVE WRK-6-TIME TO L025-TIME DTSCU025
00064 SET L025-VALID TO TRUE DTSCU025
00065 ELSE DTSCU025
00066 MOVE +0 TO L025-TIME DTSCU025
00067 SET L025-NOT-VALID TO TRUE DTSCU025
00068 END-IF. DTSCU025
00069 DTSCU025
00070 INIT0199-GO-BACK. DTSCU025
00071 DTSCU025
00072 EXEC CICS DTSCU025
00073 RETURN DTSCU025
00074 END-EXEC. DTSCU025
00075 DTSCU025
00076 GOBACK. DTSCU025