Aaru
Senior Member
Joined: 03 Jul 2007
Posts: 1287
Location: Chennai, India
|
|
|
|
aham,
find below the REXX code. You will have to make few changes according to your requirement.
The below code is for changing the second qualifier to UATT and then creating it with the same attributes. You will have to make some changes for copying it instead of just creating it. You can use 'TSO COPY' for the same.
First you shd have a dataset with the list of all the files that needs to be copied.
| Code: |
/* REXX */
FILE14=your.file.name /* which is nothing but u r dataset which */
/*wud have the list of all datasets that needs to be changed */
ADDRESS "TSO"
"allocate dataset('"file14"'),
fi(dtset14) shr"
"execio * diskr dtset14 (stem B.)"
"FREE DDNAME(DTSET14)"
DO J = 1 TO B.0
b.j = strip(b.j)
len = length(b.j)
posx = pos(".",B.J)
lstr = left(b.j,posx)
rstr = right(b.j,POSX+3)
line = lstr||"UATT"||rstr
ADDRESS "TSO"
"FREE DDNAME(DTSET3)"
ADDRESS "TSO"
"ALLOC DA('"LINE"') F(dtset3)",
"LIKE('"B.J"') NEW"
"FREE DDNAME(DTSET3)"
end |
|
|
