58 lines
4.5 KiB
COBOL
58 lines
4.5 KiB
COBOL
00001 ***** 07/23/07
|
|
00002 * DTSIX130
|
|
00003 * DTSIX130 EMPLOYER RELATIONSHIP EXTRACT RECORD. LV001
|
|
00004 * DTSIX130
|
|
00005 * EXCHANGES RELATIONSHIP DATA BETWEEN MAINFRAME AND DTSIX130
|
|
00006 * SQL SERVER DATABASE. DTSIX130
|
|
00007 * DTSIX130
|
|
00008 * DTSIX130
|
|
00009 ***** DTSIX130
|
|
00010 DTSIX130
|
|
00011 15 X130-REC-TYPE PIC X(03) VALUE '130'. DTSIX130
|
|
00012 15 FILLER PIC X(01) VALUE ','. DTSIX130
|
|
00013 15 X130-EMP-NO PIC 9(06). DTSIX130
|
|
00014 15 FILLER PIC X(01) VALUE ','. DTSIX130
|
|
00015 15 X130-SOURCE PIC X(01). DTSIX130
|
|
00016 88 X130-SOURCE-WEB-88 VALUE 'W'. DTSIX130
|
|
00017 88 X130-SOURCE-MAINFRM-88 VALUE 'M'. DTSIX130
|
|
00018 15 FILLER PIC X(01) VALUE ','. DTSIX130
|
|
00019 15 X130-ENTITY-NAME PIC X(40). DTSIX130
|
|
00020 15 FILLER PIC X(01) VALUE ','. DTSIX130
|
|
00021 15 X130-EFF-DATE PIC X(10). DTSIX130
|
|
00022 15 FILLER PIC X(01) VALUE ','. DTSIX130
|
|
00023 15 X130-PRED-EMP-NO PIC 9(06). DTSIX130
|
|
00024 15 FILLER PIC X(01) VALUE ','. DTSIX130
|
|
00025 15 X130-PRED-FEIN PIC 9(09). DTSIX130
|
|
00026 15 FILLER PIC X(01) VALUE ','. DTSIX130
|
|
00027 15 X130-RELATIONSHIP-CD PIC X(02). DTSIX130
|
|
00028 88 X130-REL-ACQUIRED-88 VALUE '02'. DTSIX130
|
|
00029 88 X130-REL-MERGER-SPLIT-88 VALUE '03'. DTSIX130
|
|
00030 88 X130-REL-REORG-88 VALUE '04'. DTSIX130
|
|
00031 88 X130-REL-REG-TO-REIMB-88 VALUE '08'. DTSIX130
|
|
00032 88 X130-REL-REIMB-TO-REG-88 VALUE '09'. DTSIX130
|
|
00033 88 X130-REL-PEO-88 VALUE '10'. DTSIX130
|
|
00034 88 X130-REL-VALID-88 VALUE '02' '03' DTSIX130
|
|
00035 '04' '08' '09' '10'. DTSIX130
|
|
00036 15 FILLER PIC X(01) VALUE ','. DTSIX130
|
|
00037 15 X130-PORTION-EXP-TRNSF-X PIC X(06). DTSIX130
|
|
00038 15 X130-PORTION-EXP-TRNSF REDEFINES DTSIX130
|
|
00039 X130-PORTION-EXP-TRNSF-X PIC 999.99. DTSIX130
|
|
00040 15 FILLER PIC X(01) VALUE ','. DTSIX130
|
|
00041 15 X130-ATTENTION PIC X(40). DTSIX130
|
|
00042 15 FILLER PIC X(01) VALUE ','. DTSIX130
|
|
00043 15 X130-STREET-1 PIC X(40). DTSIX130
|
|
00044 15 FILLER PIC X(01) VALUE ','. DTSIX130
|
|
00045 15 X130-STREET-2 PIC X(40). DTSIX130
|
|
00046 15 FILLER PIC X(01) VALUE ','. DTSIX130
|
|
00047 15 X130-CITY PIC X(25). DTSIX130
|
|
00048 15 FILLER PIC X(01) VALUE ','. DTSIX130
|
|
00049 15 X130-STATE PIC X(02). DTSIX130
|
|
00050 15 FILLER PIC X(01) VALUE ','. DTSIX130
|
|
00051 15 X130-ZIP PIC X(10). DTSIX130
|
|
00052 15 FILLER PIC X(01) VALUE ','. DTSIX130
|
|
00053 15 X130-PHONE PIC X(15). DTSIX130
|
|
00054 15 FILLER PIC X(01) VALUE ','. DTSIX130
|
|
00055 15 X130-FAX PIC X(15). DTSIX130
|
|
00056 15 FILLER PIC X(01) VALUE ','. DTSIX130
|
|
00057 15 X130-EMAIL PIC X(40). DTSIX130
|