A.INDEX ON DD1B.SET INDEX TOC.CHANGED.USE
A.RECALLB.PACKC.RECALL ALLD.ZAP
A.REN DD .DBF TO AA .DBFB.RENAME FILE DD .DBF AA .DBFC.RENAME FILE DD .DBF TO AA .DBFD.RENAME DD .DBF TO AA .DBF