R MACRO
OBJ:TRANSF,LST:TRANSF/C=SRC:TRANSF
^C
R LINK
BIN:TRANSF,MAP:TRANSF/W=OBJ:TRANSF
^C