Load Error 173 - file 'acufh'

0 Likes

This error occurs running a sample program from the addpack for ACU DataConnect

Problem:

When running a sample program from the addpack for ACU DataConnect using the following sequence of events, a 173 Called program file not found in drive/directory error can occur. This can be the results of the following sequence of events:
  • 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

The following error occurs:
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)

All of the following sample programs have the same problem:
  • 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)

Old KB# 14429
Comment List
Related
Recommended