access data base and occurs

Hi Ignacio,

I am not really sure what you are asking here. Are you using Database Connectors to access your database or are you referring to standard COBOL indexed data files when you refer to a database? 

Can you provide a bit more detail on what it is you are trying to read from the database. How do you read the data in the database? Can you show me a select statement you are using?

Thanks

Hi Ignacio,

If you’re referring to a SQL based database like DB2, you can iterate through a cursor and store the rows in an array by using a multi row fetch cursor:

01  ws-dept-table.

    05  ws-dept-array       occurs 10 times.

        10  ws-dept-number  pic x(10).

        10  ws-dept-name    pic x(30).

  exec sql

     declare deptcurs  cursor for

        select dept-number, dept-name

          from depts 

         where dept-type = “acct”

  end-exec.

  exec sql

     fetch deptcurs for 10 rows 

      into :ws-dept-array

  end-exec.