Skip to main content

Another Legacy Conversion Problem

  • November 22, 2018
  • 4 replies
  • 2 views
D

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.

    4 replies

    Gael Wilson
    Forum|alt.badge.img
    • Gael WilsonRocketeer
    • Rocketeer
    • November 22, 2018

    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.

    MacroERP,

    A 9/043 file status is for the following run-time error

    COBRT043 File information missing for indexed file (Fatal)

    It is worth taking a look at the product documentation for details. In a previous post you mentioned moving from Fujitsu COBOL which will not have the same file format which could explain the error.

    D

    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.

    Gael,

    Thanks for the info, I thought it was something like that.

    1. Does the trial version not have error message descriptions or have I not installed something?
    2. I don't seem to be able to locate much documentation for the trial version. Can you point me in the right direction?

    Many thanks,
    Greg.
    D

    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.

    Gael,

    Thanks for the info, I thought it was something like that.

    1. Does the trial version not have error message descriptions or have I not installed something?
    2. I don't seem to be able to locate much documentation for the trial version. Can you point me in the right direction?

    Many thanks,
    Greg.
    Gael Wilson
    Forum|alt.badge.img
    • Gael WilsonRocketeer
    • Rocketeer
    • November 23, 2018

    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.

    Hi Greg,

    1. I would have expected the product installer to install all of the required files. The error messages output from managed code, which is what you have compiled your source to, are picked up from an assembly that should be in the global assembly cache, MicroFocus.COBOL.Messages.
    2. The product documentation is on the Micro Focus web site. If you go to Support & Services > Support Resources > Documentation you should be able to find it.

    Going back to the initial problem, I searched for information on Fujitsu COBOL indexed files and found a couple of items online suggesting that they are compatible with RM/COBOL indexed files, though the articles were several years old. The Visual COBOL product includes a sample to convert RM/COBOL files to Micro Focus format so it might be worth trying that to see if you can use it to convert your existing file, otherwise you will need to recreate it.

    Gael

    Recent badge winners

    Explore all badges
    Terms & ConditionsAccessibility statement