× The internal search function is temporarily non-functional. The current search engine is no longer viable and we are researching alternatives.
As a stop gap measure, we are using Google's custom search engine service.
If you know of an easy to use, open source, search engine ... please contact support@midrange.com.



Thanks Jim

Did not mean to over simplify.

We provide a menu system and do that all the time so if called from
somewhere else we restore the original library list on return.

Eg

DCL VAR(&USRLIBL) TYPE(*CHAR) LEN(2750)
DCL VAR(&CHGLIBL) TYPE(*CHAR) LEN(2764)
RTVJOBA JOB(&JOB) USER(&USRPRF) USRLIBL(&USRLIBL)
CHGVAR VAR(&CHGLIBL) VALUE('CHGLIBL LIBL(' *CAT +
&USRLIBL *TCAT ')')
.
.
<Put you application processing here>
.
.

CALL PGM(QCMDEXC) PARM(&CHGLIBL 2764)


Cheers





From: "Jim Oberholtzer" <midrangel@xxxxxxxxxxxxxxxxx>
To: "Midrange Systems Technical Discussion"
<midrange-l@xxxxxxxxxxxxxxxxxx>
Cc: "Don Brown" <DBrown@xxxxxxxxxx>
Date: 31/08/2021 10:51 AM
Subject: Re: Finding QUSRJOBI information on IBM's web site.



That’s just an example. My use case calls for completely replacing the
library list, run the application and then if interactive, put it back.

Jim Oberholtzer
Agile Technology Architects



On Aug 30, 2021, at 4:39 PM, Don Brown via MIDRANGE-L
<midrange-l@xxxxxxxxxxxxxxxxxx> wrote:

Just my 2 pennies but;

That seems like a lot of work for either a simple CL or RPG solution.

CL

PGM
RMVLIBLE TOYSTORE
MONMSG CPF2104 // Library not in library list

ADDLIBLE TOYSTORE

ENDPGM



RPG

...
cmd = ' RMVLIBLE TOYSTORE';
monitor;
qcmdexec(cmd : len(cmd));
endmon;

cmd = ' ADDLIBLE TOYSTORE';
qcmdexec(cmd : len(cmd));
...

Cheers

Don






From: <midrangel@xxxxxxxxxxxxxxxxx>
To: "'Midrange Systems Technical Discussion'"
<midrange-l@xxxxxxxxxxxxxxxxxx>
Date: 31/08/2021 12:54 AM
Subject: RE: Finding QUSRJOBI information on IBM's web site.
Sent by: "MIDRANGE-L" <midrange-l-bounces@xxxxxxxxxxxxxxxxxx>



I was just looking at an example Simon Hutchinson put on his website
(
https://urldefense.proofpoint.com/v2/url?u=http-3A__rpgpgm.com&d=DwIFaQ&c=euGZstcaTDllvimEN8b7jXrwqOf-v5A_CdpgnVfiiMM&r=x3rBwxMTlO3UcnVchBJYlkqPD8BpO91HbuZYQ_ZepUs&m=RMwM_F2scQy0XfnNuXX39uCUOLrHPVJzwN616oqfgeY&s=upGI6kjyGP0_qvUx1xgesVhf-Ehrnc_16IBRlwopp3E&e=
) using SQL.

The problem (if it really is one) is that putting SQL into RPG is a new
level of complexity that, well for those of us that have not kept up, is
somewhat daunting. The actual EXEC statements not hard, but proper
error
handling is. I lost my RPG card long ago (Jon and Susan rather
non-ceremonially removed it, with valid reason I might add), and only
now
really starting to use it again.

This example is as close as I can get, the work management items you
cite
do
not report the library list:

-- category: IBM i Services
-- description: Librarian - Library list

--
-- Description: Ensure that the TOYSTORE library is the first library
-- in the user portion of the library list
BEGIN
DECLARE V_ROW_NUM INTEGER;
WITH CTE1(SCHEMA_NAME, ROW_NUM) AS (
SELECT SCHEMA_NAME, ROW_NUMBER() OVER (ORDER BY ORDINAL_POSITION) AS
ROW_NUM
FROM QSYS2.LIBRARY_LIST_INFO WHERE TYPE = 'USER'
) SELECT ROW_NUM INTO V_ROW_NUM FROM CTE1 WHERE SCHEMA_NAME =
'TOYSTORE';

IF (V_ROW_NUM IS NULL) THEN
CALL QSYS2.QCMDEXC('ADDLIBLE TOYSTORE');
ELSEIF (V_ROW_NUM > 1) THEN
BEGIN
CALL QSYS2.QCMDEXC('RMVLIBLE TOYSTORE');
CALL QSYS2.QCMDEXC('ADDLIBLE TOYSTORE');
END;
END IF;
END;

Now to code this into an RPG program with valid error handling. That
will
be somewhat more challenging.



--
Jim Oberholtzer
Agile Technology Architects

-----Original Message-----
From: MIDRANGE-L <midrange-l-bounces@xxxxxxxxxxxxxxxxxx> On Behalf Of
Rob
Berendt
Sent: Monday, August 30, 2021 9:34 AM
To: Midrange Systems Technical Discussion
<midrange-l@xxxxxxxxxxxxxxxxxx>
Subject: RE: Finding QUSRJOBI information on IBM's web site.

If you start out here:

https://urldefense.proofpoint.com/v2/url?u=https-3A__www.ibm.com_docs_en_i_7.4&d=DwIFaQ&c=euGZstcaTDllvimEN8b7jXrwqOf-v5A_CdpgnVfiiMM&r=x3rBwxMTlO3UcnVchBJYlkqPD8BpO91HbuZYQ_ZepUs&m=RMwM_F2scQy0XfnNuXX39uCUOLrHPVJzwN616oqfgeY&s=renHk476rLYm3FnE4FldtfKghnDPLooJ8kQeHpZ3Gyg&e=

And enter QUSRJOBI in the box with "Search in IBM i 7.4" you should get
exactly to what you want.

Now for my Rob moment...
IBM's hiding of "IBM i Services" under "Performance and Query
Optimization"
may have been a good idea at some time in the past, but really?
And why not use one of these instead of QUSRJOBI?

https://urldefense.proofpoint.com/v2/url?u=https-3A__www.ibm.com_docs_en_i_7.4-3Ftopic-3Dservices-2Dwork-2Dmanagement&d=DwIFaQ&c=euGZstcaTDllvimEN8b7jXrwqOf-v5A_CdpgnVfiiMM&r=x3rBwxMTlO3UcnVchBJYlkqPD8BpO91HbuZYQ_ZepUs&m=RMwM_F2scQy0XfnNuXX39uCUOLrHPVJzwN616oqfgeY&s=CZH5nfUnZ2uqzZffC7Vd0Sk1TPRfXcn5Gz3yiUkcVFU&e=



Rob Berendt
--
IBM Certified System Administrator - IBM i 6.1 Group Dekko Dept 1600
Mail
to: 7310 Innovation Blvd, Suite 104
Ft. Wayne, IN 46818
Ship to: 7310 Innovation Blvd, Dock 9C
Ft. Wayne, IN 46818

https://urldefense.proofpoint.com/v2/url?u=http-3A__www.dekko.com&d=DwIFaQ&c=euGZstcaTDllvimEN8b7jXrwqOf-v5A_CdpgnVfiiMM&r=x3rBwxMTlO3UcnVchBJYlkqPD8BpO91HbuZYQ_ZepUs&m=RMwM_F2scQy0XfnNuXX39uCUOLrHPVJzwN616oqfgeY&s=Uv54nAMmBIaS8WwPV3QgYPtMjUNrpMEauesU8Ps9T04&e=



-----Original Message-----
From: MIDRANGE-L <midrange-l-bounces@xxxxxxxxxxxxxxxxxx> On Behalf Of
midrangel@xxxxxxxxxxxxxxxxx
Sent: Monday, August 30, 2021 10:26 AM
To: 'Midrange Systems Technical Discussion'
<midrange-l@xxxxxxxxxxxxxxxxxx>
Subject: Finding QUSRJOBI information on IBM's web site.

CAUTION: This email originated from outside of the organization. Do not
click links or open attachments unless you recognize the sender and know

the
content is safe.


It's there no doubt, but how come IBM has to give it to me in every
language
except US English? My browser does not hide the fact that I am in the
Midwest in the US, (not all that far from Rochester MN.) so it's not
like
they don't know where I am. IBMs web sites are a mess, most links don't
work, they don't fix them when you point that out, and the search in
them
is
worse than ever. Makes me long for the PC based software library. It
was
awful and not updated very often, but it worked. Particularly for an
API
that's been around since almost before API's...



Anyone else having similar issues?

--

Jim Oberholtzer

Agile Technology Architects



--
This is the Midrange Systems Technical Discussion (MIDRANGE-L) mailing
list
To post a message email: MIDRANGE-L@xxxxxxxxxxxxxxxxxx
To subscribe, unsubscribe, or change list options,
visit:
https://urldefense.proofpoint.com/v2/url?u=https-3A__lists.midrange.com_mailman_listinfo_midrange-2Dl&d=DwIFaQ&c=euGZstcaTDllvimEN8b7jXrwqOf-v5A_CdpgnVfiiMM&r=x3rBwxMTlO3UcnVchBJYlkqPD8BpO91HbuZYQ_ZepUs&m=RMwM_F2scQy0XfnNuXX39uCUOLrHPVJzwN616oqfgeY&s=SWfkHtxd0JVmqbfstlFILeb7VYVCtrTfY9xFTds5mk0&e=

or email: MIDRANGE-L-request@xxxxxxxxxxxxxxxxxx
Before posting, please take a moment to review the archives
at
https://urldefense.proofpoint.com/v2/url?u=https-3A__archive.midrange.com_midrange-2Dl&d=DwIFaQ&c=euGZstcaTDllvimEN8b7jXrwqOf-v5A_CdpgnVfiiMM&r=x3rBwxMTlO3UcnVchBJYlkqPD8BpO91HbuZYQ_ZepUs&m=RMwM_F2scQy0XfnNuXX39uCUOLrHPVJzwN616oqfgeY&s=qFomKmJqNLAcfvPn_TOpTy-zGWCIAvgmdeOP4vQE0Qg&e=
.

Please contact support@xxxxxxxxxxxxxxxxxxxx for any subscription related
questions.

Help support
https://urldefense.proofpoint.com/v2/url?u=http-3A__midrange.com&d=DwIFaQ&c=euGZstcaTDllvimEN8b7jXrwqOf-v5A_CdpgnVfiiMM&r=x3rBwxMTlO3UcnVchBJYlkqPD8BpO91HbuZYQ_ZepUs&m=RMwM_F2scQy0XfnNuXX39uCUOLrHPVJzwN616oqfgeY&s=qArs_Zn_7l-M5z3-miD-CzGnpcbIBUFdCo2MeXbOVIs&e=
by shopping at
https://urldefense.proofpoint.com/v2/url?u=http-3A__amazon.com&d=DwIFaQ&c=euGZstcaTDllvimEN8b7jXrwqOf-v5A_CdpgnVfiiMM&r=x3rBwxMTlO3UcnVchBJYlkqPD8BpO91HbuZYQ_ZepUs&m=RMwM_F2scQy0XfnNuXX39uCUOLrHPVJzwN616oqfgeY&s=Y4yUODiPTiSl7_6isBVxVpVB5G3Q2rQQTLlCXWSMiGg&e=
with our affiliate
link:

https://urldefense.proofpoint.com/v2/url?u=https-3A__amazon.midrange.com&d=DwIFaQ&c=euGZstcaTDllvimEN8b7jXrwqOf-v5A_CdpgnVfiiMM&r=x3rBwxMTlO3UcnVchBJYlkqPD8BpO91HbuZYQ_ZepUs&m=RMwM_F2scQy0XfnNuXX39uCUOLrHPVJzwN616oqfgeY&s=QetIbvebCFHxv32OCGKSumnERJixZh85YjsZSJysvuo&e=

--
This is the Midrange Systems Technical Discussion (MIDRANGE-L) mailing
list
To post a message email: MIDRANGE-L@xxxxxxxxxxxxxxxxxx
To subscribe, unsubscribe, or change list options,
visit:
https://urldefense.proofpoint.com/v2/url?u=https-3A__lists.midrange.com_mailman_listinfo_midrange-2Dl&d=DwIFaQ&c=euGZstcaTDllvimEN8b7jXrwqOf-v5A_CdpgnVfiiMM&r=x3rBwxMTlO3UcnVchBJYlkqPD8BpO91HbuZYQ_ZepUs&m=RMwM_F2scQy0XfnNuXX39uCUOLrHPVJzwN616oqfgeY&s=SWfkHtxd0JVmqbfstlFILeb7VYVCtrTfY9xFTds5mk0&e=

or email: MIDRANGE-L-request@xxxxxxxxxxxxxxxxxx
Before posting, please take a moment to review the archives
at
https://urldefense.proofpoint.com/v2/url?u=https-3A__archive.midrange.com_midrange-2Dl&d=DwIFaQ&c=euGZstcaTDllvimEN8b7jXrwqOf-v5A_CdpgnVfiiMM&r=x3rBwxMTlO3UcnVchBJYlkqPD8BpO91HbuZYQ_ZepUs&m=RMwM_F2scQy0XfnNuXX39uCUOLrHPVJzwN616oqfgeY&s=qFomKmJqNLAcfvPn_TOpTy-zGWCIAvgmdeOP4vQE0Qg&e=
.

Please contact support@xxxxxxxxxxxxxxxxxxxx for any subscription related
questions.

Help support
https://urldefense.proofpoint.com/v2/url?u=http-3A__midrange.com&d=DwIFaQ&c=euGZstcaTDllvimEN8b7jXrwqOf-v5A_CdpgnVfiiMM&r=x3rBwxMTlO3UcnVchBJYlkqPD8BpO91HbuZYQ_ZepUs&m=RMwM_F2scQy0XfnNuXX39uCUOLrHPVJzwN616oqfgeY&s=qArs_Zn_7l-M5z3-miD-CzGnpcbIBUFdCo2MeXbOVIs&e=
by shopping at
https://urldefense.proofpoint.com/v2/url?u=http-3A__amazon.com&d=DwIFaQ&c=euGZstcaTDllvimEN8b7jXrwqOf-v5A_CdpgnVfiiMM&r=x3rBwxMTlO3UcnVchBJYlkqPD8BpO91HbuZYQ_ZepUs&m=RMwM_F2scQy0XfnNuXX39uCUOLrHPVJzwN616oqfgeY&s=Y4yUODiPTiSl7_6isBVxVpVB5G3Q2rQQTLlCXWSMiGg&e=
with our affiliate
link:

https://urldefense.proofpoint.com/v2/url?u=https-3A__amazon.midrange.com&d=DwIFaQ&c=euGZstcaTDllvimEN8b7jXrwqOf-v5A_CdpgnVfiiMM&r=x3rBwxMTlO3UcnVchBJYlkqPD8BpO91HbuZYQ_ZepUs&m=RMwM_F2scQy0XfnNuXX39uCUOLrHPVJzwN616oqfgeY&s=QetIbvebCFHxv32OCGKSumnERJixZh85YjsZSJysvuo&e=


--
This is the Midrange Systems Technical Discussion (MIDRANGE-L) mailing
list
To post a message email: MIDRANGE-L@xxxxxxxxxxxxxxxxxx
To subscribe, unsubscribe, or change list options,
visit:
https://urldefense.proofpoint.com/v2/url?u=https-3A__lists.midrange.com_mailman_listinfo_midrange-2Dl&d=DwIFaQ&c=euGZstcaTDllvimEN8b7jXrwqOf-v5A_CdpgnVfiiMM&r=x3rBwxMTlO3UcnVchBJYlkqPD8BpO91HbuZYQ_ZepUs&m=RMwM_F2scQy0XfnNuXX39uCUOLrHPVJzwN616oqfgeY&s=SWfkHtxd0JVmqbfstlFILeb7VYVCtrTfY9xFTds5mk0&e=

or email: MIDRANGE-L-request@xxxxxxxxxxxxxxxxxx
Before posting, please take a moment to review the archives
at
https://urldefense.proofpoint.com/v2/url?u=https-3A__archive.midrange.com_midrange-2Dl&d=DwIFaQ&c=euGZstcaTDllvimEN8b7jXrwqOf-v5A_CdpgnVfiiMM&r=x3rBwxMTlO3UcnVchBJYlkqPD8BpO91HbuZYQ_ZepUs&m=RMwM_F2scQy0XfnNuXX39uCUOLrHPVJzwN616oqfgeY&s=qFomKmJqNLAcfvPn_TOpTy-zGWCIAvgmdeOP4vQE0Qg&e=
.

Please contact support@xxxxxxxxxxxxxxxxxxxx for any subscription related

questions.

Help support
https://urldefense.proofpoint.com/v2/url?u=http-3A__midrange.com&d=DwIFaQ&c=euGZstcaTDllvimEN8b7jXrwqOf-v5A_CdpgnVfiiMM&r=x3rBwxMTlO3UcnVchBJYlkqPD8BpO91HbuZYQ_ZepUs&m=RMwM_F2scQy0XfnNuXX39uCUOLrHPVJzwN616oqfgeY&s=qArs_Zn_7l-M5z3-miD-CzGnpcbIBUFdCo2MeXbOVIs&e=
by shopping at
https://urldefense.proofpoint.com/v2/url?u=http-3A__amazon.com&d=DwIFaQ&c=euGZstcaTDllvimEN8b7jXrwqOf-v5A_CdpgnVfiiMM&r=x3rBwxMTlO3UcnVchBJYlkqPD8BpO91HbuZYQ_ZepUs&m=RMwM_F2scQy0XfnNuXX39uCUOLrHPVJzwN616oqfgeY&s=Y4yUODiPTiSl7_6isBVxVpVB5G3Q2rQQTLlCXWSMiGg&e=
with our affiliate
link:
https://urldefense.proofpoint.com/v2/url?u=https-3A__amazon.midrange.com&d=DwIFaQ&c=euGZstcaTDllvimEN8b7jXrwqOf-v5A_CdpgnVfiiMM&r=x3rBwxMTlO3UcnVchBJYlkqPD8BpO91HbuZYQ_ZepUs&m=RMwM_F2scQy0XfnNuXX39uCUOLrHPVJzwN616oqfgeY&s=QetIbvebCFHxv32OCGKSumnERJixZh85YjsZSJysvuo&e=





--
This email has been scanned for computer viruses. Although MSD has taken
reasonable precautions to ensure no viruses are present in this email, MSD
cannot accept responsibility for any loss or damage arising from the use
of this email or attachments..
--
This is the Midrange Systems Technical Discussion (MIDRANGE-L) mailing
list
To post a message email: MIDRANGE-L@xxxxxxxxxxxxxxxxxx
To subscribe, unsubscribe, or change list options,
visit:
https://urldefense.proofpoint.com/v2/url?u=https-3A__lists.midrange.com_mailman_listinfo_midrange-2Dl&d=DwIFaQ&c=euGZstcaTDllvimEN8b7jXrwqOf-v5A_CdpgnVfiiMM&r=x3rBwxMTlO3UcnVchBJYlkqPD8BpO91HbuZYQ_ZepUs&m=RMwM_F2scQy0XfnNuXX39uCUOLrHPVJzwN616oqfgeY&s=SWfkHtxd0JVmqbfstlFILeb7VYVCtrTfY9xFTds5mk0&e=

or email: MIDRANGE-L-request@xxxxxxxxxxxxxxxxxx
Before posting, please take a moment to review the archives
at
https://urldefense.proofpoint.com/v2/url?u=https-3A__archive.midrange.com_midrange-2Dl&d=DwIFaQ&c=euGZstcaTDllvimEN8b7jXrwqOf-v5A_CdpgnVfiiMM&r=x3rBwxMTlO3UcnVchBJYlkqPD8BpO91HbuZYQ_ZepUs&m=RMwM_F2scQy0XfnNuXX39uCUOLrHPVJzwN616oqfgeY&s=qFomKmJqNLAcfvPn_TOpTy-zGWCIAvgmdeOP4vQE0Qg&e=
.

Please contact support@xxxxxxxxxxxxxxxxxxxx for any subscription related
questions.

Help support
https://urldefense.proofpoint.com/v2/url?u=http-3A__midrange.com&d=DwIFaQ&c=euGZstcaTDllvimEN8b7jXrwqOf-v5A_CdpgnVfiiMM&r=x3rBwxMTlO3UcnVchBJYlkqPD8BpO91HbuZYQ_ZepUs&m=RMwM_F2scQy0XfnNuXX39uCUOLrHPVJzwN616oqfgeY&s=qArs_Zn_7l-M5z3-miD-CzGnpcbIBUFdCo2MeXbOVIs&e=
by shopping at
https://urldefense.proofpoint.com/v2/url?u=http-3A__amazon.com&d=DwIFaQ&c=euGZstcaTDllvimEN8b7jXrwqOf-v5A_CdpgnVfiiMM&r=x3rBwxMTlO3UcnVchBJYlkqPD8BpO91HbuZYQ_ZepUs&m=RMwM_F2scQy0XfnNuXX39uCUOLrHPVJzwN616oqfgeY&s=Y4yUODiPTiSl7_6isBVxVpVB5G3Q2rQQTLlCXWSMiGg&e=
with our affiliate link:
https://urldefense.proofpoint.com/v2/url?u=https-3A__amazon.midrange.com&d=DwIFaQ&c=euGZstcaTDllvimEN8b7jXrwqOf-v5A_CdpgnVfiiMM&r=x3rBwxMTlO3UcnVchBJYlkqPD8BpO91HbuZYQ_ZepUs&m=RMwM_F2scQy0XfnNuXX39uCUOLrHPVJzwN616oqfgeY&s=QetIbvebCFHxv32OCGKSumnERJixZh85YjsZSJysvuo&e=





As an Amazon Associate we earn from qualifying purchases.

This thread ...

Replies:

Follow On AppleNews
Return to Archive home page | Return to MIDRANGE.COM home page

This mailing list archive is Copyright 1997-2024 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.