I did another test to prove there isn't a problem with the input file I'm using, which was created by an RM/COBOL program. First, in Visual Studio, I executed the write-rm-file paragraph to create a new indexed file using Visual COBOL. There were no errors and the out-file showed filestat 00 when the program was done. Then I changed the * to perform read-rm-file. It worked, showing filestat 00 and in-rec "00000000". Then I tried the same test using the exe, outside Visual Studio. The first part of the test, write-rm-file, shows that the program couldn't even successfully open a new output indexed file. The filestat was 30 again. PROCEDURE DIVISION. start-program. perform read-rm-file. * perform write-rm-file. goback. read-rm-file. open output out-file. OPEN INPUT IN-FILE. move filestat to out-rec. write out-rec. read in-file next move IN-RECORD to out-rec. write out-rec. close in-file out-file. write-rm-file. open output out-file. open output in-file. move filestat to out-rec. write out-rec. move zeros to in-record. write in-record. move 1 to in-record. write in-record. close in-file out-file.
↧