14 lines
1.0 KiB
COBOL
14 lines
1.0 KiB
COBOL
00001 ***** 08/28/13
|
|
00002 * DTSIX168
|
|
00003 * DTSIX168 LIEN DATA EXTRACT FOR DATABASE: LV008
|
|
00004 * LIEN QUARTERS CL**6
|
|
00005 * DTSIX168
|
|
00006 * DTSIX168
|
|
00007 15 X168-REC-TYPE PIC X(03) VALUE '168'. CL**8
|
|
00008 15 FILLER PIC X(01) VALUE ','. CL**6
|
|
00009 15 X168-EMP-NO PIC 9(06). CL**8
|
|
00010 15 FILLER PIC X(01) VALUE ','. CL**6
|
|
00011 15 X168-ESTB-DATE PIC X(10). CL**8
|
|
00012 15 FILLER PIC X(01) VALUE ','. CL**6
|
|
00013 15 X168-DPC-QTR PIC X(06). CL**8
|