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/DTSIL037.cpy Normal file
View File

@ -0,0 +1,33 @@
00001 ***** 11/04/98
00002 * DTSIL037
00003 * DTSIL037 MISCELLANEOUS CODES EDIT/DESCRIPTION LV002
00004 * MODULE LINKAGE. DTSIL037
00005 * DTSIL037
00006 ***** DTSIL037
00007 SKIP1 DTSIL037
00008 10 L037-OPTION PIC S9(04) COMP. DTSIL037
00009 88 L037-MTCK-TYPE VALUE +01. DTSIL037
00010 SKIP1 DTSIL037
00011 10 L037-RESULT-IND PIC X(01). DTSIL037
00012 88 L037-VALID VALUE '1'. DTSIL037
00013 88 L037-NOT-VALID VALUE '2'. DTSIL037
00014 SKIP1 DTSIL037
00015 10 L037-CD PIC X(05). DTSIL037
00016 10 FILLER REDEFINES L037-CD. DTSIL037
00017 15 L037-CD-1 PIC X(01). DTSIL037
00018 15 FILLER PIC X(04). DTSIL037
00019 10 FILLER REDEFINES L037-CD. DTSIL037
00020 15 L037-CD-2 PIC X(02). DTSIL037
00021 15 FILLER PIC X(03). DTSIL037
00022 10 FILLER REDEFINES L037-CD. DTSIL037
00023 15 L037-CD-3 PIC X(03). DTSIL037
00024 15 FILLER PIC X(02). DTSIL037
00025 10 FILLER REDEFINES L037-CD. DTSIL037
00026 15 L037-CD-4 PIC X(04). DTSIL037
00027 15 FILLER PIC X(01). DTSIL037
00028 10 L037-CD-5 REDEFINES L037-CD PIC X(05). DTSIL037
00029 SKIP1 DTSIL037
00030 10 L037-SHORT-DSCR PIC X(10). DTSIL037
00031 10 L037-LONG-DSCR PIC X(40). DTSIL037
00032 SKIP1 DTSIL037
00033 10 FILLER PIC X(04). DTSIL037