00001 *****                                                             05/08/02
00002 *    OJRIS002  WINDOW FOR EDITING YEAR AND QUARTERS               OJRIS002
00003 *****                                                                LV001
00004      15  FILLER                                  PIC  X(12).      OJRIS002
00005                                                                   OJRIS002
00006      15  MAP-DATE-YY-AREA.                                        OJRIS002
00007          20  MAP-DATE-YY-L                       PIC S9(04) COMP. OJRIS002
00008          20  MAP-DATE-YY-A                       PIC  X(01).      OJRIS002
00009          20  MAP-DATE-YY                         PIC  X(02).      OJRIS002
00010                                                                   OJRIS002
00011      15  MAP-DATE-Q-AREA.                                         OJRIS002
00012          20  MAP-DATE-Q-L                        PIC S9(04) COMP. OJRIS002
00013          20  MAP-DATE-Q-A                        PIC  X(01).      OJRIS002
00014          20  MAP-DATE-Q                          PIC  X(01).      OJRIS002
00015                                                                   OJRIS002
00016      15  MAP-MSG-AREA.                                            OJRIS002
00017          20  MAP-MSG-TEXT-AREA.                                   OJRIS002
00018              25  MAP-MSG-TEXT-L                 PIC S9(04) COMP.  OJRIS002
00019              25  MAP-MSG-TEXT-A                 PIC  X(01).       OJRIS002
00020              25  MAP-MSG-TEXT                   PIC  X(16).       OJRIS002