00001 ***** 10/15/98 00002 * DTSIMDST 00003 * DTSIMDST MASTER FILE 'DISTRIBUTION' RECORD DEFINITION. LV003 00004 * DTSIMDST 00005 * CL**2 00006 * 08/28/1998 REVIEWED AND MODIFIED FOR DC. EHH CL**2 00007 * CL**2 00008 ***** DTSIMDST 00009 CL**2 00010 10 MDST-KEY-AREA. DTSIMDST 00011 15 MDST-EMP-NO PIC S9(07) COMP-3. DTSIMDST 00012 15 MDST-REC-TYPE PIC S9(04) COMP. DTSIMDST 00013 88 MDST-DST-88 VALUE +48. DTSIMDST 00014 15 MDST-YRQ PIC S9(05) COMP-3. DTSIMDST 00015 88 MDST-CREDIT-REC-88 VALUE +99999. DTSIMDST 00016 15 MDST-DOC-NO. DTSIMDST 00017 20 MDST-BATCH-NO PIC S9(05) COMP-3. DTSIMDST 00018 20 MDST-ITEM-NO PIC S9(03) COMP-3. DTSIMDST 00019 15 MDST-KEY-FILLER PIC X(02). DTSIMDST 00020 CL**2 00021 CL**2 00022 10 MDST-PURGE-DATE PIC S9(09) COMP-3. DTSIMDST 00023 CL**2 00024 CL**2 00025 10 MDST-DATA-AREA. DTSIMDST 00026 15 MDST-RECEIVED-DATE PIC S9(09) COMP-3. DTSIMDST 00027 CL**2 00028 CL**2 00029 15 FILLER PIC X(14). DTSIMDST 00030 CL**2 00031 CL**2 00032 15 MDST-CONVERTED-IND PIC X(01). DTSIMDST 00033 88 MDST-CONVERTED-88 VALUE 'Y'. DTSIMDST 00034 88 MDST-NOT-CONVERTED-88 VALUE 'N'. DTSIMDST 00035 CL**2 00036 CL**2 00037 15 MDST-ESTB-DATE PIC S9(09) COMP-3. DTSIMDST 00038 CL**2 00039 15 MDST-CHNG-DATE PIC S9(09) COMP-3. DTSIMDST 00040 CL**2 00041 CL**2 00042 15 MDST-ACCT-CNT PIC S9(04) COMP. DTSIMDST 00043 CL**2 00044 15 MDST-ACCT-AREA. DTSIMDST 00045 20 MDST-ACCT-GROUP OCCURS 10 TIMES DTSIMDST 00046 INDEXED BY MDST-ACCT-IDX. DTSIMDST 00047 25 MDST-ACCT-IND PIC X(02). DTSIMDST 00048 88 MDST-ACCT-UI-88 VALUE 'UI'. DTSIMDST 00049 88 MDST-ACCT-SUR-88 VALUE 'SU'. DTSIMDST 00050 88 MDST-ACCT-INT-88 VALUE 'I '. CL**2 00051 88 MDST-ACCT-LATE-PEN-88 VALUE 'LP'. CL**2 00052 88 MDST-ACCT-NSF-PEN-88 VALUE 'NP'. CL**2 00053 88 MDST-ACCT-MISC-PEN-88 VALUE 'MP'. CL**2 00054 88 MDST-ACCT-CR-AVAIL-88 VALUE 'CA'. DTSIMDST 00055 88 MDST-ACCT-CR-WRITE-OFF-88 CL**3 00056 VALUE 'CW'. CL**3 00057 88 MDST-ACCT-CR-TOL-88 VALUE 'CT'. DTSIMDST 00058 88 MDST-ACCT-CREDIT-88 VALUE DTSIMDST 00059 'CA' 'CW' 'CT'. CL**3 00060 88 MDST-ACCT-TAX-88 VALUE DTSIMDST 00061 'UI' 'SU'. CL**2 00062 CL**2 00063 25 MDST-AMT PIC S9(09)V9(02) COMP-3. DTSIMDST