EDIT x25_XPROTs,T#B
TA/198/A1STM/Versi/f<X>KZ(r/Running/i<X>i/ (Fast)/p1)2
E
prep t#b,xprot#imp,F,p,Y
IMP11 XPROT#IMP/XPROT#REL,xprot#lst

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

alist11 xprot#imp/.lp23