Shifting data to the right
Posted: Fri Apr 29, 2022 4:47 am
I found about 50 records in a huge file that need to have the data in the record shifted one character to the right. These are very long records, so manually scooting the data 1 byte to the right, 80 columns at a time isn't an acceptable solution.
However, my trusty File Aid manual has failed me. I've tried EDIT, MOVE, and REPL to no avail. The goal is to copy the entire file, updating the few records that meets the criteria. Here's the batch instructions I have tried:
(Don't ask where the "SELECT ALL" text came from - it isn't me!) The output file is written, but the records are not updated. I've also tried COPY instead of CA in each instance, but the output is disappointingly the same. I didn't see anything in the TSO application that would seem help either.
I'm very confused.
Any suggestions?
However, my trusty File Aid manual has failed me. I've tried EDIT, MOVE, and REPL to no avail. The goal is to copy the entire file, updating the few records that meets the criteria. Here's the batch instructions I have tried:
$$DD01 CA IF=(05,EQ,C'2620200203926936'),
EDIT=(194,1,X'40',X'4040')
$$DD01 CA IF=(05,EQ,C'2620200203926936'),
MOVE=(194,X'40')
$$DD01 CA IF=(05,EQ,C'2620200203926936'),
REPL=(194,EQ,X'40',X'4040')
EDIT=(194,1,X'40',X'4040')
$$DD01 CA IF=(05,EQ,C'2620200203926936'),
MOVE=(194,X'40')
$$DD01 CA IF=(05,EQ,C'2620200203926936'),
REPL=(194,EQ,X'40',X'4040')
(Don't ask where the "SELECT ALL" text came from - it isn't me!) The output file is written, but the records are not updated. I've also tried COPY instead of CA in each instance, but the output is disappointingly the same. I didn't see anything in the TSO application that would seem help either.
I'm very confused.
Any suggestions?