95 lines
7.4 KiB
COBOL
95 lines
7.4 KiB
COBOL
00001 01 OJRWE451-DATA-AREA. 11/15/05
|
|
00002 OJRWE451
|
|
00003 05 OJR-PARM-SUBJECT-YRQ PIC X(03). LV001
|
|
00004 OJRWE451
|
|
00005 05 OJR-PARM-RETURN-BY-DATE PIC X(06). OJRWE451
|
|
00006 OJRWE451
|
|
00007 OJRWE451
|
|
00008 05 OJR-SUBJECT-SLASH-QTR PIC X(04). OJRWE451
|
|
00009 OJRWE451
|
|
00010 05 OJR-UC30H-FIRST-DEL-CUTOFF-DTE PIC S9(09) COMP-3. OJRWE451
|
|
00011 OJRWE451
|
|
00012 05 OJR-UC30H-FIRST-DEL-MAIL-DATE PIC S9(09) COMP-3. OJRWE451
|
|
00013 OJRWE451
|
|
00014 05 OJR-FIRST-PURSUED-RPT-YRQ PIC S9(05) COMP-3. OJRWE451
|
|
00015 OJRWE451
|
|
00016 05 OJR-SUBJECT-YRQ-DEF-DUE-DATE PIC S9(09) COMP-3. OJRWE451
|
|
00017 OJRWE451
|
|
00018 OJRWE451
|
|
00019 05 OJR-SUBJECT-YRQ-PURSUED-IND PIC X(01). OJRWE451
|
|
00020 OJRWE451
|
|
00021 05 OJR-SUBJECT-YRQ-RPT-DUE-DATE PIC S9(09) COMP-3. OJRWE451
|
|
00022 OJRWE451
|
|
00023 05 OJR-SUBJECT-YRQ-UI-RATE PIC S9(01)V9(04) COMP-3.OJRWE451
|
|
00024 88 OJR-SUBJECT-YRQ-NO-UI-RATE-88 VALUE -9.9999. OJRWE451
|
|
00025 OJRWE451
|
|
00026 05 OJR-SUB PIC S9(04) COMP. OJRWE451
|
|
00027 OJRWE451
|
|
00028 05 OJR-MTAD-LETTER-SENT-IND PIC X(01). OJRWE451
|
|
00029 88 OJR-MTAD-LETTER-SENT-88 VALUE 'Y'. OJRWE451
|
|
00030 88 OJR-MTAD-NO-LETTER-SENT-88 VALUE 'N'. OJRWE451
|
|
00031 OJRWE451
|
|
00032 05 OJR-MOPO-LETTER-SENT-IND PIC X(01). OJRWE451
|
|
00033 88 OJR-MOPO-LETTER-SENT-88 VALUE 'Y'. OJRWE451
|
|
00034 88 OJR-MOPO-NO-LETTER-SENT-88 VALUE 'N'. OJRWE451
|
|
00035 OJRWE451
|
|
00036 05 OJR-MTAA-LETTER-SENT-IND PIC X(01). OJRWE451
|
|
00037 88 OJR-MTAA-LETTER-SENT-88 VALUE 'Y'. OJRWE451
|
|
00038 88 OJR-MTAA-NO-LETTER-SENT-88 VALUE 'N'. OJRWE451
|
|
00039 OJRWE451
|
|
00040 OJRWE451
|
|
00041 05 OJR-EDIT-STATUS-IND PIC X(01). OJRWE451
|
|
00042 88 OJR-EDIT-PASSED-88 VALUE 'Y'. OJRWE451
|
|
00043 88 OJR-EDIT-FAILED-88 VALUE 'N'. OJRWE451
|
|
00044 OJRWE451
|
|
00045 05 WRK-PARM-SUBJECT-YRQ PIC S9(05) COMP-3. OJRWE451
|
|
00046 05 WRK-PARM-SUBJECT-YR PIC S9(04). OJRWE451
|
|
00047 OJRWE451
|
|
00048 05 WRK-PARM-RETURN-BY-DATE PIC S9(09) COMP-3. OJRWE451
|
|
00049 OJRWE451
|
|
00050 05 WRK-UC30H-FIRST-DEL-YR. OJRWE451
|
|
00051 10 WRK-UC30H-FIRST-DEL-CC PIC 9(02). OJRWE451
|
|
00052 10 WRK-UC30H-FIRST-DEL-YY PIC 9(02). OJRWE451
|
|
00053 OJRWE451
|
|
00054 05 WRK-SUBJECT-SLASH-QTR PIC X(04). OJRWE451
|
|
00055 OJRWE451
|
|
00056 05 WRK-UC30H-FIRST-DEL-CUTOFF-DTE PIC S9(09) COMP-3. OJRWE451
|
|
00057 OJRWE451
|
|
00058 05 WRK-UC30H-FIRST-DEL-MAIL-DATE PIC S9(09) COMP-3. OJRWE451
|
|
00059 OJRWE451
|
|
00060 05 WRK-FIRST-PURSUED-RPT-YRQ PIC S9(05) COMP-3. OJRWE451
|
|
00061 OJRWE451
|
|
00062 05 WRK-SUBJECT-YRQ-DEF-DUE-DATE PIC S9(09) COMP-3. OJRWE451
|
|
00063 OJRWE451
|
|
00064 OJRWE451
|
|
00065 05 WRK-SUBJECT-YRQ-PURSUED-IND PIC X(01). OJRWE451
|
|
00066 OJRWE451
|
|
00067 05 WRK-SUBJECT-YRQ-RPT-DUE-DATE PIC S9(09) COMP-3. OJRWE451
|
|
00068 OJRWE451
|
|
00069 05 WRK-SUBJECT-YRQ-UI-RATE PIC S9(01)V9(04) COMP-3.OJRWE451
|
|
00070 88 WRK-SUBJECT-YRQ-NO-UI-RATE-88 VALUE -9.9999. OJRWE451
|
|
00071 OJRWE451
|
|
00072 05 WRK-SUB PIC S9(04) COMP. OJRWE451
|
|
00073 05 WRK-CURR-YEAR PIC S9(04) COMP-3. OJRWE451
|
|
00074 OJRWE451
|
|
00075 05 WRK-MQTR-FOUND-IND PIC X(01). OJRWE451
|
|
00076 88 WRK-MQTR-FOUND-YES-88 VALUE 'Y'. OJRWE451
|
|
00077 88 WRK-MQTR-FOUND-NO-88 VALUE 'N'. OJRWE451
|
|
00078 OJRWE451
|
|
00079 05 WRK-MTAD-LETTER-SENT-IND PIC X(01). OJRWE451
|
|
00080 88 WRK-MTAD-LETTER-SENT-88 VALUE 'Y'. OJRWE451
|
|
00081 88 WRK-MTAD-NO-LETTER-SENT-88 VALUE 'N'. OJRWE451
|
|
00082 OJRWE451
|
|
00083 05 WRK-MOPO-LETTER-SENT-IND PIC X(01). OJRWE451
|
|
00084 88 WRK-MOPO-LETTER-SENT-88 VALUE 'Y'. OJRWE451
|
|
00085 88 WRK-MOPO-NO-LETTER-SENT-88 VALUE 'N'. OJRWE451
|
|
00086 OJRWE451
|
|
00087 05 WRK-MTAA-LETTER-SENT-IND PIC X(01). OJRWE451
|
|
00088 88 WRK-MTAA-LETTER-SENT-88 VALUE 'Y'. OJRWE451
|
|
00089 88 WRK-MTAA-NO-LETTER-SENT-88 VALUE 'N'. OJRWE451
|
|
00090 OJRWE451
|
|
00091 OJRWE451
|
|
00092 05 WRK-EDIT-STATUS-IND PIC X(01). OJRWE451
|
|
00093 88 WRK-EDIT-PASSED-88 VALUE 'Y'. OJRWE451
|
|
00094 88 WRK-EDIT-FAILED-88 VALUE 'N'. OJRWE451
|