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