DUTAS re-platformed to Raincode - Initial Source Code
This commit is contained in:
15
Copybook/OJRIS003.cpy
Normal file
15
Copybook/OJRIS003.cpy
Normal file
@ -0,0 +1,15 @@
|
||||
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
|
||||
Reference in New Issue
Block a user