Testing to see if the code tags work. I’m putting this into the tags:
FILE FILEA V(1000) SEQUENTIAL +
SYSNAME ‘H:\EZ_Text_Files\999999_Input.txt’
AR-NUM 6 12 A
NAME 18 40 A
*NAME2 58 40 A
ADDR1 58 30 A
ADDR2 88 30 A
CITY 118 20 A
STATE 138 2 A
ZIP 158 5 A
ZIP-4 163 4 A
PHONE-AREA 252 3 A
PHONE-PRE 255 3 A
PHONE-REST 258 4 A
*START-YEAR 189 2 N
DOLS-MM 268 2 N
DOLS-YY 274 2 N
*TERMS 203 7 A
COMMENTS 276 2 A
RHC 168 12 A
RHC-BYTE-IN1 RHC 1 A INDEX SUB1
RHC-DOLLARS 168 10 N
RHC-CENTS 178 2 N
BALANCE 180 12 A
BALANCE-NUM 180 12 N 0
BALANCE-BYTE-IN1 BALANCE 1 A INDEX SUB1
BALANCE-DOLLARS 180 10 N
BALANCE-CENTS 190 2 N
CURRENT 192 12 A
CURRENT-NUM 192 12 N 0
CURRENT-BYTE-IN1 CURRENT 1 A INDEX SUB1
CURRENT-DOLLARS 192 10 N
CURRENT-CENTS 202 2 N
01-30 204 12 A
01-30-BYTE-IN1 01-30 1 A INDEX SUB1
01-30-DOLLARS 204 10 N
01-30-CENTS 214 2 N
31-60 216 12 A
31-60-BYTE-IN1 31-60 1 A INDEX SUB1
31-60-DOLLARS 216 10 N
31-60-CENTS 226 2 N
61-90 228 12 A
61-90-BYTE-IN1 61-90 1 A INDEX SUB1
61-90-DOLLARS 228 10 N
61-90-CENTS 238 2 N
OVER-90 240 12 A
OVER-90-BYTE-IN1 OVER-90 1 A INDEX SUB1
OVER-90-DOLLARS 240 10 N
OVER-90-CENTS 250 2 N
FILE FILEA V(1000) SEQUENTIAL +
SYSNAME 'H:\EZ_Text_Files\999999_Input.txt'
AR-NUM 6 12 A
NAME 18 40 A
*NAME2 58 40 A
ADDR1 58 30 A
ADDR2 88 30 A
CITY 118 20 A
STATE 138 2 A
ZIP 158 5 A
ZIP-4 163 4 A
PHONE-AREA 252 3 A
PHONE-PRE 255 3 A
PHONE-REST 258 4 A
*START-YEAR 189 2 N
DOLS-MM 268 2 N
DOLS-YY 274 2 N
*TERMS 203 7 A
COMMENTS 276 2 A
RHC 168 12 A
RHC-BYTE-IN1 RHC 1 A INDEX SUB1
RHC-DOLLARS 168 10 N
RHC-CENTS 178 2 N
BALANCE 180 12 A
BALANCE-NUM 180 12 N 0
BALANCE-BYTE-IN1 BALANCE 1 A INDEX SUB1
BALANCE-DOLLARS 180 10 N
BALANCE-CENTS 190 2 N
CURRENT 192 12 A
CURRENT-NUM 192 12 N 0
CURRENT-BYTE-IN1 CURRENT 1 A INDEX SUB1
CURRENT-DOLLARS 192 10 N
CURRENT-CENTS 202 2 N
01-30 204 12 A
01-30-BYTE-IN1 01-30 1 A INDEX SUB1
01-30-DOLLARS 204 10 N
01-30-CENTS 214 2 N
31-60 216 12 A
31-60-BYTE-IN1 31-60 1 A INDEX SUB1
31-60-DOLLARS 216 10 N
31-60-CENTS 226 2 N
61-90 228 12 A
61-90-BYTE-IN1 61-90 1 A INDEX SUB1
61-90-DOLLARS 228 10 N
61-90-CENTS 238 2 N
OVER-90 240 12 A
OVER-90-BYTE-IN1 OVER-90 1 A INDEX SUB1
OVER-90-DOLLARS 240 10 N
OVER-90-CENTS 250 2 N
ETA: Apparently not.
.