$SETCRAY
$!FOR/LIS GFAGAFGF
$!TYPE GFAGAFGF
$!LINK GFAGAFGF
$ASSIGN 2601:GFEMq2601.POS FOR001
$ASSIGN 2601:GFEMq2601.POSAGAFGF FOR015
$RUN GFAGAFGF
$sort/key=(pos:13,size:12,desc) 2601:GFEMQ2601.POSAGAFGF 2601:GFEMQ2601.POSAGAFGF
$!
$ASSIGN 2601:GFEMq2601.ALL FOR001
$ASSIGN 2601:GFEMq2601.ALLAGAFGF FOR015
$RUN GFAGAFGF
$sort/key=(pos:13,size:12,desc) 2601:GFEMQ2601.ALLAGAFGF 2601:GFEMQ2601.ALLAGAFGF