$SET DEF 2800
$FOR/LIS EXPANDISO
$TYPE EXPANISO
$LINK EXPANDISO
$ASSIGN ISOLEVELS.DAT FOR001
$ASSIGN GF2800.POS FOR002
$ASSIGN GF2800.POSISO FOR003
$ASSIGN GFEMQ2800.POS FOR002
$ASSIGN GFEMQ2800.POSISO FOR003
$RUN EXPANDISO
$SORT/STABLE/KEY=(POS:1,SIZE:11) GFEMQ2800.POSISO GFEMQ2800.POSISO