78 lines
6.1 KiB
COBOL
78 lines
6.1 KiB
COBOL
00001 ***** 08/31/98
|
|
00002 * DTSIMTAD
|
|
00003 * DTSIMTAD MASTER FILE 'TAX ADDRESS' RECORD DEFINITION. LV002
|
|
00004 * DTSIMTAD
|
|
00005 * CL**2
|
|
00006 * 08/31/1998 REVIEWED AND MODIFIED FOR DC. EHH CL**2
|
|
00007 * CL**2
|
|
00008 ***** DTSIMTAD
|
|
00009 CL**2
|
|
00010 10 MTAD-KEY-AREA. DTSIMTAD
|
|
00011 15 MTAD-EMP-NO PIC S9(07) COMP-3. DTSIMTAD
|
|
00012 15 MTAD-REC-TYPE PIC S9(04) COMP. DTSIMTAD
|
|
00013 88 MTAD-TAD-88 VALUE +03. DTSIMTAD
|
|
00014 15 MTAD-ID-NO PIC S9(03) COMP-3. DTSIMTAD
|
|
00015 88 MTAD-ID-TAX-MAILING-ADDR-88 VALUE +001. CL**2
|
|
00016 88 MTAD-ID-TAX-RECORDS-ADDR-88 VALUE +002. CL**2
|
|
00017 15 MTAD-KEY-FILLER PIC X(08). DTSIMTAD
|
|
00018 CL**2
|
|
00019 CL**2
|
|
00020 10 MTAD-PURGE-DATE PIC S9(09) COMP-3. DTSIMTAD
|
|
00021 CL**2
|
|
00022 CL**2
|
|
00023 10 MTAD-DATA-AREA. DTSIMTAD
|
|
00024 15 MTAD-ADDRESS. DTSIMTAD
|
|
00025 20 MTAD-ATTN-LINE PIC X(40). DTSIMTAD
|
|
00026 20 MTAD-DELIV-LINE-1 PIC X(40). CL**2
|
|
00027 20 MTAD-DELIV-LINE-2 PIC X(40). CL**2
|
|
00028 20 MTAD-CITY PIC X(25). DTSIMTAD
|
|
00029 20 MTAD-ST PIC X(02). DTSIMTAD
|
|
00030 20 MTAD-ZIP PIC X(10). DTSIMTAD
|
|
00031 20 MTAD-ADVANCED-BARCODE CL**2
|
|
00032 PIC X(14). CL**2
|
|
00033 CL**2
|
|
00034 15 MTAD-PHONE-NUMBERS. DTSIMTAD
|
|
00035 20 MTAD-VOICE-1. CL**2
|
|
00036 25 MTAD-VOICE-1-AREA-CD PIC X(03). CL**2
|
|
00037 25 MTAD-VOICE-1-PREFIX PIC X(03). CL**2
|
|
00038 25 MTAD-VOICE-1-SUFFIX PIC X(04). CL**2
|
|
00039 25 MTAD-VOICE-1-EXT PIC X(05). CL**2
|
|
00040 20 MTAD-VOICE-2. CL**2
|
|
00041 25 MTAD-VOICE-2-AREA-CD PIC X(03). CL**2
|
|
00042 25 MTAD-VOICE-2-PREFIX PIC X(03). CL**2
|
|
00043 25 MTAD-VOICE-2-SUFFIX PIC X(04). CL**2
|
|
00044 25 MTAD-VOICE-2-EXT PIC X(05). CL**2
|
|
00045 20 MTAD-FAX. DTSIMTAD
|
|
00046 25 MTAD-FAX-AREA-CD PIC X(03). DTSIMTAD
|
|
00047 25 MTAD-FAX-PREFIX PIC X(03). DTSIMTAD
|
|
00048 25 MTAD-FAX-SUFFIX PIC X(04). DTSIMTAD
|
|
00049 25 MTAD-FAX-EXT PIC X(05). CL**2
|
|
00050 CL**2
|
|
00051 15 MTAD-EMAIL-ADDRESS PIC X(40). CL**2
|
|
00052 CL**2
|
|
00053 15 MTAD-UC223-IND PIC X(01). CL**2
|
|
00054 88 MTAD-UC223-YES-88 VALUE 'Y'. CL**2
|
|
00055 88 MTAD-UC223-NO-88 VALUE 'N'. CL**2
|
|
00056 CL**2
|
|
00057 15 MTAD-MISSING-RPT-LETTERS-IND DTSIMTAD
|
|
00058 PIC X(01). DTSIMTAD
|
|
00059 88 MTAD-MISSING-RPT-LTRS-YES-88 VALUE 'Y'. CL**2
|
|
00060 88 MTAD-MISSING-RPT-LTRS-NO-88 VALUE 'N'. CL**2
|
|
00061 CL**2
|
|
00062 15 MTAD-PHYSICAL-ADDRESS-IND CL**2
|
|
00063 PIC X(01). CL**2
|
|
00064 88 MTAD-PHYSICAL-ADDRESS-YES-88 VALUE 'Y'. CL**2
|
|
00065 88 MTAD-PHYSICAL-ADDRESS-NO-88 VALUE 'N'. CL**2
|
|
00066 CL**2
|
|
00067 CL**2
|
|
00068 15 FILLER PIC X(32). DTSIMTAD
|
|
00069 CL**2
|
|
00070 CL**2
|
|
00071 15 MTAD-CONVERTED-IND PIC X(01). DTSIMTAD
|
|
00072 88 MTAD-CONVERTED-88 VALUE 'Y'. DTSIMTAD
|
|
00073 88 MTAD-NOT-CONVERTED-88 VALUE 'N'. DTSIMTAD
|
|
00074 CL**2
|
|
00075 15 MTAD-ESTB-DATE PIC S9(09) COMP-3. DTSIMTAD
|
|
00076 CL**2
|
|
00077 15 MTAD-CHNG-DATE PIC S9(09) COMP-3. DTSIMTAD
|