$SETCRAY
$FOR/LIS GFAGAFGF
$TYPE GFAGAFGF
$LINK GFAGAFGF
$ASSIGN 2402:GFEMQ2402.POS FOR001
$ASSIGN 2402:GFEMQ2402.POSAGAFGF FOR015
$RUN GFAGAFGF