address ispexec
        "vget (zdate ztime)"
     p4110dat = zdate
     p4110tim = ztime
     address ispexec
        "vput (p4110dat p4110tim) profile"