Re: Program using table from wrong library

[K Crawford <kscx3ksc@xxxxxxxxx>]

Jerry, we have a lot of similarities.  Our tables use sort of a double
prefix.  A.=Accounting C.=Cafiteria etc.  the second part is the company
.AS, .PK etc.  the last is the two digit file name.  So they look like
C.AS.EM or C.PK.EM etc.

I am trying my hardest to get us out of 36E.  But the owner of the
company/programmer says only if it makes sense to convert it.  If it aint
broke don't fix it.

I have used the EXTDESC() before but this project looked like a good fit
for the EXTFILE().  We wanted to create some tables in another library that
would get populated in special situations.  Someone said let's use the same
table names.  I wanted to just put a char at the end so we knew they are
not the same.  We use the USROPN a lot also.  This set of programs are
SQLRPGLE in the call stack leading up to these programs are some RPG36
programs that use the // FILE.  That is what got me in trouble.  If they
get mad about me using a new table name I will try the USROPN.  Otherwise
it is working now.

KCrawford

On Tue, Jul 18, 2023 at 6:47 AM Jerry Adams <midrange@xxxxxxxx> wrote:

> Like you, I live in the 36E.  I have a test environment, which is a mirror
> image of production. Plus we have multiple companies that, for some reason,
> are defined by a prefix (A., D. etc.).
>
> I usually have to use the EXTFILE(SomeFile) directive where SomeFile is
> built.  After that, the library list is usually sufficient to find the
> file.
>
>
> But I have never tried to use the EXTFILE() directive without the USROPN;
> didn't even know that was acceptable.  Since you have that part already
> coded, why not change the program for explicit open at the beginning?  With
> the library coded in EXTFILE() this would have the same effect of an OVRDBF
> command or an OCL // FILE NAME- statement.
>
> Now, after saying that, I am wondering why the implicit open (i.e., without
> the USROPN directive) does not point to the library/file as you defined it.
> Based upon your experience it obviously does not.  A reportable bug?  I
> admit that I did not reference the ILE RPG manual to see what, if anything,
> it says about your situation/definition.
>
> Jerry C. Adams
> Without a catcher the ball is just going to roll to the backstop. -Casey
> Stengel
> IBM i Programmer/Analyst
> --
> NMM&D
> 615-585-2175
>
> -----Original Message-----
> From: RPG400-L [mailto:rpg400-l-bounces@xxxxxxxxxxxxxxxxxx] On Behalf Of K
> Crawford
> Sent: Monday, July 17, 2023 12:12 PM
> To: RPG400-L@xxxxxxxxxxxxxxxxxx
> Subject: Program using table from wrong library
>
>  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?
>
>
> --
> KCrawford
> --
> This is the RPG programming on IBM i (RPG400-L) mailing list
> To post a message email: RPG400-L@xxxxxxxxxxxxxxxxxx
> To subscribe, unsubscribe, or change list options,
> visit: https://lists.midrange.com/mailman/listinfo/rpg400-l
> or email: RPG400-L-request@xxxxxxxxxxxxxxxxxx
> Before posting, please take a moment to review the archives
> at https://archive.midrange.com/rpg400-l.
>
> Please contact support@xxxxxxxxxxxxxxxxxxxx for any subscription related
> questions.
>
> --
> This is the RPG programming on IBM i (RPG400-L) mailing list
> To post a message email: RPG400-L@xxxxxxxxxxxxxxxxxx
> To subscribe, unsubscribe, or change list options,
> visit: https://lists.midrange.com/mailman/listinfo/rpg400-l
> or email: RPG400-L-request@xxxxxxxxxxxxxxxxxx
> Before posting, please take a moment to review the archives
> at https://archive.midrange.com/rpg400-l.
>
> Please contact support@xxxxxxxxxxxxxxxxxxxx for any subscription related
> questions.