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

33
Copybook/DTSIL002.cpy Normal file
View File

@ -0,0 +1,33 @@
00001 ***** 09/29/98
00002 * DTSIL002
00003 * DTSIL002 DISPLAY DATE IN TEXT FORMAT MODULE LINKAGE. LV005
00004 * DTSIL002
00005 * LONG TEXT AREA EXAMPLE: SEPTEMBER 30, 1994 DTSIL002
00006 * LONG TEXT AREA EXAMPLE: SEPTEMBER 1, 1994 DTSIL002
00007 * DTSIL002
00008 * SHORT TEXT AREA EXAMPLE: SEP 30, 1994 DTSIL002
00009 * SHORT TEXT AREA EXAMPLE: SEP 1, 1994 DTSIL002
00010 * DTSIL002
00011 ***** DTSIL002
00012 CL**5
00013 10 L002-OPTION PIC X(01). DTSIL002
00014 88 L002-UPPER-CASE VALUE '1'. DTSIL002
00015 88 L002-MIXED-CASE VALUE '2'. DTSIL002
00016 CL**5
00017 10 L002-DATE PIC S9(09) COMP-3. DTSIL002
00018 CL**5
00019 10 L002-LONG-TEXT-CNT PIC S9(04) COMP. DTSIL002
00020 10 L002-LONG-TEXT-AREA PIC X(18). DTSIL002
00021 10 FILLER REDEFINES L002-LONG-TEXT-AREA. DTSIL002
00022 15 L002-LONG-TEXT-CHAR OCCURS 18 TIMES DTSIL002
00023 INDEXED BY L002-LONG-TEXT-IDX DTSIL002
00024 PIC X(01). DTSIL002
00025 CL**5
00026 10 L002-SHORT-TEXT-CNT PIC S9(04) COMP. DTSIL002
00027 10 L002-SHORT-TEXT-AREA PIC X(12). DTSIL002
00028 10 FILLER REDEFINES L002-SHORT-TEXT-AREA. DTSIL002
00029 15 L002-SHORT-TEXT-CHAR OCCURS 12 TIMES DTSIL002
00030 INDEXED BY L002-SHORT-TEXT-IDX DTSIL002
00031 PIC X(01). DTSIL002
00032 CL**5
00033 10 FILLER PIC X(22). CL**3