OPEN 'THE.FILE' TO F1 ELSE STOP
*
AA  = "Select @ID FROM THE_FILE "
AA := " TO THE_LIST "
EXECUTESQL AA
*
LOOP
  READNEXTTUPLE NEXT.ID FROM 'THE_LIST' ELSE NEXT.ID = 'eol'
UNTIL NEXT.ID = 'eol' DO
  READ REC FROM F1, NEXT.ID THEN
    CRT 'NEXT.ID ':NEXT.ID:'  Faculty ID ':REC<1>:'  Positions ':REC<2>
  END
REPEAT
CLEARSELECT