GET CONNECTION

     EXEC ADO 
        GET CONNECTION INTO :con TRANSACTION INTO :tran
     END-EXEC