May I suggest not obfuscating the program? ZAP is a trivial instruction for the job, and does not need a constant area.
On 2022-01-28 00:04, Frank M. Ramaekers wrote:
I simply moved null bytes to overlay the result (I could have XC them
as well).
DP WKPACK,KDAYSQC
…
MVC WKPACK(L'WKPACK-L'KDAYSQC),KNULL Expand remainder to
DW
…
KNULL DC 8X’00’
Frank M. Ramaekers Jr.
