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