$SETCRAY
$ASSIGN 1704:GFEMq1704.POS FOR001
$ASSIGN 1704:GFEMq1704.POSAGAFGF FOR015
$RUN GFAGAFGF
!$ASSIGN 1704:GFEMq1704.ALL FOR001
!$ASSIGN 1704:GFEMq1704.ALLAGAFGF FOR015
!$RUN GFAGAFGF