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