EDIT x25_gatexs,t#b
A/198/A1STM/Versi/F<X>K(M/GATX Running/M0R/Running/I<X>i/ (Min,Large,2 lines)/p1)2
E
prep t#b,gatex#imp,m,h,clean,b
IMP11 gatex#imp/gatex#rel,gatex#lst

LINK11
ERCM09.I77PERM
gatex#rel
.name gatx
.STACK 5000
.STREAMS 1
.END
gatex#obj
destroy bacg
COPY gatex#obj,gatex_hobj
rename gatex#obj,bacg
transfer bacg,erte(,)BACG(41),ma,no
DESTROY t#b