64 lines
5.0 KiB
COBOL
64 lines
5.0 KiB
COBOL
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
|