00001 ***** 08/12/98 00002 * DTSIFFID 00003 * DTSIFFID REFERENCE FILE 'FIELD REPRESENTATIVE RECORD' LV006 00004 * DEFINITION. DTSIFFID 00005 * DTSIFFID 00006 ***** DTSIFFID 00007 CL**4 00008 10 FFID-KEY-AREA. DTSIFFID 00009 15 FFID-REC-TYPE PIC S9(04) COMP. DTSIFFID 00010 88 FFID-FID-88 VALUE +07. DTSIFFID 00011 15 FFID-FLD-REP-ID PIC X(02). DTSIFFID 00012 88 FFID-UNASSIGNED-88 VALUE 'FD'. DTSIFFID 00013 88 FFID-DC-UNKNOWN-88 VALUE '??'. CL**2 00014 88 FFID-ACCOUNTING-DESK-88 VALUE 'AD'. CL**2 00015 88 FFID-FIELD-DESK-88 DTSIFFID 00016 VALUE 'FD' '??'. CL**2 00017 15 FFID-KEY-FILLER PIC X(12). DTSIFFID 00018 CL**4 00019 10 FFID-DATA-AREA. DTSIFFID 00020 15 FFID-OP-ID PIC X(08). DTSIFFID 00021 CL**4 00022 15 FFID-ACCOUNTING-TECH-CD PIC X(03). CL**2 00023 CL**4 00024 15 FFID-NAME PIC X(32). DTSIFFID 00025 CL**4 00026 15 FFID-CASUAL-NAME PIC X(12). DTSIFFID 00027 CL**4 00028 15 FFID-MAIL-ADDR. DTSIFFID 00029 20 FFID-MAIL-ATTN-LINE PIC X(40). CL**3 00030 20 FFID-MAIL-DELIV-LINE-1 PIC X(40). CL**3 00031 20 FFID-MAIL-DELIV-LINE-2 PIC X(40). CL**3 00032 20 FFID-MAIL-CITY PIC X(25). CL**3 00033 20 FFID-MAIL-ST PIC X(02). CL**3 00034 20 FFID-MAIL-ZIP PIC X(10). CL**3 00035 20 FFID-MAIL-ADVANCED-BARCODE PIC X(14). CL**3 00036 CL**4 00037 15 FFID-PHYSICAL-ADDR. DTSIFFID 00038 20 FFID-PHYS-ATTN-LINE PIC X(40). CL**3 00039 20 FFID-PHYS-DELIV-LINE-1 PIC X(40). CL**3 00040 20 FFID-PHYS-DELIV-LINE-2 PIC X(40). CL**3 00041 20 FFID-PHYS-CITY PIC X(25). CL**3 00042 20 FFID-PHYS-ST PIC X(02). CL**3 00043 20 FFID-PHYS-ZIP PIC X(10). CL**3 00044 20 FFID-PHYS-ADVANCED-BARCODE PIC X(14). CL**3 00045 CL**4 00046 15 FFID-PHONE-NUMBERS. DTSIFFID 00047 20 FFID-VOICE-1. CL**2 00048 25 FFID-VOICE-1-AREA-CD PIC X(03). CL**3 00049 25 FFID-VOICE-1-PREFIX PIC X(03). CL**3 00050 25 FFID-VOICE-1-SUFFIX PIC X(04). CL**3 00051 25 FFID-VOICE-1-EXT PIC X(05). CL**3 00052 20 FFID-VOICE-2. CL**3 00053 25 FFID-VOICE-2-AREA-CD PIC X(03). CL**3 00054 25 FFID-VOICE-2-PREFIX PIC X(03). CL**3 00055 25 FFID-VOICE-2-SUFFIX PIC X(04). CL**3 00056 25 FFID-VOICE-2-EXT PIC X(05). CL**3 00057 20 FFID-FAX. DTSIFFID 00058 25 FFID-FAX-AREA-CD PIC X(03). CL**3 00059 25 FFID-FAX-PREFIX PIC X(03). CL**3 00060 25 FFID-FAX-SUFFIX PIC X(04). CL**3 00061 25 FFID-FAX-EXT PIC X(05). CL**3 00062 CL**4 00063 15 FFID-EMAIL-ADDRESS PIC X(40). CL**3 00064 CL**4 00065 15 FILLER PIC X(92). CL**6 00066 CL**4 00067 15 FFID-ESTB-DATE PIC S9(09) COMP-3. DTSIFFID 00068 15 FFID-CHNG-DATE PIC S9(09) COMP-3. DTSIFFID