RE: 36EE Files Library Determination

["Jerry C. Adams" <midrange@xxxxxxxx>]

That is, usually, what I do, Chuck, as our applications were ported from a
S/36 and were never "nativized" so they're still invoked from s/36 menus,
which use OCLs.  Just want to be able to make the determination from within
a CL or RPG IV program without having to rely upon a higher level OCL
command for the new functions that I am writing.  That is, usually I am
writing something that will be inserted into an existing process (OCL or RPG
II program via a CALL), but I'm writing processes now that do not of
themselves require an OCL.

The data files are easy because they're going to use the library list.  What
I was working on, though, that prompted the query had to do with the
printers.  We only have a single box, but if I'm in the test environment, I
want to change the printer output to a configured but unattached device so
that (a) I don't waste paper, and (b) don't confuse the staff thinking the
report/form was production.  

Jerry C. Adams
IBM i Programmer/Analyst
The road to success is always under construction.
--
A&K Wholesale
Murfreesboro, TN
615-867-5070


-----Original Message-----
From: midrange-l-bounces@xxxxxxxxxxxx
[mailto:midrange-l-bounces@xxxxxxxxxxxx] On Behalf Of CRPence
Sent: Tuesday, September 13, 2011 12:48 PM
To: midrange-l@xxxxxxxxxxxx
Subject: Re: 36EE Files Library Determination

On 13-Sep-2011 09:25 , Jerry C. Adams wrote:
> Hate to be old school (trust me!), but is there an API that will
> return the value of the Files Library for the 36EE?  In OCL one can
> use ?FLIB? to retrieve the default library into which objects will be
> created or retrieved.  I checked the API list (we are on 5.1), but
> couldn't find anything that applied, but lots of APIs that returned
> the library lists.
>
> I wrote an RPG IV program that reads through the user portion of the
> library list.  If I find QS36F (the normal value), I assume that I'm
> in production. Otherwise, I look for TSTQS36F, which is my test
> environment version and, if found, assume I'm in test.  If I can't
> find either (or I find both), I assume the situation is fubar and
> abort.
>
> Just would like a more accurate method.

   Why not just use that procedure substitution expression ?FLIB? 
[(Files Library) expression; or perhaps the ?SFLIB? (Session Files 
Library) expression?] on a CL command parameter in a procedure to make 
that value available elsewhere; e.g. CHGDTAARA (QTEMP/FLIB  (01 10)) 
VALUE(?FLIB?) or CALL MYRPGIV PARM(?FLIB?)

Regards, Chuck