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