Re: Current Library mystery

["Jim Franz" <franz400@xxxxxxxxxxxx>]

>We have a listener program that looks to pull data off a queue.
>The code itself is System 36 RPGII and OCL.
>There is a line in the OCL that reads: // IF ?CLIB?/AAALIB PAUSE

On a true s36, your files existed "somewhere", but were not identified
as a library. Your programs & procedures were in a lib.
The as400 introduced lib QS36F as a default lib for files.
This could be overridden in many ways.

My first question, is "has the PAUSE ever executed"? or are you just
curious as to how this works.

>From the S36 System Reference Manual - The current library is the library
that SSP searches first for procedures, programs, menus, display formats,
and message members.

The following sets or changes curlib

in s36 command line or in qs36prc ocl
// LIBRARY NAME-ABC
if the library parm on MENU is used like // MENU APMENU,ABC
if from a command line: MENU APMENU,ABC

if native as/400 (command line or clp)
STRS36PRC PRC(XYZ) CURLIB(ABC)
CHGCURLIB CURLIB(ABC)

To check your 400 if in S36EE or native environment:
dspsysval QSPCENV         (Special environment)
*NONE                              *NONE, *S36

You could scan qs36prc for the above ocl and commands.
Remember that the native commands are valid in S36 ocl.

hth
jim franz
----- Original Message -----
From: "Shields, Ken" <kenshields@ppg.com>
To: "'Midrange Mailing LIst'" <Midrange-L@midrange.com>
Sent: Tuesday, January 14, 2003 3:01 PM
Subject: Current Library mystery


>
> Dan
> There were any number of reasons, why OCL checked the name of the current
library.
> I suspect, it dates back to a time before the /36, when individual
libraries and files were
> `kept on removable disk packs, on the System 3 line of machines...
> If the application is split between separate libraries, then an
examination of the OCL
> might reveal that some programs in the OCL stream are kept in another
library.
> If all programs are in the same library on the 36EE or M36, then I suspect
the PAUSE
> OCL is really redundant, and in effect, slowing down the whole process.
> If separate libraries are utilised for the stream, then the SLIB procedure
is probably
> used.
>
>
> Ken Shields
> Oshawa systems group
> Works 81, Oshawa Ontario
>
> _______________________________________________
> This is the Midrange Systems Technical Discussion (MIDRANGE-L) mailing
list
> To post a message email: MIDRANGE-L@midrange.com
> To subscribe, unsubscribe, or change list options,
> visit: http://lists.midrange.com/mailman/listinfo.cgi/midrange-l
> or email: MIDRANGE-L-request@midrange.com
> Before posting, please take a moment to review the archives
> at http://archive.midrange.com/midrange-l.
>
>