$SET DEF 4201
$ASSIGN 4201:GF4201.POS FOR001
$ASSIGN 4201:GF4201.POSAGAFGF FOR015
$RUN CRAY:GFAGAFGF
$SORT/KEY=(POS:13,SIZE:12,DESC) GF4201.POSAGAFGF GF4201.POSAGAFGF
$ASSIGN 4201:GF4201.ALL FOR001
$ASSIGN 4201:GF4201.ALLAGAFGF FOR015
$RUN CRAY:GFAGAFGF
$SORT/KEY=(POS:13,SIZE:12,DESC) GF4201.ALLAGAFGF GF4201.ALLAGAFGF