$SET DEF 0600
$ASSIGN GFEMq0600.POSEXTR FOR001
$ASSIGN GFEMq0600.POS FOR001
$ASSIGN GFEMq0600.POSAGAFGF FOR015
$RUN CRAY:GFAGAFGF
$sort/key=(pos:13,size:12,desc) GFEMQ0600.POSAGAFGF GFEMQ0600.POSAGAFGF
$ASSIGN GFEMq0600.ALLEXTR FOR001
$ASSIGN GFEMq0600.ALL FOR001
$ASSIGN GFEMq0600.ALLAGAFGF FOR015
$RUN CRAY:GFAGAFGF
$sort/key=(pos:13,size:12,desc) GFEMQ0600.ALLAGAFGF GFEMQ0600.ALLAGAFGF