$SET DEF 0500
$ASSIGN 0500:GFEMq0500Z.POS FOR001
$ASSIGN 0500:GFEMq0500Z.POSAGAFGF FOR015
$RUN CRAY:GFAGAFGF
$sort/key=(pos:13,size:12,desc) GFEMQ0500Z.POSAGAFGF GFEMQ0500Z.POSAGAFGF
$ASSIGN 0500:GFEMq0500Z.ALL FOR001
$ASSIGN 0500:GFEMq0500Z.ALLAGAFGF FOR015
$RUN CRAY:GFAGAFGF
$sort/key=(pos:13,size:12,desc) GFEMQ0500Z.ALLAGAFGF GFEMQ0500Z.ALLAGAFGF