Embedded SQL

  TABLE.NAME = 'MYTABLE':RND(30)
  X.CNT = DCOUNT(IN.PREPARED.BY,@VM)
  FOR I = 1 TO X.CNT
    IF I = 1 THEN
      S2 = " FACR_AUTHOR = '":IN.PREPARED.BY<1,I>:"' "
    END ELSE
      S2 := " OR FACR_AUTHOR = '":IN.PREPARED.BY<1,I>:"' "
    END
  NEXT I
  S2 = "(":S2:")"

  S1  = "Select @ID FROM PAC_LP_ASGMTS "
  S1 := " where  PLPA_LOAD_PERIOD = '":IN.LOAD.PERIOD:"' "
  S1 := " AND PLPA_HRP_ID IN "
  S1 := " (Select Distinct FACR_FACULTY_ID from  FACULTY_REMARKS "
  S1 := " where "
  S3  = " AND FACR_TEXT = '":X.TERM:"') "
  S3 := " ORDER BY PLPA_HRP_ID "
* S3 := " TO THE_LIST "
  S3 := " TO ":TABLE.NAME
  X7  = S1:S2:S3
  EXECUTESQL X7
  BB = ''
  LOOP
    READNEXTTUPLE NEXT.ID FROM TABLE.NAME ELSE NEXT.ID = 'eol'
*   READNEXTTUPLE NEXT.ID FROM 'THE_LIST' ELSE NEXT.ID = 'eol'
  UNTIL NEXT.ID = 'eol' DO
    BB<-1> = NEXT.ID
  REPEAT
  CLEARSELECT
  FORMLIST BB TO 0                                                  



Hosted by www.Geocities.ws