$SETCRAY
$FOR/LIS GFAGAFGF
$TYPE GFAGAFGF
$LINK GFAGAFGF
$ASSIGN 1400:GFEMQ1400.POS FOR001
$ASSIGN 1400:GFEMQ1400.AGAFGF FOR015
$RUN GFAGAFGF