IMP11 kntkv11/XPROT#REL,xprot#lst

LINK11
ERCM09.I77PERM
XPROT#REL
.STACK 2000
.STREAMS 0
.NAME XPR1
.END
XPR1#OBJ
destroy xpr1y
rename xpr1#obj,xpr1y

alist11 kntkv11,xprot#rel/.lp23