Cacher is the code snippet organizer for pro developers

            DEF VAR vWorkstation AS CHAR NO-UNDO.
            FIND FIRST LicUser WHERE LicUser.CurUserID = dcd-userid NO-LOCK.
            ASSIGN vWorkstation = STRING(LicUser.ClientComputerName) + " " + STRING(LicUser.ClientTerminalID).
            ASSIGN ttJobTravParam.WorkstationID = vWorkstation.