$SET DEF KU6E:[KURUCZ.4601]
$ASSIGN GF4601.POS FOR001
$ASSIGN GF4601.POSAGAFGF FOR015
$RUN CRAY:GFAGAFGF
$SORT/KEY=(POS:13,SIZE:12,DESC) GF4601.POSAGAFGF GF4601.POSAGAFGF
$!ASSIGN GF4601.ALL FOR001
$!ASSIGN GF4601.ALLAGAFGF FOR015
$!RUN CRAY:GFAGAFGF
$!SORT/KEY=(POS:13,SIZE:12,DESC) GF4601.ALLAGAFGF GF4601.ALLAGAFGF