%
% accept name and request company name
%
% sent a request for a name
%
_Sms.Body trim any?
{
 !Sked.Name
"Please give your company name."
 *skedxmit
 "ReqComp" *skednumb
}
{
"Must supply a name."
 *skedxmit
} ifelse