read index file from acucobol-gt

I am converting acucobol-gt to visual cobol and have problems to access the data files created by acucobol. 

I have used the sample LoginFormApplication and have added access to an existing archive with passwords 

The indexed file is fixed-length and has two archives called  ARCHMENU  and ARCHMENU.vix

Using idxformat 17 or 21 the code error is 39C6

SELECT ARCHMENU  ASSIGN TO RANDOM NAMEMENU
                             ORGANIZATION IS INDEXED
                             ACCESS MODE  IS DYNAMIC
                             RECORD KEY   IS CLVEMENU
                             FILE STATUS  IS ST-STAT.

 

 

 

  • IDXFORMAT"17" should be used to access ACU Vision files.

    How are you setting the idxformat"17" option, in an extfh.cfg file or within the program? What version of Vision was the file created with?

    I can use the following program to create a Vision File with the same name as yours and it creates ARCHMENU and ARCHMENU.vix.

           identification division.
           program-id. Program1.
          $set idxformat"17"     
               SELECT ARCHMENU  ASSIGN TO RANDOM NAMEMENU
                                 ORGANIZATION IS INDEXED
                                 ACCESS MODE  IS DYNAMIC
                                 RECORD KEY   IS CLVEMENU
                                 FILE STATUS  IS ST-STAT.
           data division.
           file section.
           fd archmenu.
           01 archrecord.
              05 clvemenu  pic 9(3).
              05 rest      pic x(10).
           working-storage section.
           01 st-stat      pic x(2) value spaces.
           01 namemenu     pic x(20) value "ARCHMENU".
           procedure division.
    
               open output ARCHMENU
               display st-stat
               move all "1" to archrecord
               write archrecord
                  invalid key
                     display st-stat
               end-write
               close archmenu
               goback.
    
           end program Program1.