%
% list the days that are open for the requested date
%
*skedlist
isnull
{
%
% no slots are available for that day
%
 pop
 "No slots are available for that day, please pick another day."
 &" Text us a six digit date (example 011423)." catcr
 &"Text the letter x to end scheduling of this Pickup number."
}
{
%
% slots are available
%
 empty !Sked.Slot
 "ReqSched" *skednumb
 &"Text the number of the preferred time slot to reserve it." catcr
 &"Text the letter x to end scheduling of this Pickup number."
} ifelse