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

@ -0,0 +1,33 @@
00001 ***** 09/23/98
00002 * DTSIL023
00003 * DTSIL023 RESERVE RATIOS FROM SCREEN EDIT/FORMAT MODULE LV006
00004 * LINKAGE. DTSIL023
00005 * DTSIL023
00006 ***** DTSIL023
00007 SKIP1 DTSIL023
00008 10 L023-RESULT-IND PIC X(01). DTSIL023
00009 88 L023-VALID VALUE '0'. CL**6
00010 88 L023-NO-MIN-ENTRY VALUE '1'. CL**6
00011 88 L023-NO-MAX-ENTRY VALUE '2'. CL**6
00012 88 L023-NO-MIN-MAX-ENTRY VALUE '3'. CL**6
00013 88 L023-EXCEEDS-MIN-MAX VALUE '4'. CL**6
00014 88 L023-CROSS-EDIT-ERROR VALUE '5'. CL**6
00015 88 L023-NOT-VALID VALUE '6'. CL**6
00016 10 L023-MINIMUM-VALID-IND PIC X(01). DTSIL023
00017 88 L023-MIN-VALID VALUE 'Y'. DTSIL023
00018 88 L023-MIN-NOT-VALID VALUE 'N'. DTSIL023
00019 SKIP1 DTSIL023
00020 10 L023-S-RATIO-AREA. DTSIL023
00021 15 L023-S-MIN-RATIO-AREA. DTSIL023
00022 20 L023-S-MIN-RATIO-L PIC S9(04) COMP. DTSIL023
00023 20 L023-S-MIN-RATIO-A PIC X(01). DTSIL023
00024 20 L023-S-MIN-RATIO PIC X(05). CL**2
00025 15 L023-S-MAX-RATIO-AREA. DTSIL023
00026 20 L023-S-MAX-RATIO-L PIC S9(04) COMP. DTSIL023
00027 20 L023-S-MAX-RATIO-A PIC X(01). DTSIL023
00028 20 L023-S-MAX-RATIO PIC X(05). CL**2
00029 SKIP1 DTSIL023
00030 10 L023-MIN-RATIO PIC S9(02)V9(05) COMP-3. CL**2
00031 10 L023-MAX-RATIO PIC S9(02)V9(05) COMP-3. CL**2
00032 SKIP1 DTSIL023
00033 10 FILLER PIC X(13). DTSIL023