Quantcast
Channel: Visual COBOL - Forum - Recent Threads
Viewing all articles
Browse latest Browse all 4356

RE: Accessing RM Data files from Managed Visual COBOL

$
0
0

Access to ACU and RM data files has been supported since 2.1 through the IDXFORMAT directive or FILETYPE directive where 17 correcsponds to ACU and 21 corresponds to RM.

We have also added some features to the extfh.cfg file such as INTEROP and FOLDERS specification.
Please see the documentation here:

If you had an older release of Visual COBOL installed it may have installed a separate add on for Vision file support.
You may have to go to control panel and remove this add on.
Also the environment variables that were required previously on older versions are no longer required and should be removed from your computers environment if you are setting them.

This includes A_CONFIG and CONVERTSTATUS=RM.

A really simple example that will work in managed or native code is the following which uses IDXFORMAT"21" directive instead of using extfh.cfg file.

      program-id. Program1.
     $set idxformat"21"
          select rm-file assign to "testfile.dat"
                         organization is indexed
                         access is dynamic
                         record key is key1
                         file status is file-status.

      data division.
      fd rm-file.
      01 rm-record.
         05 key1  pic 9(3).
         05 rest  pic x(5).
      working-storage section.
      01 file-status pic x(2).
      procedure division.

          open output rm-file
          display "open = " file-status

          perform varying key1 from 1 by 1 until key1 > 10
             move all "X" to rest
             write rm-record
                invalid key
                 display "error = " file-status
             end-write
          end-perform

          close rm-file
          goback.


Viewing all articles
Browse latest Browse all 4356

Trending Articles



<script src="https://jsc.adskeeper.com/r/s/rssing.com.1596347.js" async> </script>