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.
↧
