_shdater length 6 eq exch numeric and
{

 _shdater conntext
 _Raw.Segments
 "LoadActive"
 @Xls
 @^xlRunF2

 _shdater ofconn &".csv"
 _Raw.Detail
 "LoadActive"
 @Xls
 @^xlRunF2

} if