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

26
Copybook/DTSIL011.cpy Normal file
View File

@ -0,0 +1,26 @@
00001 ***** 08/24/98
00002 * DTSIL011
00003 * DTSIL011 AMOUNT (DOLLARS AND CENTS) FROM SCREEN EDIT/FORMAT LV003
00004 * (WITH MIN/MAX) MODULE LINKAGE. DTSIL011
00005 * DTSIL011
00006 ***** DTSIL011
00007 SKIP1 DTSIL011
00008 10 L011-RESULT-IND PIC X(01). DTSIL011
00009 88 L011-NO-ENTRY VALUE '0'. DTSIL011
00010 88 L011-VALID VALUE '1'. DTSIL011
00011 88 L011-NOT-NUMERIC VALUE '2'. DTSIL011
00012 88 L011-INVALID-NEGATIVE VALUE '3'. DTSIL011
00013 88 L011-EXCEEDS-MIN-MAX VALUE '4'. DTSIL011
00014 88 L011-NOT-VALID VALUE '2' '3' '4'. DTSIL011
00015 SKIP1 DTSIL011
00016 10 L011-S-AMT-AREA. DTSIL011
00017 15 L011-S-AMT-L PIC S9(04) COMP. DTSIL011
00018 15 L011-S-AMT-A PIC X(01). DTSIL011
00019 15 L011-S-AMT PIC X(18). DTSIL011
00020 SKIP1 DTSIL011
00021 10 L011-MIN-AMT PIC S9(11)V9(02) COMP-3. DTSIL011
00022 10 L011-MAX-AMT PIC S9(11)V9(02) COMP-3. DTSIL011
00023 SKIP1 DTSIL011
00024 10 L011-AMT PIC S9(11)V9(02) COMP-3. DTSIL011
00025 SKIP1 DTSIL011
00026 10 FILLER PIC X(19). DTSIL011