00001 *****                                                             09/11/98
00002 *                                                                 DTSIL012
00003 *    DTSIL012  RATE FROM SCREEN EDIT/FORMAT MODULE LINKAGE.          LV004
00004 *                                                                 DTSIL012
00005 *****                                                             DTSIL012
00006      SKIP1                                                        DTSIL012
00007          10  L012-RESULT-IND             PIC  X(01).              DTSIL012
00008              88  L012-NO-ENTRY               VALUE '0'.           DTSIL012
00009              88  L012-VALID                  VALUE '1'.           DTSIL012
00010              88  L012-NOT-VALID              VALUE '2'.           DTSIL012
00011      SKIP1                                                        DTSIL012
00012          10  L012-S-RATE-AREA.                                    DTSIL012
00013              15  L012-S-RATE-L           PIC S9(04)       COMP.   DTSIL012
00014              15  L012-S-RATE-A           PIC  X(01).              DTSIL012
00015              15  L012-S-RATE             PIC  X(04).                 CL**4
00016      SKIP1                                                        DTSIL012
00017          10  L012-RATE                  PIC S9(01)V9(04) COMP-3.  DTSIL012
00018      SKIP1                                                        DTSIL012
00019          10  FILLER                      PIC  X(17).              DTSIL012