69 lines
5.4 KiB
COBOL
69 lines
5.4 KiB
COBOL
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
|