DATA DIVISION.
   WORKING-STORAGE SECTION.
    DO-CONNECT.
        STRING "jdbc:mysql://***ip****/***database**?"
         DELIMITED BY SIZE
         "user=root"
         "password=root"
         DELIMITED BY SIZE
         INTO JdbcString
        EXEC SQL
         CONNECT
         TO :JdbcString
         DRIVER "com.mysql.jdbc.Driver"
        END-EXEC
        .