DUTAS re-platformed to Raincode - Initial Source Code
This commit is contained in:
13
Copybook/DTSIX166.cpy
Normal file
13
Copybook/DTSIX166.cpy
Normal file
@ -0,0 +1,13 @@
|
||||
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
|
||||
Reference in New Issue
Block a user