DUTAS re-platformed to Raincode - Initial Source Code
This commit is contained in:
31
Copybook/OJRIS001.cpy
Normal file
31
Copybook/OJRIS001.cpy
Normal file
@ -0,0 +1,31 @@
|
||||
00001 ***** 05/08/02
|
||||
00002 * OJRIS001 WINDOW FOR EDITING DATES OJRIS001
|
||||
00003 ***** LV001
|
||||
00004 15 FILLER PIC X(12). OJRIS001
|
||||
00005 OJRIS001
|
||||
00006 15 MAP-DATE-MM-AREA. OJRIS001
|
||||
00007 20 MAP-DATE-MM-L PIC S9(04) COMP. OJRIS001
|
||||
00008 20 MAP-DATE-MM-A PIC X(01). OJRIS001
|
||||
00009 20 MAP-DATE-MM PIC X(02). OJRIS001
|
||||
00010 OJRIS001
|
||||
00011 15 MAP-DATE-DD-AREA. OJRIS001
|
||||
00012 20 MAP-DATE-DD-L PIC S9(04) COMP. OJRIS001
|
||||
00013 20 MAP-DATE-DD-A PIC X(01). OJRIS001
|
||||
00014 20 MAP-DATE-DD PIC X(02). OJRIS001
|
||||
00015 OJRIS001
|
||||
00016 15 MAP-DATE-YY-AREA. OJRIS001
|
||||
00017 20 MAP-DATE-YY-L PIC S9(04) COMP. OJRIS001
|
||||
00018 20 MAP-DATE-YY-A PIC X(01). OJRIS001
|
||||
00019 20 MAP-DATE-YY PIC X(02). OJRIS001
|
||||
00020 OJRIS001
|
||||
00021 OJRIS001
|
||||
00022 * 15 F8B2320. OJRIS001
|
||||
00023 * 20 MAP-KEY-SUBMIT-L PIC S9(04) COMP. OJRIS001
|
||||
00024 * 20 MAP-KEY-SUBMIT-A PIC X(01). OJRIS001
|
||||
00025 * 20 MAP-KEY-SUBMIT PIC X(09). OJRIS001
|
||||
00026 OJRIS001
|
||||
00027 15 MAP-MSG-AREA. OJRIS001
|
||||
00028 20 MAP-MSG-TEXT-AREA. OJRIS001
|
||||
00029 25 MAP-MSG-TEXT-L PIC S9(04) COMP. OJRIS001
|
||||
00030 25 MAP-MSG-TEXT-A PIC X(01). OJRIS001
|
||||
00031 25 MAP-MSG-TEXT PIC X(16). OJRIS001
|
||||
Reference in New Issue
Block a user