One of the key runtime properties used to connect to an RDBMS from isCOBOL is the iscobol.jdbc.url (among others). It is usually included in a text formatted properties file. For example, the following properties would be included to connect to an Oracle DB.

  iscobol.jdbc.url=jdbc:oracle:thin:orauser1/0raPw1@127.0.0.1:1521:xe
  iscobol.jdbc.driver=oracle.jdbc.OracleDriver

 fd  db-credentials.
 01  db-cred-rec.
     05 db-user     pic x(10).
     05 db-password pic x(16).

2. Create an isCOBOL program to save the user and password on that ISAM file, just as you would save any other data on an indexed file.
Instead, for the password you may use the "a$encrypt" system routine to encrypt it before saving. See the following excerpt.

    call "a$encrypt" using ws-password 
                           "thekey01"
                           db-password

3. Remove the iscobol.jdbc.url property from your text properties file.

4. On the connection program, before the CONNECT statement you will read the ISAM file and decrypt the password as follows.

    call "a$decrypt" using db-password 
                           "thekey01"
                           ws-password

5. Finally put together the jdbc.url property dynamically as follows, just before the CONNECT statement.

 connect-to-db.
    initialize ws-jdbc-url
    string "jdbc:oracle:thin:" delimited by size
           db-user delimited by trailing spaces
           "/" delimited by size
           ws-password delimited by trailing spaces
           "@127.0.0.1:1521:xe"
      into ws-jdbc-url
    end-string

    set environment "jdbc.url"
        to ws-jdbc-url

• dbconnect.zip

1. File Types Comparison : isCOBOL - Micro Focus COBOL - ACUCOBOL-GT - RM/COBOL
2. How do I interpret file status 9? and other EXFS extended file status codes (e.g. 9i,105)?
3. What format does isCOBOL use for ORGANIZATION RELATIVE files?
4. What is 9l,10 error and why is it happening?
5. Does isCOBOL support Data General file status codes?
6. Can I install the UDBC 32 bit on my 64 bit computer in order to have the Veryant * driver for ODBC32 bits Administrator?
7. Can I call a stored procedure from an isCobol program?
8. Are Veryant's isCOBOL JISAM data format the same as Faircom's c-treeRTG?
9. Why do I get 'ct_init ERROR 19:133:0' ?
10. Did you know you can use an alias to map a different disk file name to an existing "assign to" clause of the select statement without source code changes?
11. Did you know you can encrypt an indexed file?
12. Handling the extension on indexed data files
13. Can we use Micro Focus format data and indexed files directly or do they need some form of conversion?
14. How to access files on a different server
15. How to create, write, and read to files without a program
16. Managing the order of the alternate keys in an indexed file