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

85
Copybook/DTSIL001.cpy Normal file
View File

@ -0,0 +1,85 @@
00001 ***** 12/21/99
00002 * DTSIL001
00003 * DTSIL001 DATE EDIT/CONVERSION MODULE LINKAGE. LV007
00004 * DTSIL001
00005 * CL**5
00006 * 09/29/1998 L001-SLASH-8-DATE ADDED TO LINKAGE CL**5
00007 * (REPLACING FILLER). EHH CL**5
00008 * CL**5
00009 ***** DTSIL001
00010 CL**4
00011 10 L001-OPTION PIC X(1). DTSIL001
00012 88 L001-FROM-CAL-8 VALUE '0'. DTSIL001
00013 88 L001-FROM-FED-8 VALUE '1'. DTSIL001
00014 88 L001-FROM-JUL VALUE '2'. DTSIL001
00015 88 L001-FROM-ABS-DAY VALUE '3'. DTSIL001
00016 88 L001-FROM-CAL-6 VALUE '4'. DTSIL001
00017 88 L001-FROM-FED-6 VALUE '5'. DTSIL001
00018 88 L001-FROM-NINES-COMPLEMENT VALUE '6'. DTSIL001
00019 CL**4
00020 10 L001-DAY-OF-WEEK PIC S9(1) COMP-3. DTSIL001
00021 88 L001-INVALID-DATE VALUE +0. DTSIL001
00022 88 L001-SUNDAY VALUE +1. DTSIL001
00023 88 L001-MONDAY VALUE +2. DTSIL001
00024 88 L001-TUESDAY VALUE +3. DTSIL001
00025 88 L001-WEDNESDAY VALUE +4. DTSIL001
00026 88 L001-THURSDAY VALUE +5. DTSIL001
00027 88 L001-FRIDAY VALUE +6. DTSIL001
00028 88 L001-SATURDAY VALUE +7. DTSIL001
00029 88 L001-VALID-DATE VALUE +1 THRU +7.DTSIL001
00030 CL**4
00031 10 L001-DATE-8-AREA. DTSIL001
00032 15 L001-FED-8-DATE-X. DTSIL001
00033 20 L001-FED-8-YR PIC 9(4). DTSIL001
00034 20 L001-FED-8-MO PIC 9(2). DTSIL001
00035 20 L001-FED-8-DA PIC 9(2). DTSIL001
00036 15 L001-FED-8-DATE-9 REDEFINES L001-FED-8-DATE-X DTSIL001
00037 PIC 9(8). DTSIL001
00038 15 FILLER PIC 9(4). DTSIL001
00039 10 FILLER REDEFINES L001-DATE-8-AREA. DTSIL001
00040 15 FILLER PIC 9(4). DTSIL001
00041 15 L001-CAL-8-DATE-X. DTSIL001
00042 20 L001-CAL-8-MO PIC 9(2). DTSIL001
00043 20 L001-CAL-8-DA PIC 9(2). DTSIL001
00044 20 L001-CAL-8-YR PIC 9(4). DTSIL001
00045 15 L001-CAL-8-DATE-9 REDEFINES L001-CAL-8-DATE-X DTSIL001
00046 PIC 9(8). DTSIL001
00047 CL**4
00048 10 L001-DATE-6-AREA. DTSIL001
00049 15 L001-FED-6-DATE-X. DTSIL001
00050 20 L001-FED-6-YR PIC 9(2). DTSIL001
00051 20 L001-FED-6-MO PIC 9(2). DTSIL001
00052 20 L001-FED-6-DA PIC 9(2). DTSIL001
00053 15 L001-FED-6-DATE-9 REDEFINES L001-FED-6-DATE-X DTSIL001
00054 PIC 9(6). DTSIL001
00055 15 FILLER PIC 9(2). DTSIL001
00056 10 FILLER REDEFINES L001-DATE-6-AREA. DTSIL001
00057 15 FILLER PIC 9(2). DTSIL001
00058 15 L001-CAL-6-DATE-X. DTSIL001
00059 20 L001-CAL-6-MO PIC 9(2). DTSIL001
00060 20 L001-CAL-6-DA PIC 9(2). DTSIL001
00061 20 L001-CAL-6-YR PIC 9(2). DTSIL001
00062 15 L001-CAL-6-DATE-9 REDEFINES L001-CAL-6-DATE-X DTSIL001
00063 PIC 9(6). DTSIL001
00064 CL**4
00065 10 L001-SLASH-DATE. DTSIL001
00066 15 L001-SLASH-MO PIC 9(2). DTSIL001
00067 15 FILLER PIC X(1). DTSIL001
00068 15 L001-SLASH-DA PIC 9(2). DTSIL001
00069 15 FILLER PIC X(1). DTSIL001
00070 15 L001-SLASH-YR PIC 9(2). CL**7
00071 CL**4
00072 10 L001-JUL-DATE PIC S9(7) COMP-3.DTSIL001
00073 CL**4
00074 10 L001-JUL-ABS-DAY PIC S9(8) COMP. DTSIL001
00075 CL**4
00076 10 L001-NINES-COMPLEMENT-DATE PIC S9(09) COMP-3.DTSIL001
00077 CL**4
00078 10 L001-SLASH-8-DATE. CL**4
00079 15 L001-SLASH-8-MO PIC 9(2). CL**4
00080 15 FILLER PIC X(1). CL**4
00081 15 L001-SLASH-8-DA PIC 9(2). CL**4
00082 15 FILLER PIC X(1). CL**4
00083 15 L001-SLASH-8-YR PIC 9(4). CL**4
00084 CL**4
00085 10 FILLER PIC X(09). CL**4