00024      *********************************************************************
00025      *
00026      * Window . . : MAIN
00027      *
00028      * Part . . . : PBCONNECT
00029      *
00030      * Event  . . : PRESS
00031      *
00032      * Description:
00033      *
00034      *********************************************************************
00035      *
00036     C     PBCONNECT     BEGACT    PRESS         MAIN
00037      *
00038     C                   Eval      %setatr('Main':'ODBC':'ConnectStr') = ' '
00039     C
00040     C                   Eval      %setatr('Main':'ODBC':'Connect') = 1
00041     C
00042     C                   Eval      %SetAtr('Main':'ConnectStr':'Text') =
00043     C                             %Getatr('Main':'ODBC':'ConnectStr')
00044     C
00045      *
00046     C                   ENDACT