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