RE: Checking Library List -- MIDRANGE-L

Character search not needed. You could use QCLSCAN. But it's limited, at V5R1, to 999 characters in the string being searched. &USRLIBL could need to be 2750 on V5R1 and later. Guess you could break it up.

Or take the 10-char substrings (every 11 chars) and test for equality with candidate library.

Vern

At 04:49 PM 6/16/2003 -0500, you wrote:

RTVJOBA USRLIBL(&USRLIBL) CURLIB(&CURLIB) SYSLIBL(&SYSLIBL)
and character search each of these.  But by that time you'd be better off
with the QUSRJOBI api and using a HLL to character search these values.

http://publib.boulder.ibm.com/iseries/v5r2/ic2924/info/apis/qusrjobi.htm

Rob Berendt
--
"They that can give up essential liberty to obtain a little temporary
safety deserve neither liberty nor safety."
Benjamin Franklin

qsrvbas@xxxxxxxxxxxx (Tom Liotta)
Sent by: midrange-l-bounces@xxxxxxxxxxxx
06/16/2003 04:36 PM
Please respond to Midrange Systems Technical Discussion

        To:     midrange-l@xxxxxxxxxxxx
        cc:
        Fax to:
        Subject:        RE: Checking Library List


Be aware that ADDLIBLE only affects the user portion of the library list.
If a library is set as the current library, for example, ADDLIBLE *REPLACE
will still report the CPF2149 message even though the target library is
"in the library list".

Tom Liotta

midrange-l-request@xxxxxxxxxxxx wrote:

>suppose you want to check TestLib. in lib list
>use the command as follows
>ADDLIBLE LIB(TestLib) POSITION(*REPLACE TestLib)
>
>capture monmessage CPF2149(Library TestLib was not found in the user
library
>list).
>and CPF2103(Library TestLib already exists in library list.)
>
>Both cases our command doesn't change the lib list.
>
>-----Original Message-----
>
>This may be a very easy question but i think my brain has  stopped.
>I want to add a statement to CL program that checks the library list for
>specific library whether it is in library list or not.How can i do this?

--
Tom Liotta
The PowerTech Group, Inc.
19426 68th Avenue South
Kent, WA 98032
Phone  253-872-7788 x313
Fax    253-872-7904
http://www.powertechgroup.com

_______________________________________________
This is the Midrange Systems Technical Discussion (MIDRANGE-L) mailing list
To post a message email: MIDRANGE-L@xxxxxxxxxxxx
To subscribe, unsubscribe, or change list options,
visit: http://lists.midrange.com/mailman/listinfo/midrange-l
or email: MIDRANGE-L-request@xxxxxxxxxxxx
Before posting, please take a moment to review the archives
at http://archive.midrange.com/midrange-l.