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