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