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

25
Copybook/DTSIL016.cpy Normal file
View File

@ -0,0 +1,25 @@
00001 ***** 08/24/98
00002 * DTSIL016
00003 * DTSIL016 YEAR/QUARTER FROM SCREEN FORMAT/EDIT LV003
00004 * MODULE LINKAGE DTSIL016
00005 * DTSIL016
00006 ***** DTSIL016
00007 SKIP1 DTSIL016
00008 10 L016-RESULT-IND PIC X(01). DTSIL016
00009 88 L016-NO-ENTRY VALUE '0'. DTSIL016
00010 88 L016-VALID VALUE '1'. DTSIL016
00011 88 L016-NOT-VALID VALUE '2'. DTSIL016
00012 SKIP1 DTSIL016
00013 10 L016-S-YRQ-AREA. DTSIL016
00014 15 L016-S-YR-AREA. DTSIL016
00015 20 L016-S-YR-L PIC S9(04) COMP. DTSIL016
00016 20 L016-S-YR-A PIC X(01). DTSIL016
00017 20 L016-S-YR PIC X(02). DTSIL016
00018 15 L016-S-Q-AREA. DTSIL016
00019 20 L016-S-Q-L PIC S9(04) COMP. DTSIL016
00020 20 L016-S-Q-A PIC X(01). DTSIL016
00021 20 L016-S-Q PIC X(01). DTSIL016
00022 SKIP1 DTSIL016
00023 10 L016-YRQ PIC S9(05) COMP-3. DTSIL016
00024 SKIP1 DTSIL016
00025 10 FILLER PIC X(17). DTSIL016