41 lines
3.2 KiB
COBOL
41 lines
3.2 KiB
COBOL
00001 ***** 02/26/08
|
|
00002 * DTSIY110
|
|
00003 * DTSIY110 ADDRESS DATA FROM EXTERNAL SOURCES SUCH AS LV001
|
|
00004 * THE WEB. DTSIY110
|
|
00005 * DTSIY110
|
|
00006 * 07/25/2007 INITIAL DEVELOPMENT. GD DTSIY110
|
|
00007 * DTSIY110
|
|
00008 * THIS RECORD IS PASSED WITHIN THE DTSIT002 DTSIY110
|
|
00009 * TRANSACTION RECORD, AND PROCESSED THROUGH DTSIY110
|
|
00010 * DTSBD380. DTSIY110
|
|
00011 * DTSIY110
|
|
00012 ***** DTSIY110
|
|
00013 DTSIY110
|
|
00014 10 Y110-DATA-AREA. DTSIY110
|
|
00015 15 FILLER PIC X(02). DTSIY110
|
|
00016 15 Y110-EMP-ADDR-TYPE PIC X(02). DTSIY110
|
|
00017 88 Y110-EMP-ADDR-TYPE-MAIL-88 VALUE '01'. DTSIY110
|
|
00018 88 Y110-EMP-ADDR-TYPE-RECS-88 VALUE '02'. DTSIY110
|
|
00019 88 Y110-EMP-ADDR-TYPE-WRK-88 VALUE '03'. DTSIY110
|
|
00020 88 Y110-EMP-ADDR-TYPE-ALT-88 VALUE '04'. DTSIY110
|
|
00021 15 Y110-EMP-ADDR. DTSIY110
|
|
00022 20 Y110-EMP-ATTN PIC X(40). DTSIY110
|
|
00023 20 Y110-EMP-DELV1 PIC X(40). DTSIY110
|
|
00024 20 Y110-EMP-DELV2 PIC X(40). DTSIY110
|
|
00025 20 Y110-EMP-CITY PIC X(25). DTSIY110
|
|
00026 20 Y110-EMP-STATE PIC X(02). DTSIY110
|
|
00027 20 Y110-EMP-ZIP PIC X(10). DTSIY110
|
|
00028 DTSIY110
|
|
00029 15 Y110-EMP-VOICE. DTSIY110
|
|
00030 20 Y110-EMP-VOICE-AREA-CD PIC X(03). DTSIY110
|
|
00031 20 Y110-EMP-VOICE-PREFIX PIC X(03). DTSIY110
|
|
00032 20 Y110-EMP-VOICE-SUFFIX PIC X(04). DTSIY110
|
|
00033 20 Y110-EMP-VOICE-EXT PIC X(05). DTSIY110
|
|
00034 DTSIY110
|
|
00035 15 Y110-EMP-FAX. DTSIY110
|
|
00036 20 Y110-EMP-FAX-AREA-CD PIC X(03). DTSIY110
|
|
00037 20 Y110-EMP-FAX-PREFIX PIC X(03). DTSIY110
|
|
00038 20 Y110-EMP-FAX-SUFFIX PIC X(04). DTSIY110
|
|
00039 DTSIY110
|
|
00040 15 Y110-EMP-EMAIL PIC X(40). DTSIY110
|