map1  name,s,8

    xcall jobnam,name

    print name