00001     C                   Eval      SQL = 'Select Item,Sum(Qty)-
00002     C                                       From LocQty -
00003     C                                       Group By Item'
00004     C
00005     C* Load and Execute the SQL
00006     C                   Eval      %setatr('Main':'ODBC':'SQLQuery') = SQL
00007     C                   Eval      %setatr('Main':'ODBC':'ExecuteSQL') = 1
00008     C
00009     C                   DoU       DataFound = 0
00010     C
00011     C* Get a record
00012     C                   Eval      %setatr('Main':'ODBC':'FetchNext') = 1
00013     C
00014     C* Check to see if a record was returned
00015     C                   Eval      DataFound = %getatr('Main':'ODBC':'IsData')
00016     C                   If        DataFound = 1
00017     C                   Eval      MsgText = 'Data Record Found'
00018     C                   Else
00019     C                   Eval      MsgText = 'End of Data'
00020     C                   EndIf
00021     C                   EndDo