LINK
STRANS_FNAMESY
STRANS_XSTRANY
STRANS_STDATAY
STRANS_STRANY
STRANS_EMASIAY
STRANS_EMASIBY
.END
TEMPOBJ
RESOLVE TEMPOBJ,XSTRANZ,,.LP
Y
SUPPRESS()
RETAIN(XSTRAN)
.
DESTROY TEMPOBJ