This error occurs running a sample program from the addpack for ACU DataConnect
Problem:
-
The sample program is copied from the COBDIR directory using the following command:
cp $COBDIR/sample/acu4gl/demo.cbl to a /tmp or user directory
-
Use the following command to compile the program:
cob -v demo.cbl
-
Use the following command to run the program:
cobrun demo
Load error : file 'acufh'
error code: 173, pc=804, call=1, seg=0
173 Called program file not found in drive/directory
This error occurs because of the following $set statement:
demo.cbl: $set callfh(acufh)
The actual file is ACUFH that is, the file name is upper case on disk.
Resolution:
Modify the $set statement in the program to refer to the upper case filename, as follows:
$set callfh(ACUFH)
-
bench4gl.cbl: $set callfh(acufh)
-
demo.cbl: $set callfh(acufh)
-
ftestcnd.cbl: $set callfh(acufh)
-
order1.cbl: $set callfh(acufh)
-
order2.cbl: $set callfh(acufh)
-
order3.cbl: $set callfh(acufh)



