CREATE QUERY statement


CREATE QUERY `handle` [ IN WIDGET-POOL `widget-pool-name` ]

IN WIDGET-POOL widget-pool-name

An expression of type CHARACTER that evaluates, at run time, to the name of the widget pool that contains the dynamic query.

Note: Widget pool names are not case-sensitive.

The following example creates a dynamic query with a static buffer and a dynamic predicate (WHERE clause) which is resolved at run time:

r-crtqry.p
/* r-crtqry.p */ DEFINE VARIABLE hQuery AS HANDLE NO-UNDO. DEFINE VARIABLE iNumVar AS INTEGER NO-UNDO INITIAL 10. CREATE QUERY hQuery. hQuery:SET-BUFFERS(BUFFER Customer:HANDLE). hQuery:QUERY-PREPARE("FOR EACH Customer WHERE Customer.CustNum < " + STRING(iNumVar)). hQuery:QUERY-OPEN. REPEAT WITH FRAME y: hQuery:GET-NEXT(). IF hQuery:QUERY-OFF-END THEN LEAVE. DISPLAY Customer.CustNum Customer.Name FORMAT "x(30)" Customer.City FORMAT "X(20)". END. hQuery:QUERY-CLOSE() DELETE OBJECT hQuery.

r-crtqry.p

/* r-crtqry.p */ 
DEFINE VARIABLE hQuery  AS HANDLE  NO-UNDO. 
DEFINE VARIABLE iNumVar AS INTEGER NO-UNDO INITIAL 10. 
CREATE QUERY hQuery. 
hQuery:SET-BUFFERS(BUFFER Customer:HANDLE).  
hQuery:QUERY-PREPARE("FOR EACH Customer WHERE Customer.CustNum < " + 
  STRING(iNumVar)). 
hQuery:QUERY-OPEN. 
REPEAT WITH FRAME y: 
  hQuery:GET-NEXT(). 
  IF hQuery:QUERY-OFF-END THEN LEAVE. 
  DISPLAY  
    Customer.CustNum 
    Customer.Name FORMAT "x(30)" 
    Customer.City FORMAT "X(20)". 
END. 
hQuery:QUERY-CLOSE() 
DELETE OBJECT hQuery.