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