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