zOs/TX/PA2DI

* mehrdimensional Paritionierung mit Indirektions Tabelle
* Partitionierungs Tabelle
*     pa2dDat: p cif aDt data
*     pa2dPar: p cifBeg cifEnd aDtBeg aDtEnd
*        mit p = select p from pa2dPar
*                  where cif >= cifBeg and cif < cifEnd
*                    and aDt >= aDtBeg and aDt < aDtEnd
*
*        und fuer cif >= cB and cif < cE and aDt >= aB and aDt < aE
*        wird das p in (select q from pa2dPar
*                  where cE  >  cifBeg and cB < cifEnd
*                    and aE  >  aDtBeg and aB < aDtEnd
creDb trg 1
+ ok creDb DSN.TX.GENF(PA2DIt1) ::f