DUTAS re-platformed to Raincode - Initial Source Code
This commit is contained in:
35
Copybook/DTSIALEN.cpy
Normal file
35
Copybook/DTSIALEN.cpy
Normal file
@ -0,0 +1,35 @@
|
||||
00001 ***** 06/29/02
|
||||
00002 * DTSIALEN
|
||||
00003 * DTSIALEN ACCOUNTING TRANSACTION FILE RECORD LENGTHS. LV005
|
||||
00004 * DTSIALEN
|
||||
00005 * DTSIALEN
|
||||
00006 * 09/29/1998 REVIEWED AND MODIFIED FOR DC. EHH DTSIALEN
|
||||
00007 * DTSIALEN
|
||||
00008 ***** DTSIALEN
|
||||
00009 DTSIALEN
|
||||
00010 10 ALEN-LENGTHS. DTSIALEN
|
||||
00011 15 ALEN-ADJ-LENGTH PIC S9(04) COMP VALUE +100. DTSIALEN
|
||||
00012 DTSIALEN
|
||||
00013 15 ALEN-HDR-LENGTH PIC S9(04) COMP VALUE +96. DTSIALEN
|
||||
00014 DTSIALEN
|
||||
00015 15 ALEN-PAY-LENGTH PIC S9(04) COMP VALUE +96. DTSIALEN
|
||||
00016 DTSIALEN
|
||||
00017 15 ALEN-RPT-LENGTH PIC S9(04) COMP VALUE +128. DTSIALEN
|
||||
00018 DTSIALEN
|
||||
00019 15 ALEN-ATX-LENGTH PIC S9(04) COMP VALUE +128. DTSIALEN
|
||||
00020 DTSIALEN
|
||||
00021 DTSIALEN
|
||||
00022 15 ALEN-MAX-LENGTH PIC S9(04) COMP VALUE +128. DTSIALEN
|
||||
00023 DTSIALEN
|
||||
00024 15 ALEN-KEY-LENGTH PIC S9(04) COMP VALUE +5. DTSIALEN
|
||||
00025 DTSIALEN
|
||||
00026 DTSIALEN
|
||||
00027 15 ALEN-ADJ-PREFIX PIC X(04) VALUE 'AADJ'. DTSIALEN
|
||||
00028 DTSIALEN
|
||||
00029 15 ALEN-HDR-PREFIX PIC X(04) VALUE 'AHDR'. DTSIALEN
|
||||
00030 DTSIALEN
|
||||
00031 15 ALEN-PAY-PREFIX PIC X(04) VALUE 'APAY'. DTSIALEN
|
||||
00032 DTSIALEN
|
||||
00033 15 ALEN-RPT-PREFIX PIC X(04) VALUE 'ARPT'. DTSIALEN
|
||||
00034 DTSIALEN
|
||||
00035 15 ALEN-ATX-PREFIX PIC X(04) VALUE 'AATX'. DTSIALEN
|
||||
Reference in New Issue
Block a user