****************************************************************** * * * TABLE: RERH-TABLE * * * * CODE: RERH * * * * NUMBER: 0780 * * * * KEY: RECEIV-NUMBER * * * * LENGTH: 100 * * * ***************************************************************** 05 RERH-RECORD-KEY. 07 RECEIV-NUMBER PIC X(09). 05 RERH-RESULT-FIELDS. 07 CUSTOMER-ID. 09 CUST-CODE PIC X(10). 09 CUST-ADDR-IND PIC X(01). 07 FREQUENCY-TYPE PIC X(01). 07 STATUS-RE PIC X(01). 07 BILLING-CODE PIC X(04). 07 INSTRUCTION-CODE PIC X(12). 07 EFFECTIVE-DATE. 09 EFFECTIVE-YR. 11 EFFECTIVE-CC PIC X(02). 11 EFFECTIVE-YY PIC X(02). 09 EFFECTIVE-MNTH PIC X(02). 09 EFFECTIVE-DAY PIC X(02). 07 EXPIRATION-DATE. 09 EXPIRATION-YR. 11 EXPIRATION-CC PIC X(02). 11 EXPIRATION-YY PIC X(02). 09 EXPIRATION-MNTH PIC X(02). 09 EXPIRATION-DAY PIC X(02). 07 LAST-SEL-DATE. 09 LAST-SEL-YR. 11 LAST-SEL-CC PIC X(02). 11 LAST-SEL-YY PIC X(02). 09 LAST-SEL-MNTH PIC X(02). 09 LAST-SEL-DAY PIC X(02). 07 SUBMITTING-AGENCY PIC X(03). 07 RE-COMMENTS PIC X(30). 07 OFF-BLD-REC-ACCT PIC X(04). 07 THIRD-PARTY-BILL-FL PIC X(01).