38 lines
2.9 KiB
COBOL
38 lines
2.9 KiB
COBOL
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
|