error 13 File Not Found - migrating from MF COBOL to Visual Cobol(Native)

Hi,

i remember this error from a year ago, during test of MF cobol for Eclipse.

I tried to find solution today, no luck with google, our forum or KB. So there it is, Use case;

****cobol code:

FILE-CONTROL.
SELECT DDEING
ASSIGN TO AEING.
*was UT-S-DDEING
SELECT DDBERKA
ASSIGN TO ABERKA.
*was UT-S-DDBERKA
*****
*****
DATA DIVISION.
FILE SECTION.
*
FD DDEING
RECORDING MODE F
LABEL RECORD STANDARD
BLOCK 0 RECORDS.
01 DDEING-REC.
05 DDEING-ELEM PIC X(2).
05 DDEING-REST PIC X(498).
FD DDBERKA
RECORDING MODE F
BLOCK 0 RECORDS.

...

OPEN INPUT DDEING <-- error 13 file not found
OPEN OUTPUT DDBERKA

I have following additional directives(error occures also without additional directives) ;

DIALECT(ENTCOBOL) INITCALL"ORASQL8" ASSIGN "EXTERNAL" copyext"cpy" hostarithmetic PERFORM-TYPE"OSVS" signfixup IDXFORMAT(8) nolist

and following env. var.; AEING -> "G:\\Entwicklung\\mfes\\TPO\\Data\\LEM\\TS64004.QUACON.DDZMV.DAT"

File resides in (mounted) shared disk.

Thanks,

Alex

#error13filenotfoundvisualcobol

This would normally indicate that there is a problem with the file handler picking up the environment variable value that is associated with the filename or that perhaps the shared location is not accessible.

Where are you setting the AEING environment variable, at the system level or within Eclipse?

For a test try the following:

Change select statement to assign directly to the filename.

SELECT DDEING

ASSIGN TO "G:\\Entwicklung\\mfes\\TPO\\Data\\LEM\\TS64004.QUACON.DDZMV.DAT"

If that works then you know that the location and name is accessible and that most likely the environment variable isn't being picked up.

If the direct assignment fails then I would try moving the file locally to see if that works.

If it does then most likely it is an issue accessing the network share.

Thanks.

Hi,

i remember this error from a year ago, during test of MF cobol for Eclipse.

I tried to find solution today, no luck with google, our forum or KB. So there it is, Use case;

****cobol code:

FILE-CONTROL.
SELECT DDEING
ASSIGN TO AEING.
*was UT-S-DDEING
SELECT DDBERKA
ASSIGN TO ABERKA.
*was UT-S-DDBERKA
*****
*****
DATA DIVISION.
FILE SECTION.
*
FD DDEING
RECORDING MODE F
LABEL RECORD STANDARD
BLOCK 0 RECORDS.
01 DDEING-REC.
05 DDEING-ELEM PIC X(2).
05 DDEING-REST PIC X(498).
FD DDBERKA
RECORDING MODE F
BLOCK 0 RECORDS.

...

OPEN INPUT DDEING <-- error 13 file not found
OPEN OUTPUT DDBERKA

I have following additional directives(error occures also without additional directives) ;

DIALECT(ENTCOBOL) INITCALL"ORASQL8" ASSIGN "EXTERNAL" copyext"cpy" hostarithmetic PERFORM-TYPE"OSVS" signfixup IDXFORMAT(8) nolist

and following env. var.; AEING -> "G:\\Entwicklung\\mfes\\TPO\\Data\\LEM\\TS64004.QUACON.DDZMV.DAT"

File resides in (mounted) shared disk.

Thanks,

Alex

#error13filenotfoundvisualcobol

Chris,

full path was working year ago, it still works.

It is(was) a mater of env.var. which I set in Project properties[Eclipse/MFCobol/Runconfig/env.var.]

I've tried to workaround, so far no luck.

Alex

Hi,

i remember this error from a year ago, during test of MF cobol for Eclipse.

I tried to find solution today, no luck with google, our forum or KB. So there it is, Use case;

****cobol code:

FILE-CONTROL.
SELECT DDEING
ASSIGN TO AEING.
*was UT-S-DDEING
SELECT DDBERKA
ASSIGN TO ABERKA.
*was UT-S-DDBERKA
*****
*****
DATA DIVISION.
FILE SECTION.
*
FD DDEING
RECORDING MODE F
LABEL RECORD STANDARD
BLOCK 0 RECORDS.
01 DDEING-REC.
05 DDEING-ELEM PIC X(2).
05 DDEING-REST PIC X(498).
FD DDBERKA
RECORDING MODE F
BLOCK 0 RECORDS.

...

OPEN INPUT DDEING <-- error 13 file not found
OPEN OUTPUT DDBERKA

I have following additional directives(error occures also without additional directives) ;

DIALECT(ENTCOBOL) INITCALL"ORASQL8" ASSIGN "EXTERNAL" copyext"cpy" hostarithmetic PERFORM-TYPE"OSVS" signfixup IDXFORMAT(8) nolist

and following env. var.; AEING -> "G:\\Entwicklung\\mfes\\TPO\\Data\\LEM\\TS64004.QUACON.DDZMV.DAT"

File resides in (mounted) shared disk.

Thanks,

Alex

#error13filenotfoundvisualcobol

Chris,

full path was working year ago, it still works.

It is(was) a mater of env.var. which I set in Project properties[Eclipse/MFCobol/Runconfig/env.var.]

I've tried to workaround, so far no luck.

Alex

Hi,

i remember this error from a year ago, during test of MF cobol for Eclipse.

I tried to find solution today, no luck with google, our forum or KB. So there it is, Use case;

****cobol code:

FILE-CONTROL.
SELECT DDEING
ASSIGN TO AEING.
*was UT-S-DDEING
SELECT DDBERKA
ASSIGN TO ABERKA.
*was UT-S-DDBERKA
*****
*****
DATA DIVISION.
FILE SECTION.
*
FD DDEING
RECORDING MODE F
LABEL RECORD STANDARD
BLOCK 0 RECORDS.
01 DDEING-REC.
05 DDEING-ELEM PIC X(2).
05 DDEING-REST PIC X(498).
FD DDBERKA
RECORDING MODE F
BLOCK 0 RECORDS.

...

OPEN INPUT DDEING <-- error 13 file not found
OPEN OUTPUT DDBERKA

I have following additional directives(error occures also without additional directives) ;

DIALECT(ENTCOBOL) INITCALL"ORASQL8" ASSIGN "EXTERNAL" copyext"cpy" hostarithmetic PERFORM-TYPE"OSVS" signfixup IDXFORMAT(8) nolist

and following env. var.; AEING -> "G:\\Entwicklung\\mfes\\TPO\\Data\\LEM\\TS64004.QUACON.DDZMV.DAT"

File resides in (mounted) shared disk.

Thanks,

Alex

#error13filenotfoundvisualcobol

Chris,

full path was working year ago, it still works.

It is(was) a mater of env.var. which I set in Project properties[Eclipse/MFCobol/Runconfig/env.var.]

I've tried to workaround, so far no luck.

Alex

Hi,

i remember this error from a year ago, during test of MF cobol for Eclipse.

I tried to find solution today, no luck with google, our forum or KB. So there it is, Use case;

****cobol code:

FILE-CONTROL.
SELECT DDEING
ASSIGN TO AEING.
*was UT-S-DDEING
SELECT DDBERKA
ASSIGN TO ABERKA.
*was UT-S-DDBERKA
*****
*****
DATA DIVISION.
FILE SECTION.
*
FD DDEING
RECORDING MODE F
LABEL RECORD STANDARD
BLOCK 0 RECORDS.
01 DDEING-REC.
05 DDEING-ELEM PIC X(2).
05 DDEING-REST PIC X(498).
FD DDBERKA
RECORDING MODE F
BLOCK 0 RECORDS.

...

OPEN INPUT DDEING <-- error 13 file not found
OPEN OUTPUT DDBERKA

I have following additional directives(error occures also without additional directives) ;

DIALECT(ENTCOBOL) INITCALL"ORASQL8" ASSIGN "EXTERNAL" copyext"cpy" hostarithmetic PERFORM-TYPE"OSVS" signfixup IDXFORMAT(8) nolist

and following env. var.; AEING -> "G:\\Entwicklung\\mfes\\TPO\\Data\\LEM\\TS64004.QUACON.DDZMV.DAT"

File resides in (mounted) shared disk.

Thanks,

Alex

#error13filenotfoundvisualcobol

Chris,

clarification: if env.var. set at system level, then its working, as in :

documentation.microfocus.com/.../index.jsp

It will be nice to set ddnames at project level, since otherwise we need to change most of ddnames in .cbl and .jcl in order to have same comfort as with NetExpress.

Thanks,

Alex

Hi,

i remember this error from a year ago, during test of MF cobol for Eclipse.

I tried to find solution today, no luck with google, our forum or KB. So there it is, Use case;

****cobol code:

FILE-CONTROL.
SELECT DDEING
ASSIGN TO AEING.
*was UT-S-DDEING
SELECT DDBERKA
ASSIGN TO ABERKA.
*was UT-S-DDBERKA
*****
*****
DATA DIVISION.
FILE SECTION.
*
FD DDEING
RECORDING MODE F
LABEL RECORD STANDARD
BLOCK 0 RECORDS.
01 DDEING-REC.
05 DDEING-ELEM PIC X(2).
05 DDEING-REST PIC X(498).
FD DDBERKA
RECORDING MODE F
BLOCK 0 RECORDS.

...

OPEN INPUT DDEING <-- error 13 file not found
OPEN OUTPUT DDBERKA

I have following additional directives(error occures also without additional directives) ;

DIALECT(ENTCOBOL) INITCALL"ORASQL8" ASSIGN "EXTERNAL" copyext"cpy" hostarithmetic PERFORM-TYPE"OSVS" signfixup IDXFORMAT(8) nolist

and following env. var.; AEING -> "G:\\Entwicklung\\mfes\\TPO\\Data\\LEM\\TS64004.QUACON.DDZMV.DAT"

File resides in (mounted) shared disk.

Thanks,

Alex

#error13filenotfoundvisualcobol

Chris,

clarification: if env.var. set at system level, then its working, as in :

documentation.microfocus.com/.../index.jsp

It will be nice to set ddnames at project level, since otherwise we need to change most of ddnames in .cbl and .jcl in order to have same comfort as with NetExpress.

Thanks,

Alex

Hi,

i remember this error from a year ago, during test of MF cobol for Eclipse.

I tried to find solution today, no luck with google, our forum or KB. So there it is, Use case;

****cobol code:

FILE-CONTROL.
SELECT DDEING
ASSIGN TO AEING.
*was UT-S-DDEING
SELECT DDBERKA
ASSIGN TO ABERKA.
*was UT-S-DDBERKA
*****
*****
DATA DIVISION.
FILE SECTION.
*
FD DDEING
RECORDING MODE F
LABEL RECORD STANDARD
BLOCK 0 RECORDS.
01 DDEING-REC.
05 DDEING-ELEM PIC X(2).
05 DDEING-REST PIC X(498).
FD DDBERKA
RECORDING MODE F
BLOCK 0 RECORDS.

...

OPEN INPUT DDEING <-- error 13 file not found
OPEN OUTPUT DDBERKA

I have following additional directives(error occures also without additional directives) ;

DIALECT(ENTCOBOL) INITCALL"ORASQL8" ASSIGN "EXTERNAL" copyext"cpy" hostarithmetic PERFORM-TYPE"OSVS" signfixup IDXFORMAT(8) nolist

and following env. var.; AEING -> "G:\\Entwicklung\\mfes\\TPO\\Data\\LEM\\TS64004.QUACON.DDZMV.DAT"

File resides in (mounted) shared disk.

Thanks,

Alex

#error13filenotfoundvisualcobol

Chris,

clarification: if env.var. set at system level, then its working, as in :

documentation.microfocus.com/.../index.jsp

It will be nice to set ddnames at project level, since otherwise we need to change most of ddnames in .cbl and .jcl in order to have same comfort as with NetExpress.

Thanks,

Alex

Hi,

i remember this error from a year ago, during test of MF cobol for Eclipse.

I tried to find solution today, no luck with google, our forum or KB. So there it is, Use case;

****cobol code:

FILE-CONTROL.
SELECT DDEING
ASSIGN TO AEING.
*was UT-S-DDEING
SELECT DDBERKA
ASSIGN TO ABERKA.
*was UT-S-DDBERKA
*****
*****
DATA DIVISION.
FILE SECTION.
*
FD DDEING
RECORDING MODE F
LABEL RECORD STANDARD
BLOCK 0 RECORDS.
01 DDEING-REC.
05 DDEING-ELEM PIC X(2).
05 DDEING-REST PIC X(498).
FD DDBERKA
RECORDING MODE F
BLOCK 0 RECORDS.

...

OPEN INPUT DDEING <-- error 13 file not found
OPEN OUTPUT DDBERKA

I have following additional directives(error occures also without additional directives) ;

DIALECT(ENTCOBOL) INITCALL"ORASQL8" ASSIGN "EXTERNAL" copyext"cpy" hostarithmetic PERFORM-TYPE"OSVS" signfixup IDXFORMAT(8) nolist

and following env. var.; AEING -> "G:\\Entwicklung\\mfes\\TPO\\Data\\LEM\\TS64004.QUACON.DDZMV.DAT"

File resides in (mounted) shared disk.

Thanks,

Alex

#error13filenotfoundvisualcobol

You should be able to set them in the Eclipse IDE but you should set them on the run configuration itself and not in the project properies as when you set them in the project properties they may not be inherited by the run environment directly.

Instead of project properties, richt-click on project name and select Run As or Debug As and then Run Configuartions or Debug Configurations and set them as shown below:

Hi,

i remember this error from a year ago, during test of MF cobol for Eclipse.

I tried to find solution today, no luck with google, our forum or KB. So there it is, Use case;

****cobol code:

FILE-CONTROL.
SELECT DDEING
ASSIGN TO AEING.
*was UT-S-DDEING
SELECT DDBERKA
ASSIGN TO ABERKA.
*was UT-S-DDBERKA
*****
*****
DATA DIVISION.
FILE SECTION.
*
FD DDEING
RECORDING MODE F
LABEL RECORD STANDARD
BLOCK 0 RECORDS.
01 DDEING-REC.
05 DDEING-ELEM PIC X(2).
05 DDEING-REST PIC X(498).
FD DDBERKA
RECORDING MODE F
BLOCK 0 RECORDS.

...

OPEN INPUT DDEING <-- error 13 file not found
OPEN OUTPUT DDBERKA

I have following additional directives(error occures also without additional directives) ;

DIALECT(ENTCOBOL) INITCALL"ORASQL8" ASSIGN "EXTERNAL" copyext"cpy" hostarithmetic PERFORM-TYPE"OSVS" signfixup IDXFORMAT(8) nolist

and following env. var.; AEING -> "G:\\Entwicklung\\mfes\\TPO\\Data\\LEM\\TS64004.QUACON.DDZMV.DAT"

File resides in (mounted) shared disk.

Thanks,

Alex

#error13filenotfoundvisualcobol

Chris,

Thank you.

alex

Hi,

i remember this error from a year ago, during test of MF cobol for Eclipse.

I tried to find solution today, no luck with google, our forum or KB. So there it is, Use case;

****cobol code:

FILE-CONTROL.
SELECT DDEING
ASSIGN TO AEING.
*was UT-S-DDEING
SELECT DDBERKA
ASSIGN TO ABERKA.
*was UT-S-DDBERKA
*****
*****
DATA DIVISION.
FILE SECTION.
*
FD DDEING
RECORDING MODE F
LABEL RECORD STANDARD
BLOCK 0 RECORDS.
01 DDEING-REC.
05 DDEING-ELEM PIC X(2).
05 DDEING-REST PIC X(498).
FD DDBERKA
RECORDING MODE F
BLOCK 0 RECORDS.

...

OPEN INPUT DDEING <-- error 13 file not found
OPEN OUTPUT DDBERKA

I have following additional directives(error occures also without additional directives) ;

DIALECT(ENTCOBOL) INITCALL"ORASQL8" ASSIGN "EXTERNAL" copyext"cpy" hostarithmetic PERFORM-TYPE"OSVS" signfixup IDXFORMAT(8) nolist

and following env. var.; AEING -> "G:\\Entwicklung\\mfes\\TPO\\Data\\LEM\\TS64004.QUACON.DDZMV.DAT"

File resides in (mounted) shared disk.

Thanks,

Alex

#error13filenotfoundvisualcobol

Chris,

Thank you.

alex

Sign up

Please log in or register:

Welcome to the Rocket Forum!

Please log in or register:

Scanning file for viruses.

This file cannot be downloaded