Let me try that again ... WORK DS CL6 DS X , Slack byte
UNPK WORK(7),SDWACMPC(4) NC WORK,=X'0F0F0F0F0F0F' TR WORK,=C'0123456789ABCDEF' -- Donald H. Blake Ecclesiastes 12:1 <https://www.kingjamesbibleonline.org/Ecclesiastes-Chapter-12/>
Let me try that again ... WORK DS CL6 DS X , Slack byte
UNPK WORK(7),SDWACMPC(4) NC WORK,=X'0F0F0F0F0F0F' TR WORK,=C'0123456789ABCDEF' -- Donald H. Blake Ecclesiastes 12:1 <https://www.kingjamesbibleonline.org/Ecclesiastes-Chapter-12/>