From 9adfbf07888c8c5a56d372a9c93f9c4c6c5d4e2e Mon Sep 17 00:00:00 2001 From: Lars Brinkhoff Date: Thu, 4 Jan 2018 10:47:37 +0100 Subject: [PATCH] Make SALV set link flag in UFD when restoring links from tape. --- src/system/salv.313 | 4 ++++ 1 file changed, 4 insertions(+) diff --git a/src/system/salv.313 b/src/system/salv.313 index e1b7ab4c..186b58a6 100644 --- a/src/system/salv.313 +++ b/src/system/salv.313 @@ -981,6 +981,10 @@ DC, MOVEM C,WXWDS+XWFN2 MOVE B,NUSRD+UDNAME DC, MOVEM B,WXWDS+XWSYSN DC, SETZM WXWDS+XWBWC + SETZI B, + SKIPE LNKFLG + MOVSI B,UNLINK + MOVEM B,NUSRD+UNRNDM(A) MOVE B,NUSRD+UDESCP DPB B,[UNDSCP NUSRD+UNRNDM(A)] MOVE B,MHDATE