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

27
Copybook/DTSIL014.cpy Normal file
View File

@ -0,0 +1,27 @@
00001 ***** 08/24/98
00002 * DTSIL014
00003 * DTSIL014 COUNT FROM SCREEN (ONE DIGIT TO THE RIGHT LV003
00004 * OF THE DECIMAL PLACE) FORMAT/EDIT (WITH MIN/MAX) DTSIL014
00005 * MODULE LINKAGE. DTSIL014
00006 * DTSIL014
00007 ***** DTSIL014
00008 SKIP1 DTSIL014
00009 10 L014-RESULT-IND PIC X(01). DTSIL014
00010 88 L014-NO-ENTRY VALUE '0'. DTSIL014
00011 88 L014-VALID VALUE '1'. DTSIL014
00012 88 L014-NOT-NUMERIC VALUE '2'. DTSIL014
00013 88 L014-INVALID-NEGATIVE VALUE '3'. DTSIL014
00014 88 L014-EXCEEDS-MIN-MAX VALUE '4'. DTSIL014
00015 88 L014-NOT-VALID VALUE '2' '3' '4'. DTSIL014
00016 SKIP1 DTSIL014
00017 10 L014-S-CNT-AREA. DTSIL014
00018 15 L014-S-CNT-L PIC S9(04) COMP. DTSIL014
00019 15 L014-S-CNT-A PIC X(01). DTSIL014
00020 15 L014-S-CNT PIC X(07). DTSIL014
00021 SKIP1 DTSIL014
00022 10 L014-MIN-CNT PIC S9(08)V9(01) COMP-3. DTSIL014
00023 10 L014-MAX-CNT PIC S9(08)V9(01) COMP-3. DTSIL014
00024 SKIP1 DTSIL014
00025 10 L014-CNT PIC S9(08)V9(01) COMP-3. DTSIL014
00026 SKIP1 DTSIL014
00027 10 FILLER PIC X(04). DTSIL014