24 lines
1.8 KiB
COBOL
24 lines
1.8 KiB
COBOL
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
|