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