00001 ***** 05/08/02 00002 * OJRIS003 WINDOW FOR EDITING USER IDS OJRIS003 00003 ***** LV001 00004 15 FILLER PIC X(12). OJRIS003 00005 OJRIS003 00006 15 MAP-UID-AREA. OJRIS003 00007 20 MAP-UID-L PIC S9(04) COMP. OJRIS003 00008 20 MAP-UID-A PIC X(01). OJRIS003 00009 20 MAP-UID PIC X(08). OJRIS003 00010 OJRIS003 00011 15 MAP-MSG-AREA. OJRIS003 00012 20 MAP-MSG-TEXT-AREA. OJRIS003 00013 25 MAP-MSG-TEXT-L PIC S9(04) COMP. OJRIS003 00014 25 MAP-MSG-TEXT-A PIC X(01). OJRIS003 00015 25 MAP-MSG-TEXT PIC X(16). OJRIS003