From 7ebf84aea53a8651ba5c87db7a7904a6bdbdd6fe Mon Sep 17 00:00:00 2001 From: Lars Brinkhoff Date: Wed, 10 Jan 2018 15:32:27 +0100 Subject: [PATCH] Make SALV write 000 to the on-disk UNBYTE field. The previous value, 777, is not a valid code and caused problems. --- src/system/salv.313 | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) diff --git a/src/system/salv.313 b/src/system/salv.313 index 94785e91..844ec123 100644 --- a/src/system/salv.313 +++ b/src/system/salv.313 @@ -989,7 +989,8 @@ DC, SETZM WXWDS+XWBWC DPB B,[UNDSCP NUSRD+UNRNDM(A)] MOVE B,MHDATE MOVEM B,NUSRD+UNDATE(A) - SETOM NUSRD+UNREF(A) + HRROI B,777000 ;NO REFERENCE DATE, NO AUTHOR, 36-BIT BYTES + MOVEM B,NUSRD+UNREF(A) MOVE B,TUT+QPKNUM DPB B,[UNPKN NUSRD+UNRNDM(A)] MOVEI A,NUSRD+UNRNDM(A)