36 lines
2.8 KiB
COBOL
36 lines
2.8 KiB
COBOL
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
|