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