zOs/TX/PER09A

*   ew22: reorg abends with too many locks
=prts=600
creDb trg 1
+ ok creDb A540769.TX.GENF(PER09t1) ::f
* sub PER09INS ==> alle Partitionen füllen
* sub PER09REO ==> mit oder ohne Partlevel? Im Moment läuft's durch|