USING da.*.

{includes/dsUserUserRole.i}


DEFINE VARIABLE test      AS CLASS AppUser      NO-UNDO.
DEFINE VARIABLE httHandle AS HANDLE             NO-UNDO.
DEFINE VARIABLE tBUFFER   AS HANDLE             NO-UNDO.
DEFINE VARIABLE hquery AS HANDLE      NO-UNDO.
 CREATE QUERY hquery.


httHandle = TEMP-TABLE ttAppUser:HANDLE.




test = NEW da.AppUser (INPUT httHandle).



httHandle = test:fillttTable().
CREATE BUFFER tBuffer FOR TABLE httHandle.

hQuery:SET-BUFFERS(tBuffer).

hquery:QUERY-PREPARE(SUBSTITUTE("for each &1 no-lock", tBuffer:NAME)).
hquery:QUERY-OPEN().

DO WHILE NOT hquery:QUERY-OFF-END:
  hQuery:GET-NEXT(NO-LOCK).
  IF NOT tBuffer:AVAILABLE THEN
    LEAVE.
    CREATE ttAppUser.
    ASSIGN
    ttAppUser.AppUserID =           tBuffer:BUFFER-FIELD(1):BUFFER-VALUE()
    ttAppUser.NAME =                tBuffer:BUFFER-FIELD(2):BUFFER-VALUE()
    ttAppUser.UserName =            tBuffer:BUFFER-FIELD(3):BUFFER-VALUE().
END.

FOR EACH ttAppuser:
    DISPLAY ttAppUSer.
END.