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