54 lines
4.2 KiB
COBOL
54 lines
4.2 KiB
COBOL
00001 ***** 02/26/08
|
|
00002 * DTSIY120
|
|
00003 * DTSIY120 OWNER/OFFICE/PARTNER AND OTHER CONTACT LV001
|
|
00004 * DATA PASSED FROM EXTERNAL SOURCES SUCH AS DTSIY120
|
|
00005 * THE WEB. DTSIY120
|
|
00006 * DTSIY120
|
|
00007 * 07/25/2007 INITIAL DEVELOPMENT. GD DTSIY120
|
|
00008 * DTSIY120
|
|
00009 * THIS RECORD IS PASSED WITHIN THE DTSIT002 DTSIY120
|
|
00010 * TRANSACTION RECORD, AND PROCESSED THROUGH DTSIY120
|
|
00011 * DTSBD380. DTSIY120
|
|
00012 * DTSIY120
|
|
00013 ***** DTSIY120
|
|
00014 DTSIY120
|
|
00015 10 Y120-DATA-AREA. DTSIY120
|
|
00016 15 FILLER PIC X(02). DTSIY120
|
|
00017 15 Y120-CONTACT-TYPE PIC X(02). DTSIY120
|
|
00018 88 Y120-CONTACT-OPO-88 VALUE '00'. DTSIY120
|
|
00019 88 Y120-CONTACT-EFT-VENDOR-88 VALUE '01'. DTSIY120
|
|
00020 88 Y120-CONTACT-EFT-DOES-88 VALUE '02'. DTSIY120
|
|
00021 88 Y120-CONTACT-RPT-BSNS-88 VALUE '03'. DTSIY120
|
|
00022 88 Y120-CONTACT-RPT-TECH-88 VALUE '04'. DTSIY120
|
|
00023 88 Y120-CONTACT-FR500-88 VALUE '05'. DTSIY120
|
|
00024 88 Y120-CONTACT-CHARGE-88 VALUE '06'. DTSIY120
|
|
00025 88 Y120-CONTACT-BENEFITS-88 VALUE '07'. DTSIY120
|
|
00026 88 Y120-CONTACT-STATUS-88 VALUE '08'. DTSIY120
|
|
00027 DTSIY120
|
|
00028 15 Y120-CONTACT-SSN PIC X(09). DTSIY120
|
|
00029 DTSIY120
|
|
00030 15 Y120-CONTACT-NAME PIC X(32). DTSIY120
|
|
00031 DTSIY120
|
|
00032 15 Y120-CONTACT-TITLE PIC X(40). DTSIY120
|
|
00033 DTSIY120
|
|
00034 15 Y120-CONTACT-ADDR. DTSIY120
|
|
00035 20 Y120-CONTACT-ATTN PIC X(40). DTSIY120
|
|
00036 20 Y120-CONTACT-DELV1 PIC X(40). DTSIY120
|
|
00037 20 Y120-CONTACT-DELV2 PIC X(40). DTSIY120
|
|
00038 20 Y120-CONTACT-CITY PIC X(25). DTSIY120
|
|
00039 20 Y120-CONTACT-STATE PIC X(02). DTSIY120
|
|
00040 20 Y120-CONTACT-ZIP PIC X(10). DTSIY120
|
|
00041 DTSIY120
|
|
00042 15 Y120-CONTACT-VOICE. DTSIY120
|
|
00043 20 Y120-C-VOICE-AREA-CD PIC X(03). DTSIY120
|
|
00044 20 Y120-C-VOICE-PREFIX PIC X(03). DTSIY120
|
|
00045 20 Y120-C-VOICE-SUFFIX PIC X(04). DTSIY120
|
|
00046 20 Y120-C-VOICE-EXT PIC X(05). DTSIY120
|
|
00047 DTSIY120
|
|
00048 15 Y120-CONTACT-FAX. DTSIY120
|
|
00049 20 Y120-C-FAX-AREA-CD PIC X(03). DTSIY120
|
|
00050 20 Y120-C-FAX-PREFIX PIC X(03). DTSIY120
|
|
00051 20 Y120-C-FAX-SUFFIX PIC X(04). DTSIY120
|
|
00052 DTSIY120
|
|
00053 15 Y120-CONTACT-EMAIL PIC X(40). DTSIY120
|