Re: Program using table from wrong library

Have you checked your CURLIB? try changing it to TBLSLIB
On Monday, July 17, 2023 at 12:12:12 PM CDT, K Crawford <kscx3ksc@xxxxxxxxx> wrote:

I have a table in two libraries with the same name.

  PRODTBLS/OPENENRL
  TBLSLIB/OPENENRL
The one in TBLSLIB has two extra columns.

I have the program like this.

      // OutPutTable
      dcl-f OutPutT disk usage(*output)
                    extfile('TBLSLIB/OPENENRL')
                    extdesc('TBLSLIB/OPENENRL')
                    rename(OpenRLR:OutputR);
      // OutDS
      dcl-ds OutDS extname('TBLSLIB/OPENENRL') end-ds;

The program compiles fine,  I have TBLSLIB in my library list before
PRODTBLS for the compile.

When the program runs I get a level check on the table OPENENRL.  When
looking at the job it is using the table from PRODTBLS not TBLSLIB.  The
error would be correct, because it used the wrong table.  The library list
for this job has PRODTBLS but TBLSLIB is not in the list.  I have other
programs like this and they are using the TBLSLIB.
This table would have been opened in the calling program, but for the
PRODTBLS.

Why is the program using the wrong library/table?