00001 ***** 11/11/02 00002 * DTSIL013 00003 * DTSIL013 COUNT FROM SCREEN (INTEGERS) EDIT/FORMAT LV006 00004 * (WITH MIN/MAX) MODULE LINKAGE. DTSIL013 00005 * DTSIL013 00006 ***** DTSIL013 00007 SKIP1 DTSIL013 00008 10 L013-RESULT-IND PIC X(01). DTSIL013 00009 88 L013-NO-ENTRY VALUE '0'. DTSIL013 00010 88 L013-VALID VALUE '1'. DTSIL013 00011 88 L013-NOT-NUMERIC VALUE '2'. DTSIL013 00012 88 L013-INVALID-NEGATIVE VALUE '3'. DTSIL013 00013 88 L013-EXCEEDS-MIN-MAX VALUE '4'. DTSIL013 00014 88 L013-NOT-VALID VALUE '2' '3' '4'. DTSIL013 00015 SKIP1 DTSIL013 00016 10 L013-S-CNT-AREA. DTSIL013 00017 15 L013-S-CNT-L PIC S9(04) COMP. DTSIL013 00018 15 L013-S-CNT-A PIC X(01). DTSIL013 00019 15 L013-S-CNT PIC X(10). DTSIL013 00020 SKIP1 DTSIL013 00021 10 L013-MIN-CNT PIC S9(10) COMP-3. DTSIL013 00022 10 L013-MAX-CNT PIC S9(10) COMP-3. DTSIL013 00023 SKIP1 DTSIL013 00024 10 L013-CNT PIC S9(10) COMP-3. DTSIL013 00025 SKIP1 DTSIL013 00026 10 FILLER PIC X(07). DTSIL013