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

Another Legacy Conversion Problem

$
0
0

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.


Viewing all articles
Browse latest Browse all 1559

Trending Articles



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