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

@ -0,0 +1,33 @@
00001 ***** 11/09/98
00002 * DTSIL053
00003 * DTSIL053 UI RATE LOOKUP MODULE LINKAGE. LV004
00004 * DTSIL053
00005 * CL**2
00006 * 11/09/1998 REVIEWED AND MODIFIED FOR DC. EHH CL**2
00007 * CL**2
00008 ***** DTSIL053
00009 CL**2
00010 10 L053-EFF-YRQ PIC S9(05) COMP-3. DTSIL053
00011 CL**2
00012 10 L053-UI-RATE-CATEGORY PIC X(01). CL**4
00013 88 L053-NONCLASSIFIED-88 VALUE 'N'. CL**3
00014 88 L053-CLASSIFIED-88 VALUE 'C'. CL**3
00015 CL**3
00016 10 L053-LOOKUP-CODE PIC X(01). CL**3
00017 88 L053-STANDARD-LOOKUP-88 VALUE 'S'. CL**3
00018 88 L053-PENALTY-LOOKUP-88 VALUE 'P'. CL**2
00019 CL**2
00020 10 L053-RATIO PIC S9(02)V9(05) COMP-3. CL**2
00021 CL**2
00022 10 L053-RESULT-IND PIC X(01). DTSIL053
00023 88 L053-RATE-FOUND VALUE '1'. DTSIL053
00024 88 L053-RATE-NOT-FOUND VALUE '2'. DTSIL053
00025 88 L053-FILE-CLOSED VALUE '3'. DTSIL053
00026 CL**2
00027 10 L053-UI-RATE PIC S9(01)V9(04) COMP-3.DTSIL053
00028 CL**2
00029 10 L053-MSG-AREA. DTSIL053
00030 15 L053-MSG-ID PIC X(04). DTSIL053
00031 15 L053-MSG-TEXT PIC X(60). DTSIL053
00032 CL**2
00033 10 FILLER PIC X(47). CL**2