• Initializing a query:
  1. Initializing a query with a logical name:
     

     EXTERN MyQuery
     HExecuteSQLQuery(MyQuery, "SELECT NAME FROM CUSTOMER")
     // Other possible syntax:
     // HExecuteSQLQuery("MyQuery", "SELECT NAME FROM CUSTOMER")
      
     // Use the query
     HReadFirst(MyQuery, Name)
     IF NOT HOut() THEN
     	Info("The 1st customer is: " + MyQuery.Name)
     END
     ...
     HCancelDeclaration(MyQuery)

  2. Initialize a query with a "Data Source" variable:
     

     MyQuery is Data Source
     HExecuteSQLQuery(MyQuery, "SELECT NAME FROM CUSTOMER")
     // Use the query
     HReadFirst(MyQuery, Name)
     IF NOT HOut() THEN
     	Info("The 1st customer is: " + MyQuery.Name)
     END

• Initializing a view:
  1. Initializing a view with a logical name:
     

     EXTERN MyView
     HCreateView(MyView, CUSTOMER, "*", "NAME,CITY", "NAME]='A'", hViewDefault)
     // Other possible syntax:
     // HCreateView("MyView", "CUSTOMER", "*", "NAME,CITY", "NAME]='A'", hViewDefault)
     
     // Use the view
     HReadFirst(MyView, Name)
     IF NOT HOut() THEN
     	Info("The 1st customer is: " + MyView.Name)
     END
     ...
     HDeleteView(MyView)

  2. Initializing a view with a "Data Source" variable:
     

     MyView is Data Source
     HCreateView(MyView, CUSTOMER, "*", "NAME,CITY", "NAME]='A'", hViewDefault)
     // Use the view
     HReadFirst(MyView, Name)
     IF NOT HOut() THEN
     	Info("The 1st customer is: " + MyView.Name)
     END

Using a data source in an SQL query

ArchiveTicket is Data Source
HDeclareExternal("Ticket_Backup.fic", ArchiveTicket)
     
QRY is Data Source 
sMyQry is string = [
	SELECT *
	FROM [%TicketArchive%]
	WHERE ZIPCODE='26110'
]
IF HExecuteSQLQuery(QRY, hQueryDefault, sMyQry) THEN
	Info(HNbRec(QRY) + " tickets match.")
END

ArchiveTicket is Data Source = <description=Ticket>
HDeclareExternal("Ticket.FIC", ArchiveTicket)
REQ is SQL Query = [
		SELECT *
		FROM [%TicketArchive%]
	]
HExecuteQuery(QRY)
FOR EACH QRY 
	Trace(QRY.TicketID)
END