14 lines
1.0 KiB
COBOL
14 lines
1.0 KiB
COBOL
00001 ***** 07/19/13
|
|
00002 * DTSIX166
|
|
00003 * DTSIX166 LIEN DATA EXTRACT FOR DATABASE: LV007
|
|
00004 * LIEN QUARTERS CL**6
|
|
00005 * DTSIX166
|
|
00006 * DTSIX166
|
|
00007 15 X166-REC-TYPE PIC X(03) VALUE '166'. CL**6
|
|
00008 15 FILLER PIC X(01) VALUE ','. CL**6
|
|
00009 15 X166-EMP-NO PIC 9(06). CL**6
|
|
00010 15 FILLER PIC X(01) VALUE ','. CL**6
|
|
00011 15 X166-CERTIFICATE-NO PIC 9(08). CL**6
|
|
00012 15 FILLER PIC X(01) VALUE ','. CL**6
|
|
00013 15 X166-LIEN-QTR PIC X(06). CL**7
|