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

29
Copybook/DTSIL029.cpy Normal file
View File

@ -0,0 +1,29 @@
00001 ***** 05/13/99
00002 * DTSIL029
00003 * DTSIL029 YEAR/QUARTER (PICKUP INCLUDED) FROM SCREEN LV005
00004 * FORMAT/EDIT MODULE LINKAGE. CL**4
00005 * DTSIL029
00006 * CL**5
00007 * 05/13/1999 CLONED FROM DTSIL016. CL**5
00008 * REFERENCE: PICKUP DIR PROGRAMMER: EHH CL**5
00009 * CL**5
00010 ***** DTSIL029
00011 CL**4
00012 10 L029-RESULT-IND PIC X(01). CL**4
00013 88 L029-NO-ENTRY VALUE '0'. CL**4
00014 88 L029-VALID VALUE '1'. CL**4
00015 88 L029-NOT-VALID VALUE '2'. CL**4
00016 CL**4
00017 10 L029-S-YRQ-AREA. CL**4
00018 15 L029-S-YR-AREA. CL**4
00019 20 L029-S-YR-L PIC S9(04) COMP. CL**4
00020 20 L029-S-YR-A PIC X(01). CL**4
00021 20 L029-S-YR PIC X(02). CL**4
00022 15 L029-S-Q-AREA. CL**4
00023 20 L029-S-Q-L PIC S9(04) COMP. CL**4
00024 20 L029-S-Q-A PIC X(01). CL**4
00025 20 L029-S-Q PIC X(01). CL**4
00026 CL**4
00027 10 L029-YRQ PIC S9(05) COMP-3. CL**4
00028 CL**4
00029 10 FILLER PIC X(17). DTSIL029