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

28
Copybook/DTSIL025.cpy Normal file
View File

@ -0,0 +1,28 @@
00001 ***** 08/24/98
00002 * DTSIL025
00003 * DTSIL025 TIME FROM SCREEN FORMAT/EDIT MODULE LINKAGE. LV003
00004 * DTSIL025
00005 ***** DTSIL025
00006 SKIP1 DTSIL025
00007 10 L025-RESULT-IND PIC X(01). DTSIL025
00008 88 L025-NO-ENTRY VALUE '0'. DTSIL025
00009 88 L025-VALID VALUE '1'. DTSIL025
00010 88 L025-NOT-VALID VALUE '2'. DTSIL025
00011 SKIP1 DTSIL025
00012 10 L025-S-TIME-AREA. DTSIL025
00013 15 L025-S-HR-AREA. DTSIL025
00014 20 L025-S-HR-L PIC S9(04) COMP. DTSIL025
00015 20 L025-S-HR-A PIC X(01). DTSIL025
00016 20 L025-S-HR PIC X(02). DTSIL025
00017 15 L025-S-MN-AREA. DTSIL025
00018 20 L025-S-MN-L PIC S9(04) COMP. DTSIL025
00019 20 L025-S-MN-A PIC X(01). DTSIL025
00020 20 L025-S-MN PIC X(02). DTSIL025
00021 15 L025-S-SC-AREA. DTSIL025
00022 20 L025-S-SC-L PIC S9(04) COMP. DTSIL025
00023 20 L025-S-SC-A PIC X(01). DTSIL025
00024 20 L025-S-SC PIC X(02). DTSIL025
00025 SKIP1 DTSIL025
00026 10 L025-TIME PIC S9(07) COMP-3. DTSIL025
00027 SKIP1 DTSIL025
00028 10 FILLER PIC X(10). DTSIL025