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