$SETk4F
$COPY DFT*.DAT DFP00.DAT
$ASSIGN KU4F SORTWORK0
$ASSIGN KU4F SORTWORK1
$SORT/KEY=(POS:1,SIZ:4,BINARY)/STAT DFP00.DAT DFP00.SRT