DUTAS re-platformed to Raincode - Initial Source Code
This commit is contained in:
23
Copybook/DTSIL006.cpy
Normal file
23
Copybook/DTSIL006.cpy
Normal file
@ -0,0 +1,23 @@
|
||||
00001 ***** 09/29/98
|
||||
00002 * DTSIL006
|
||||
00003 * DTSIL006 U.I. RATING YEAR START/END MODULE LINKAGE. LV003
|
||||
00004 * DTSIL006
|
||||
00005 ***** DTSIL006
|
||||
00006 CL**3
|
||||
00007 10 L006-OPTION PIC X(01). DTSIL006
|
||||
00008 88 L006-FROM-QTR VALUE '1'. DTSIL006
|
||||
00009 CL**3
|
||||
00010 10 L006-YRQ PIC S9(05) COMP-3. DTSIL006
|
||||
00011 CL**3
|
||||
00012 CL**3
|
||||
00013 10 L006-RTE-YR-START-YRQ PIC S9(05) COMP-3. DTSIL006
|
||||
00014 CL**3
|
||||
00015 10 L006-RTE-YR-END-YRQ PIC S9(05) COMP-3. DTSIL006
|
||||
00016 CL**3
|
||||
00017 10 L006-RTE-YR-START-DATE PIC S9(09) COMP-3. DTSIL006
|
||||
00018 CL**3
|
||||
00019 10 L006-RTE-YR-END-DATE PIC S9(09) COMP-3. DTSIL006
|
||||
00020 CL**3
|
||||
00021 10 L006-RTE-YR-DISP PIC X(04). DTSIL006
|
||||
00022 CL**3
|
||||
00023 10 FILLER PIC X(40). CL**2
|
||||
Reference in New Issue
Block a user