00001 ***** 02/03/99 00002 * DTSIR426 00003 * MACIR426 COLLECTIONS SUMMARY REPORT RECORD. LV003 00004 * DTSIR426 00005 * NOTE: THERE IS EXACTLY ONE REPORT RECORD FOR DTSIR426 00006 * EACH EMPLOYER COUNTED ON THE REPORT. THE DTSIR426 00007 * DUE AMOUNTS FOR THAT EMPLOYER ARE DTSIR426 00008 * ACCUMULATED IN UP TO 7 ACCT OCCURENCES DTSIR426 00009 * DERIVED FROM THE MQTR-ACCT-GROUP DTSIR426 00010 * OCCURANCES IN THE MQTR RECORDS. DTSIR426 00011 * DTSIR426 00012 ***** DTSIR426 00013 SKIP1 DTSIR426 00014 10 R426-LENGTH PIC S9(04) COMP. CL**2 00015 SKIP1 DTSIR426 00016 10 R426-SORT-AREA. DTSIR426 00017 15 R426-REC-TYPE PIC X(03) VALUE '426'. DTSIR426 00018 15 R426-FIELD-REP-ID PIC X(02). DTSIR426 00019 15 R426-CATEGORY PIC X(01). DTSIR426 00020 88 R426-CATEGORY-FLD-ASSIGN-88 VALUE '1'. DTSIR426 00021 88 R426-CATEGORY-BANKRPT-88 VALUE '2'. DTSIR426 00022 88 R426-CATEGORY-NOT-BANKRPT-88 VALUE '3'. DTSIR426 00023 15 R426-CATEGORY-9 REDEFINES R426-CATEGORY DTSIR426 00024 PIC 9(01). DTSIR426 00025 SKIP1 DTSIR426 00026 10 R426-DATA-AREA. DTSIR426 00027 15 R426-COMP-DATE PIC S9(09) COMP-3. DTSIR426 00028 15 R426-FLD-TYPE-CNT PIC S9(04) COMP. DTSIR426 00029 15 R426-FLD-TYPE OCCURS 3 TIMES DTSIR426 00030 PIC X(02). DTSIR426 00031 15 R426-ACCT-CNT PIC S9(04) COMP. DTSIR426 00032 15 R426-ACCT-OCCURS OCCURS 4 TIMES. CL**3 00033 20 R426-ACCT-IND PIC X(02). DTSIR426 00034 20 R426-LIENED-BAL-AMT DTSIR426 00035 PIC S9(09)V99 COMP-3. DTSIR426 00036 20 R426-NOT-LIENED-BAL-AMT DTSIR426 00037 PIC S9(09)V99 COMP-3. DTSIR426