$SET DEF 0400
$ASSIGN 0400:GFEMQ0400.POS FOR001
$ASSIGN 0400:GFEMQ0400.POSAGAFGF FOR015
$RUN CRAY:GFAGAFGF
$sort/key=(pos:13,size:12,desc) GFEMQ0400.POSAGAFGF GFEMQ0400.POSAGAFGF
$ASSIGN 0400:GFEMQ0400.ALL FOR001
$ASSIGN 0400:GFEMQ0400.ALLAGAFGF FOR015
$RUN CRAY:GFAGAFGF
$sort/key=(pos:13,size:12,desc) GFEMQ0400.ALLAGAFGF GFEMQ0400.ALLAGAFGF