Re: obtain first library name of object in *LIBL -- RPG400-L

Subject: Re: obtain first library name of object in *LIBL
From: John Yeung <gallium.arsenide@xxxxxxxxx>
Date: Thu, 16 Nov 2017 10:59:26 -0500
List-archive: <https://archive.midrange.com/rpg400-l/>
List-help: <mailto:rpg400-l-request@midrange.com?subject=help>
List-id: "RPG programming on the IBM i \(AS/400 and iSeries\)" <rpg400-l.midrange.com>
List-post: <mailto:rpg400-l@midrange.com>
List-subscribe: <https://lists.midrange.com/mailman/listinfo/rpg400-l>, <mailto:rpg400-l-request@midrange.com?subject=subscribe>
List-unsubscribe: <https://lists.midrange.com/mailman/options/rpg400-l>, <mailto:rpg400-l-request@midrange.com?subject=unsubscribe>

On Thu, Nov 16, 2017 at 10:44 AM, Jon Paris <jon.paris@xxxxxxxxxxxxxx> wrote:

Why not let the RPG open the file and grab the library from the INFDS?

dcl-ds fileDS;
libName char(10) Pos(93);
end-ds;

Works for me.

Not that you were actually asking this, but I'm pretty sure the answer
to "why not" is simply that people don't know about it; or they
forget, because it's not something they use often enough. This is much
neater and more elegant than the other alternatives presented so far.

John Y.

As an Amazon Associate we earn from qualifying purchases.

Follow-Ups:

Re: obtain first library name of object in *LIBL , dlclark

This mailing list archive is Copyright 1997-2025 by midrange.com and David Gibbs as a compilation work. Use of the archive is restricted to research of a business or technical nature. Any other uses are prohibited. Full details are available on our policy page. If you have questions about this, please contact [javascript protected email address].

Operating expenses for this site are earned using the Amazon Associate program and Google Adsense.