DUTAS re-platformed to Raincode - Initial Source Code
This commit is contained in:
31
Copybook/DTSIX770.cpy
Normal file
31
Copybook/DTSIX770.cpy
Normal file
@ -0,0 +1,31 @@
|
||||
00001 ***** 02/01/04
|
||||
00002 * DTSIX770
|
||||
00003 * DTSIX770 DTSBE770 PARAMETER RECORD DESCRIPTION LV001
|
||||
00004 * DTSIX770
|
||||
00005 * INITIAL DEVELOPMENT. 12/02/2002 GD. DTSIX770
|
||||
00006 * DTSIX770
|
||||
00007 * THE DTSIX770 PARAMETER RECORD PASSES KEY DATES TO DTSIX770
|
||||
00008 * ETA581 REPORTING AND DATA VALIDATION PROGRAMS. DTSIX770
|
||||
00009 * DTSIX770
|
||||
00010 ***** DTSIX770
|
||||
00011 DTSIX770
|
||||
00012 05 X770-DATA. DTSIX770
|
||||
00013 10 X770-CURR-RUN-DATE PIC S9(09) COMP-3. DTSIX770
|
||||
00014 10 X770-SUBJECT-QTR PIC S9(05) COMP-3. DTSIX770
|
||||
00015 10 X770-SUBJECT-QTR-START PIC S9(09) COMP-3. DTSIX770
|
||||
00016 10 X770-SUBJECT-QTR-END PIC S9(09) COMP-3. DTSIX770
|
||||
00017 10 X770-QTR1 PIC S9(05) COMP-3. DTSIX770
|
||||
00018 10 X770-QTR1-START PIC S9(09) COMP-3. DTSIX770
|
||||
00019 10 X770-QTR1-END PIC S9(09) COMP-3. DTSIX770
|
||||
00020 10 X770-QTR1-DUE-DATE PIC S9(09) COMP-3. DTSIX770
|
||||
00021 10 X770-QTR2 PIC S9(05) COMP-3. DTSIX770
|
||||
00022 10 X770-QTR2-START PIC S9(09) COMP-3. DTSIX770
|
||||
00023 10 X770-QTR2-END PIC S9(09) COMP-3. DTSIX770
|
||||
00024 10 X770-QTR2-DUE-DATE PIC S9(09) COMP-3. DTSIX770
|
||||
00025 10 X770-QTR3 PIC S9(05) COMP-3. DTSIX770
|
||||
00026 10 X770-QTR4 PIC S9(05) COMP-3. DTSIX770
|
||||
00027 10 X770-QTR5 PIC S9(05) COMP-3. DTSIX770
|
||||
00028 10 X770-QTR6 PIC S9(05) COMP-3. DTSIX770
|
||||
00029 10 X770-QTR7 PIC S9(05) COMP-3. DTSIX770
|
||||
00030 10 X770-QTR8 PIC S9(05) COMP-3. DTSIX770
|
||||
00031 10 X770-DELINQUENT-DATE PIC S9(09) COMP-3. DTSIX770
|
||||
Reference in New Issue
Block a user