Versions Compared

Old Version 3

changes.mady.by.user Corby Nagel

Saved on

compared with

New Version Current

changes.mady.by.user Corby Nagel

Saved on

Key

  • This line was added.
  • This line was removed.
  • Formatting was changed.

...

Code Block
$insert XO_Equates
 
//hXO = XOInstance('PUBS' , '', 'sa')
hXO = XOInstance()
 
if hXO then
  hQry = QryInstance(hXO)
    if hQry then
      flag = QryMethod(hQry, QRY_EXECUTE$, "select au_lname + ', ' + au_fname from authors order by au_lname")
      row = ""
      results = ""
      loop
        flag = QryMethod(hQry, QRY_GETROW$, row)
      while flag
        results<-1> = row
      repeat
      QryMethod(hQry, QRY_DESTROY$)
    end
  rv = Set_Property (@window : '.AUTHORS', 'LIST', results)
  XOMethod(hXO, XO_DESTROY$)
end
 end