|
midrange.com
See the following from my COMMON presentations:
V5R1 Library List Enhancement:
The correct spelling of the word "enhancement" is "fiasco".
In response to numerous customer and ISV requests, IBM is increasing the
length of the user portion of the library list from 25 to 250 libraries
effective in V5R1. Although IBM developers understand that this change
will impact some users, they contend that this is in the best interest of
the long-term interest of the platform. The speaker disagrees, and feels
that this could break your applications. This would be the significant
first change in the history of the System/38, AS/400, iSeries platform that
will break users code, forcing you to make changes to keep existing
applications working in the event that those application encountered more
than 25 libraries on the user's portion of the library list.
The following is an example of some pseudo code that would have to
ultimately be changed:
DCL VAR(&USRLIBL) TYPE(*CHAR) LEN(275)
DCL VAR(&CMD) TYPE(*CHAR) LEN(6000)
RTVJOBA USRLIBL(&USRLIBL)
CHGLIBL LIBL(MYLIB1 MYLIB2 QGPL QTEMP)
/* Do my thing, sing my song, yada, yada, yada */
CHGVAR &CMD ('CHGLIBL LIBL(' *CAT &USRLIBL *TCAT ')')
CALL PGM(QCMDEXC) PARM(&CMD 6000)
If you did not have access to your source code, or did not have support
from your ISV, the above code would break. Retrieving a user library list
into a variable of insufficient length would cause a new escape message of
CPF098A.
Remediation of the Problem:
V5R1:
To minimize the impact of this change, IBM has created a new data area in
V5R1 (QLILMTLIBL in QUSRSYS) that acts as a system wide switch only
allowing access to the first 25 libraries in the all commands that support
a library list parameter. The data area will not be shipped in V5R2.
V5R2:
Each limiting job's usage of the longer library list is controlled by the
contents of the data area QLMTUSRLIB, as found in the jobs library list.
If that one byte character data area contains a '0', long library lists are
enabled for that job. If it contains a '1', the library list is restricted
to 25 libraries. IBM ships this data area in QGPL in V5R1, and the setting
of QLILMTLIBL is ignored. IBM leaves QLILMTLIBL on your system to use
additional disk space.
Detailed documentation about this change can be found at:
http://www-919.ibm.com/servers/eserver/iseries/developer/os400/lib_list.html
The correct way to fix this problem would have been to create a job
attribute, which defaulted from a job description, which defaulted from a
system value.
This is what the new prompt for the USRLIBL parameter of the Retrieve Job
Attributes (RTVJOBA) command looks like:
SCNLIBL - A TAA Tool to Help you Fix Your Code:
There is a TAA Tool, named SCNLIBL, which will analyze your programs using
the Display Command Usage (DSPCMDUSG) command and your program's source,
looking for the usage of the RTVJOB command, and the USRLIBL parameter.
This tool will attempt to determine the length of the receiving parameter.
Although the tool is not perfect, it does an adequate solution. Detailed
documentation about this change can be found at:
http://www.taatool.com/document/L_scnlibl.htm
Al
Al Barsa, Jr.
Barsa Consulting Group, LLC
400>390
914-251-1234
914-251-9406 fax
http://www.barsaconsulting.com
http://www.taatool.com
"Graap, Ken"
<keg@nwnatural.com> To: "'Midrange'"
<midrange-l@midrange.com>
Sent by: cc:
midrange-l-bounces@m Subject: V5R2 Default # of
libraries in LIBLIST
idrange.com
01/27/2003 06:16 PM
Please respond to
Midrange Systems
Technical Discussion
I'm planning for my upgrade from V5R1 to V5R2.
In the memo to users, it says that the new DEFAULT for the number of
entries
on a library list will be 250.
We have applications where this won't work.
If I was to add *DTAARA QLMTUSRLIB to library QSYS after the upgrade was
completed, would this effectively limit library list size to 25 for ALL
jobs
on the system?
Kenneth
****************************************
Kenneth E. Graap
IBM Certified Specialist
AS/400e Professional System Administrator
NW Natural (Gas Services)
keg@nwnatural.com
Phone: 503-226-4211 x5537
FAX: 603-849-0591
****************************************
_______________________________________________
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.
As an Amazon Associate we earn from qualifying purchases.
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.
