$SET4NEWDF
$for/lis separatedf
$type separatedf
$link separatedf
$SETK4F
$assign dfp00.srt for001
$run 4NEWDF:separatedf