LINK
STRANS_STMAINY
STRANS_STDATAY
STRANS_FNAMESY
STRANS_STRANY
STRANS_EMASIAY
STRANS_EMASIBY
.END
TEMPOBJ
RESOLVE TEMPOBJ,STRANZ,,.LP
Y
SUPPRESS()
RETAIN(STRAN)
.
DESTROY TEMPOBJ