Following can be used, irrespective of splits in the w/t entries:
a)PCR ZIN1 SET VAR TO ZERO
*/****
ZERO=&ZHR2
b)PCR ZPR1 CALC 9LWP - 9LPR
*/9LPR
SUBWT&ZHR2
*/9LWP
ADDWT&ZHR2
c)PCR ZLDF CREATE 9LDF ENTRY
*/****
AMT=& ZHR2
D AMT?0
* ADDWT ZLDF
=
d)Lines in schema after 9LWP & 9LDF entries are created in IT.
ACTIO ZIN1
PIT ZPR1 bbbb NOAB
PIT ZLDF GEN NOAB