33 lines
2.5 KiB
COBOL
33 lines
2.5 KiB
COBOL
00001 ***** 08/28/13
|
|
00002 * DTSIX167
|
|
00003 * DTSIX167 DPC DATA EXTRACT FOR DATABASE LV009
|
|
00004 * DTSIX167
|
|
00005 * DTSIX167
|
|
00006 * DTSIX167
|
|
00007 *********************************** CL**4
|
|
00008 ** DPC DATA ** CL**8
|
|
00009 *********************************** CL**4
|
|
00010 15 X167-REC-TYPE PIC X(03) VALUE '167'. CL**8
|
|
00011 15 FILLER PIC X(01) VALUE ','. DTSIX167
|
|
00012 15 X167-EMP-NO PIC 9(06). CL**8
|
|
00013 15 FILLER PIC X(01) VALUE ','. DTSIX167
|
|
00014 15 X167-ESTB-DATE PIC X(10). CL**8
|
|
00015 15 FILLER PIC X(01) VALUE ','. DTSIX167
|
|
00016 15 X167-STATUS PIC X(01). CL**8
|
|
00017 15 FILLER PIC X(01) VALUE ','. DTSIX167
|
|
00018 15 X167-ESTB-OPID PIC X(08). CL**8
|
|
00019 15 FILLER PIC X(01) VALUE ','. DTSIX167
|
|
00020 15 X167-STATUS-OPID PIC X(08). CL**8
|
|
00021 15 FILLER PIC X(01) VALUE ','. CL**3
|
|
00022 15 X167-STATUS-DATE PIC X(10). CL**8
|
|
00023 15 FILLER PIC X(01) VALUE ','. CL**3
|
|
00024 15 X167-STMT-DATE PIC X(10). CL**8
|
|
00025 15 FILLER PIC X(01) VALUE ','. CL**4
|
|
00026 15 X167-BALANCE PIC ----------9.99. CL**9
|
|
00027 15 FILLER PIC X(01) VALUE ','. CL**4
|
|
00028 15 X167-FREQUENCY PIC X(01). CL**8
|
|
00029 15 FILLER PIC X(01) VALUE ','. CL**4
|
|
00030 15 X167-START-DATE PIC X(10). CL**8
|
|
00031 15 FILLER PIC X(01) VALUE ','. CL**8
|
|
00032 15 X167-PAYMENT-AMT PIC --------9.99. CL**9
|