$#@ $=d1=DSN.DBX.DDK(DUMMY) call dsnCopy $d1, 'RZX/'$d1 call dsnCopy $d1, 'RZY/'$d1 call dsnCopy $d1, 'RZZ/'$d1 call dsnCopy $d1, 'RQ2/'$d1 call dsnCopy $d1, 'RR2/'$d1 call dsnCopy $d1, 'RZ2/'$d1