00001 *****                                                             05/08/02
00002 *    OJRIS001  WINDOW FOR EDITING DATES                           OJRIS001
00003 *****                                                                LV001
00004      15  FILLER                                  PIC  X(12).      OJRIS001
00005                                                                   OJRIS001
00006      15  MAP-DATE-MM-AREA.                                        OJRIS001
00007          20  MAP-DATE-MM-L                       PIC S9(04) COMP. OJRIS001
00008          20  MAP-DATE-MM-A                       PIC  X(01).      OJRIS001
00009          20  MAP-DATE-MM                         PIC  X(02).      OJRIS001
00010                                                                   OJRIS001
00011      15  MAP-DATE-DD-AREA.                                        OJRIS001
00012          20  MAP-DATE-DD-L                       PIC S9(04) COMP. OJRIS001
00013          20  MAP-DATE-DD-A                       PIC  X(01).      OJRIS001
00014          20  MAP-DATE-DD                         PIC  X(02).      OJRIS001
00015                                                                   OJRIS001
00016      15  MAP-DATE-YY-AREA.                                        OJRIS001
00017          20  MAP-DATE-YY-L                       PIC S9(04) COMP. OJRIS001
00018          20  MAP-DATE-YY-A                       PIC  X(01).      OJRIS001
00019          20  MAP-DATE-YY                         PIC  X(02).      OJRIS001
00020                                                                   OJRIS001
00021                                                                   OJRIS001
00022 *    15  F8B2320.                                                 OJRIS001
00023 *        20  MAP-KEY-SUBMIT-L                    PIC S9(04) COMP. OJRIS001
00024 *        20  MAP-KEY-SUBMIT-A                    PIC  X(01).      OJRIS001
00025 *        20  MAP-KEY-SUBMIT                      PIC  X(09).      OJRIS001
00026                                                                   OJRIS001
00027      15  MAP-MSG-AREA.                                            OJRIS001
00028          20  MAP-MSG-TEXT-AREA.                                   OJRIS001
00029              25  MAP-MSG-TEXT-L                 PIC S9(04) COMP.  OJRIS001
00030              25  MAP-MSG-TEXT-A                 PIC  X(01).       OJRIS001
00031              25  MAP-MSG-TEXT                   PIC  X(16).       OJRIS001