Print to a memory file then read it back.
->open (1) "*memory*"
->print (1) @(0),"Jeff",@(20),"PxPlus",@(50),"Canada"
->read record (1,ind=0) R$
->print r$
Jeff PxPlus Canada
->print hta(R$)
4A656666202020202020202020202020202020205078506C757320202020202020202020202020202020202020202020202043616E616461