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/DTSIL015.cpy Normal file
View File

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