120 lines
9.4 KiB
COBOL
120 lines
9.4 KiB
COBOL
00001 ***** 10/13/98
|
|
00002 * DTSIMCOL
|
|
00003 * DTSIMCOL MASTER FILE 'MISCELLANEOUS COLLECTIONS' RECORD LV003
|
|
00004 * DEFINITION. DTSIMCOL
|
|
00005 * DTSIMCOL
|
|
00006 * CL**2
|
|
00007 * 08/28/1998 REVIEWED AND MODIFIED FOR DC. EHH CL**2
|
|
00008 * CL**2
|
|
00009 ***** DTSIMCOL
|
|
00010 CL**2
|
|
00011 10 MCOL-KEY-AREA. DTSIMCOL
|
|
00012 15 MCOL-EMP-NO PIC S9(07) COMP-3. DTSIMCOL
|
|
00013 15 MCOL-REC-TYPE PIC S9(04) COMP. DTSIMCOL
|
|
00014 88 MCOL-COL-88 VALUE +31. DTSIMCOL
|
|
00015 15 MCOL-KEY-FILLER PIC X(10). DTSIMCOL
|
|
00016 CL**2
|
|
00017 CL**2
|
|
00018 10 MCOL-PURGE-DATE PIC S9(09) COMP-3. DTSIMCOL
|
|
00019 CL**2
|
|
00020 CL**2
|
|
00021 10 MCOL-DATA-AREA. DTSIMCOL
|
|
00022 15 MCOL-BANKRUPTCY-AREA. DTSIMCOL
|
|
00023 20 MCOL-BNK-CHAPTER DTSIMCOL
|
|
00024 PIC X(02). DTSIMCOL
|
|
00025 88 MCOL-BNK-NOT-BANKRUPT-88 VALUE ' '. DTSIMCOL
|
|
00026 88 MCOL-BNK-CHAPTER-7-88 VALUE '07'. DTSIMCOL
|
|
00027 88 MCOL-BNK-CHAPTER-11-88 VALUE '11'. DTSIMCOL
|
|
00028 88 MCOL-BNK-CHAPTER-12-88 VALUE '12'. DTSIMCOL
|
|
00029 88 MCOL-BNK-CHAPTER-13-88 VALUE '13'. DTSIMCOL
|
|
00030 88 MCOL-BNK-BANKRUPT-88 VALUE DTSIMCOL
|
|
00031 '07' '11' '12' '13'. CL**2
|
|
00032 CL**2
|
|
00033 20 MCOL-BNK-CHAPTER-CHNG-DATE DTSIMCOL
|
|
00034 PIC S9(09) COMP-3. DTSIMCOL
|
|
00035 CL**2
|
|
00036 20 MCOL-BNK-COURT-CASE-NO DTSIMCOL
|
|
00037 PIC X(15). DTSIMCOL
|
|
00038 CL**2
|
|
00039 20 MCOL-BNK-PETITION-DATE DTSIMCOL
|
|
00040 PIC S9(09) COMP-3. DTSIMCOL
|
|
00041 CL**2
|
|
00042 20 MCOL-BNK-DISCHRG-CLOSE-DATE DTSIMCOL
|
|
00043 PIC S9(09) COMP-3. DTSIMCOL
|
|
00044 CL**2
|
|
00045 20 MCOL-BNK-DISMISS-DATE DTSIMCOL
|
|
00046 PIC S9(09) COMP-3. DTSIMCOL
|
|
00047 CL**2
|
|
00048 20 MCOL-BNK-POC-REQUIRED-DATE DTSIMCOL
|
|
00049 PIC S9(09) COMP-3. DTSIMCOL
|
|
00050 CL**2
|
|
00051 20 MCOL-BNK-POC-FILED-DATE DTSIMCOL
|
|
00052 PIC S9(09) COMP-3. DTSIMCOL
|
|
00053 CL**2
|
|
00054 20 MCOL-BNK-LAST-COMM-DATE DTSIMCOL
|
|
00055 PIC S9(09) COMP-3. DTSIMCOL
|
|
00056 CL**2
|
|
00057 CL**2
|
|
00058 15 MCOL-INFORMATIONAL-DATES. DTSIMCOL
|
|
00059 20 MCOL-FINAL-NOTICE-DATE CL**2
|
|
00060 PIC S9(09) COMP-3. DTSIMCOL
|
|
00061 CL**2
|
|
00062 20 MCOL-LEGAL-REFERRAL-DATE CL**2
|
|
00063 PIC S9(09) COMP-3. DTSIMCOL
|
|
00064 CL**2
|
|
00065 20 MCOL-CIVIL-ACTION-BEGIN-DATE CL**2
|
|
00066 PIC S9(09) COMP-3. DTSIMCOL
|
|
00067 CL**2
|
|
00068 20 MCOL-CIVIL-ACTION-JUDGE-DATE CL**3
|
|
00069 PIC S9(09) COMP-3. DTSIMCOL
|
|
00070 CL**2
|
|
00071 CL**2
|
|
00072 15 MCOL-SUBPOENA-ACTIVITY-AREA. CL**2
|
|
00073 20 MCOL-SUBPOENA-ACTIVITY-CD CL**2
|
|
00074 PIC X(01). CL**2
|
|
00075 88 MCOL-SUBPOENA-NONE-88 VALUE ' '. CL**2
|
|
00076 88 MCOL-SUBPOENA-ISSUED-88 VALUE 'I'. CL**2
|
|
00077 88 MCOL-SUBPOENA-SERVED-88 VALUE 'S'. CL**2
|
|
00078 88 MCOL-SUBPOENA-APPEARED-88 VALUE 'A'. CL**2
|
|
00079 88 MCOL-SUBPOENA-NO-SHOW-88 VALUE 'N'. CL**2
|
|
00080 88 MCOL-SUBPOENA-CANCELLED-88 VALUE 'C'. CL**2
|
|
00081 88 MCOL-SUBPOENA-COURT-ISSUED-88 VALUE 'O'. CL**2
|
|
00082 CL**2
|
|
00083 20 MCOL-SUBPOENA-RESP-OP-ID CL**2
|
|
00084 PIC X(08). CL**2
|
|
00085 CL**2
|
|
00086 20 MCOL-SUBPOENA-ACTIVITY-DATE CL**2
|
|
00087 PIC S9(09) COMP-3. CL**2
|
|
00088 CL**2
|
|
00089 CL**2
|
|
00090 15 MCOL-STMT-TEXT-PERM-IND PIC X(01). CL**2
|
|
00091 88 MCOL-STMT-TEXT-PERM-NONE-88 VALUE ' '. CL**2
|
|
00092 88 MCOL-STMT-TEXT-PERM-YES-88 VALUE 'Y'. CL**2
|
|
00093 88 MCOL-STMT-TEXT-PERM-NO-88 VALUE 'N'. CL**2
|
|
00094 CL**2
|
|
00095 15 MCOL-STMT-TEXT-TYPE PIC X(01). CL**2
|
|
00096 88 MCOL-STMT-TEXT-TYPE-NONE-88 VALUE ' '. CL**2
|
|
00097 88 MCOL-STMT-TEXT-TYPE-CREDIT-88 VALUE 'C'. CL**2
|
|
00098 88 MCOL-STMT-TEXT-TYPE-DEBIT-88 VALUE 'D'. CL**2
|
|
00099 CL**2
|
|
00100 CL**2
|
|
00101 15 FILLER PIC X(48). CL**2
|
|
00102 CL**2
|
|
00103 CL**2
|
|
00104 15 MCOL-CONVERTED-IND PIC X(01). DTSIMCOL
|
|
00105 88 MCOL-CONVERTED-88 VALUE 'Y'. DTSIMCOL
|
|
00106 88 MCOL-NOT-CONVERTED-88 VALUE 'N'. DTSIMCOL
|
|
00107 CL**2
|
|
00108 CL**2
|
|
00109 15 MCOL-ESTB-DATE PIC S9(09) COMP-3. DTSIMCOL
|
|
00110 CL**2
|
|
00111 15 MCOL-CHNG-DATE PIC S9(09) COMP-3. DTSIMCOL
|
|
00112 CL**2
|
|
00113 CL**2
|
|
00114 15 MCOL-STMT-TEXT-CNT PIC S9(04) COMP. CL**2
|
|
00115 CL**2
|
|
00116 15 MCOL-STMT-TEXT-AREA. CL**2
|
|
00117 20 MCOL-STMT-TEXT PIC X(72) CL**2
|
|
00118 OCCURS 8 TIMES DTSIMCOL
|
|
00119 INDEXED BY MCOL-STMT-TEXT-IDX. CL**2
|