Hrs from HRS is available in a PCR which has HRS=S, etc. Then manipulate HR as you need and store in a t/t or in a variable. It does not remain the same after a PCR is completed or changed in the same PCR after storing in a t/t or var..
To get this stored hrs, you need to have HRS op'n again in
(a)the same PCR above, if HRS have been changed after storing in t/t or var or
(b)in another PCR later after storing.
For checking eff date and processing as per old/ new business rules, use lines as per sample below assuming pcr ZSTO gets hrs from current DWS or wherever you need, manipulates it and stores in a var or t/t, which is available for use later by op'n
(i)HRS=Kxxxx on the current day or
(ii)HRS=Dxxxx for current day t/t value or by HRS=Lxxxx for prev day's t/t val.
PIT ZSTO GEN
IF ZDSC
PIT yyyy GEN
....
....
ELSE
PIT xxxx GEN
....
ENDIF