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

23
Copybook/DTSIL010.cpy Normal file
View File

@ -0,0 +1,23 @@
00001 ***** 09/29/98
00002 * DTSIL010
00003 * DTSIL010 TIME VALIDATE/FORMAT MODULE LINKAGE. LV003
00004 * DTSIL010
00005 * RECEIVE A TIME IN HHMMSS FORMAT, VALIDATE IT, DTSIL010
00006 * AND EDIT IT WITH DOTS (HH.MM.SS). DTSIL010
00007 * DTSIL010
00008 ***** DTSIL010
00009 CL**3
00010 10 L010-RETURN-CODE PIC X(01). DTSIL010
00011 88 L010-VALID-TIME VALUE '0'. DTSIL010
00012 88 L010-INVALID-TIME VALUE '1'. DTSIL010
00013 CL**3
00014 10 L010-TIME PIC S9(07) COMP-3. DTSIL010
00015 CL**3
00016 10 L010-DOTS-TIME. DTSIL010
00017 15 L010-DOTS-HH PIC 9(2). DTSIL010
00018 15 FILLER PIC X(1). DTSIL010
00019 15 L010-DOTS-MM PIC 9(2). DTSIL010
00020 15 FILLER PIC X(1). DTSIL010
00021 15 L010-DOTS-SS PIC 9(2). DTSIL010
00022 CL**3
00023 10 FILLER PIC X(19). CL**3