map1  name,s,8

     xcall jobnam,name

     print name