00001     D Item            S             10
00002     D Item_Ptr        S               *
00003     D Total           S              9  3
00004     D ToTal_Ptr       S               *   Inz(%addr(Total))
00005
00006      * Describe the First Column
00007     C                   Eval      %setatr('Main':'ODBC':'Column') = 1
00008     C                   Eval      %setatr('Main':'ODBC':'BufferLen') =
00009     C                                    %Len(Item)
00010     C                   Eval      %setatr('Main':'ODBC':'BufferType') = 1
00011     C                   Eval      Item_Ptr =  %Addr(Item)
00012     C     'ODBC'        SetAtr    Item_Ptr      'BufferPtr'
00013
00014      * Describe the Second column
00015     C                   Eval      %setatr('Main':'ODBC':'Column') = 2
00016     C                   Eval      %setatr('Main':'ODBC':'BufferLen') =
00017     C                                    %Len(Total)
00018     C                   Eval      %setatr('Main':'ODBC':'BufferType') = 0
00019     C     'ODBC'        SetAtr    Total_Ptr     'BufferPtr'