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