SQL1131N when invoking Micro Focus COBOL stored procedures

Answer

There are several things to keep in mind when determining the cause of the SQL1131N SQL0444N error:

1. If you are using DB2 LUW Version 7, note that APAR IY24835 was opened to add complete support for Micro Focus COBOL stored procedures in DB2 LUW Version 7. This APAR is implemented in DB2 LUW Version 7.2 FixPak 6. DB2 LUW Version 8.1 GA includes this APAR as well.
2. If the suspected cause of the error is the expiration of Micro Focus COBOL license keys, then you should contact Micro Focus support for instructions on how to correct the licensing problem.
3. If the suspected cause of the error is due to locking on the SYSOUT file, recompile the COBOL code using the compiler directive SHARE-OUTDD
4. With DB2 LUW Version 8.2 GA or later and Micro Focus COBOL Server Express 4.0 or higher, it is recommended that the following settings be set.
• The DB2ENVLIST registry variable should include the COBDIR environment variable. This setting will pass the COBDIR environment variable into the stored procedure infrastructure so that the Micro Focus runtime has access to COBDIR. It is important that the instance owner have COBDIR defined correctly so that this value is picked up. You can set this by running:
  db2set DB2ENVLIST=COBDIR
• The DB2LIBPATH registry variable should include the $COBDIR/lib directory in its list. If there are other directories in this list, $COBDIR/lib may be appended. Otherwise, it can be set by running:
  db2set DB2LIBPATH=$COBDIR/lib
• The Micro Focus runtime libraries must be copied to a trusted directory since the program that does the loading sometimes runs with setuid privileges. It will only look for dependent libraries in a trusted directory such as /usr/lib. Symbolic links to /usr/lib for the COBOL shared libraries should be created, or the libraries copied directly. This must be done as root. The simplest way to do this is to link all COBOL library files from $COBDIR/lib to /usr/lib by executing the following command:
  ln -s $COBDIR/lib/libcob* /usr/lib
5. When trying to determine the cause of problems related to running Micro Focus stored procedures, it is important to ensure that the sample procedures load and execute properly. This will ensure that the Micro Focus COBOL compiler is working properly and that the environment is set up correctly for the current user. In the $DB2PATH/sqllib/samples/cobol_mf directory, there is a sample stored procedure called inpsrv. The calling application is called inpcli. To build and run this sample, follow these steps:
1. Start the database manager: db2start
2. Create the sample database: db2sampl
3. Compile the calling application: bldapp inpcli
4. Compile the stored procedure: bldrtn inpsrv
5. Catalog the stored procedure: spcat
6. Run the test: inpcli
   

The output should look like this:
Use CALL to invoke the INPSRV stored procedure.
The SQLCODE from the stored procedure is: 0
Server Procedure Complete.