Please help with the following file read that runs when using our old compiler but falls over opening the file with the Visual COBOL error -> MicroFocus.COBOL.Program.COBOLFileHandlingException: ''c:\data\MCDFCTL' : 9/043 (ANS74)
%d error message text not found '
IDENTIFICATION DIVISION.
PROGRAM-ID. program1.
ENVIRONMENT DIVISION.
INPUT-OUTPUT SECTION.
FILE-CONTROL.
SELECT CONTROL-FILE
ASSIGN TO "c:\data\MCDFCTL"
ACCESS MODE IS RANDOM
LOCK MODE IS AUTOMATIC WITH LOCK ON RECORD
ORGANIZATION IS INDEXED
RECORD KEY IS C1-KEY.
DATA DIVISION.
FILE SECTION.
FD CONTROL-FILE.
01 CONTROL-REC1.
05 c1-key pic x(10).
05 c1-data pic x(990).
WORKING-STORAGE SECTION.
PROCEDURE DIVISION.
MYPROGRAM SECTION.
display "open".
OPEN INPUT CONTROL-FILE.
display "key".
MOVE 'DEBTORTZZZ' TO C1-KEY.
display "read".
READ CONTROL-FILE.
display CONTROL-REC1.
close control-file.
display "closed".
END PROGRAM program1.
↧
Another Legacy Conversion Problem
↧