Here you have a REXX that will do it. I prepared this program to work in an environment where there are standards. The conversion will not work with global usage, it is, all elementary items should be self descriptive.
To use it, save the code in a member called OB in your ISPEXEC PDS; edit the copybook under ISPF and type OB in the command line. If you want a file with the results then call it with a Parm2 value, like OB AA, the macro will write a file <UserId>.<copybook name>.DATA
Try to get rid of all data after column 72, some systems don't like it.
The program is 482 lines long, and I am getting timeout everytime that I try to send it. I was told to use TimeoutRequest=500, but I do not know how to do it.
If you have an email or another way of receiving it, let me know.
Obrain
Regards