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

44
Copybook/DTSIL008.cpy Normal file
View File

@ -0,0 +1,44 @@
00001 ***** 09/29/98
00002 * DTSIL008
00003 * DTSIL008 DISPLAY QUARTER IN TEXT FORMAT MODULE LINKAGE. LV004
00004 * DTSIL008
00005 * EXAMPLE: YRQ = 19944 UPPER-CASE MIXED CASE DTSIL008
00006 * DTSIL008
00007 * LONG-MONTH-1 OCTOBER October DTSIL008
00008 * LONG-MONTH-2 NOVEMBER November DTSIL008
00009 * LONG-MONTH-3 DECEMBER December DTSIL008
00010 * DTSIL008
00011 * SHORT-MONTH-1 OCT Oct DTSIL008
00012 * SHORT-MONTH-2 NOV Nov DTSIL008
00013 * SHORT-MONTH-3 DEC Dec DTSIL008
00014 * DTSIL008
00015 * SHORT-DSCR 3RD 3rd DTSIL008
00016 * LONG-DSCR THIRD Third DTSIL008
00017 * DTSIL008
00018 * YEAR 1994 1994 DTSIL008
00019 * DTSIL008
00020 ***** DTSIL008
00021 CL**4
00022 10 L008-OPTION PIC X(01). DTSIL008
00023 88 L008-UPPER-CASE VALUE '1'. DTSIL008
00024 88 L008-MIXED-CASE VALUE '2'. DTSIL008
00025 CL**4
00026 10 L008-YRQ PIC S9(05) COMP-3. DTSIL008
00027 CL**4
00028 10 L008-LONG-MONTHS. DTSIL008
00029 15 L008-LONG-MONTH-1 PIC X(09). DTSIL008
00030 15 L008-LONG-MONTH-2 PIC X(09). DTSIL008
00031 15 L008-LONG-MONTH-3 PIC X(09). DTSIL008
00032 CL**4
00033 10 L008-SHORT-MONTHS. DTSIL008
00034 15 L008-SHORT-MONTH-1 PIC X(03). DTSIL008
00035 15 L008-SHORT-MONTH-2 PIC X(03). DTSIL008
00036 15 L008-SHORT-MONTH-3 PIC X(03). DTSIL008
00037 CL**4
00038 10 L008-YEAR PIC X(04). DTSIL008
00039 CL**4
00040 10 L008-SHORT-DSCR PIC X(03). DTSIL008
00041 CL**4
00042 10 L008-LONG-DSCR PIC X(06). DTSIL008
00043 CL**4
00044 10 FILLER PIC X(41). DTSIL008