21 lines
1.6 KiB
COBOL
21 lines
1.6 KiB
COBOL
00001 ***** 05/08/02
|
|
00002 * OJRIS002 WINDOW FOR EDITING YEAR AND QUARTERS OJRIS002
|
|
00003 ***** LV001
|
|
00004 15 FILLER PIC X(12). OJRIS002
|
|
00005 OJRIS002
|
|
00006 15 MAP-DATE-YY-AREA. OJRIS002
|
|
00007 20 MAP-DATE-YY-L PIC S9(04) COMP. OJRIS002
|
|
00008 20 MAP-DATE-YY-A PIC X(01). OJRIS002
|
|
00009 20 MAP-DATE-YY PIC X(02). OJRIS002
|
|
00010 OJRIS002
|
|
00011 15 MAP-DATE-Q-AREA. OJRIS002
|
|
00012 20 MAP-DATE-Q-L PIC S9(04) COMP. OJRIS002
|
|
00013 20 MAP-DATE-Q-A PIC X(01). OJRIS002
|
|
00014 20 MAP-DATE-Q PIC X(01). OJRIS002
|
|
00015 OJRIS002
|
|
00016 15 MAP-MSG-AREA. OJRIS002
|
|
00017 20 MAP-MSG-TEXT-AREA. OJRIS002
|
|
00018 25 MAP-MSG-TEXT-L PIC S9(04) COMP. OJRIS002
|
|
00019 25 MAP-MSG-TEXT-A PIC X(01). OJRIS002
|
|
00020 25 MAP-MSG-TEXT PIC X(16). OJRIS002
|