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