16 lines
1.2 KiB
COBOL
16 lines
1.2 KiB
COBOL
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
|