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

41
Copybook/DTSIL038.cpy Normal file
View File

@ -0,0 +1,41 @@
00001 ***** 02/02/99
00002 * DTSIL038
00003 * DTSIL038 LMI CODES EDIT/DESCRIPTION MODULE LINKAGE. LV002
00004 * DTSIL038
00005 * CL**2
00006 * 02/02/1999 REVIEWED AND MODIFIED FOR DC. EHH CL**2
00007 * CL**2
00008 ***** DTSIL038
00009 CL**2
00010 10 L038-OPTION PIC S9(04) COMP. DTSIL038
00011 88 L038-MPRF-SIC-AUXILIARY-CD VALUE +01. CL**2
00012 88 L038-MPRF-NAICS-AUXILIARY-CD CL**2
00013 VALUE +02. CL**2
00014 88 L038-MPRF-OWN-CD VALUE +03. CL**2
00015 88 L038-MPRF-MULTI-IND VALUE +04. CL**2
00016 88 L038-MPRF-WARD-CD VALUE +05. CL**2
00017 CL**2
00018 10 L038-RESULT-IND PIC X(01). DTSIL038
00019 88 L038-VALID VALUE '1'. DTSIL038
00020 88 L038-NOT-VALID VALUE '2'. DTSIL038
00021 CL**2
00022 10 L038-CD PIC X(05). DTSIL038
00023 10 FILLER REDEFINES L038-CD. DTSIL038
00024 15 L038-CD-1 PIC X(01). DTSIL038
00025 15 FILLER PIC X(04). DTSIL038
00026 10 FILLER REDEFINES L038-CD. DTSIL038
00027 15 L038-CD-2 PIC X(02). DTSIL038
00028 15 FILLER PIC X(03). DTSIL038
00029 10 FILLER REDEFINES L038-CD. DTSIL038
00030 15 L038-CD-3 PIC X(03). DTSIL038
00031 15 FILLER PIC X(02). DTSIL038
00032 10 FILLER REDEFINES L038-CD. DTSIL038
00033 15 L038-CD-4 PIC X(04). DTSIL038
00034 15 FILLER PIC X(01). DTSIL038
00035 10 L038-CD-5 REDEFINES L038-CD PIC X(05). DTSIL038
00036 CL**2
00037 10 L038-SHORT-DSCR PIC X(10). DTSIL038
00038 CL**2
00039 10 L038-LONG-DSCR PIC X(40). DTSIL038
00040 CL**2
00041 10 FILLER PIC X(06). CL**2