$SET dEF 2602
$ASSIGN GFEMq2602.POS FOR001
$ASSIGN GFEMq2602.POSAGAFGF FOR015
$RUN cray:GFAGAFGF
$sort/key=(pos:13,size:12,desc) GFEMQ2602.POSAGAFGF GFEMQ2602.POSAGAFGF
$ASSIGN GFEMq2602.ALL FOR001
$ASSIGN GFEMq2602.ALLAGAFGF FOR015
$RUN cray:GFAGAFGF
$sort/key=(pos:13,size:12,desc) GFEMQ2602.ALLAGAFGF GFEMQ2602.ALLAGAFGF