$SETCRAY
$!FOR/LIS GFAGAFGF
$!TYPE GFAGAFGF
$!LINK GFAGAFGF
$ASSIGN 1902:GFEMq1902.POS FOR001
$ASSIGN 1902:GFEMq1902.POSAGAFGF FOR015
$RUN GFAGAFGF
!$ASSIGN 1902:GFEMq1902.ALL FOR001
!$ASSIGN 1902:GFEMq1902.ALLAGAFGF FOR015
!$RUN GFAGAFGF