string strY$ = T1;  // Name of the loose dataset Y
range dsY = [??]!%(strY$);  // Range to the loose dataset Y
%a = xof(dsY);  // Get the name of loose dataset X
string strX$ = %a;  // Put to a string variable
range dsX = [??]!%(strX$);  // Range to the loose dataset X

newbook result:=tmpbook;  // Create a temp book for loose dataset
range rx = [%(tmpbook$)]1!1;  // 1st column of the book
range ry = [%(tmpbook$)]1!2;  // 2nd column of the book
rx = dsX;  // Put loose dataset X to column 1
ry = dsY;  // Put loose dataset Y to column 2
expASC iw:=[%(tmpbook$)]1! path:="d:\aa.dat";  // Export ascii
win -c %(tmpbook$);  // Delete the temp book