×
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.
On 12-Dec-2014 13:39 -0600, Laine, Rogers wrote:
On Friday, December 12, 2014 1:18 PM Pete Massiello - ML wrote:
<<SNIP>> To delete, do a GO LICPGM take option 12.
Then find option 9 for 57xxSS1 which is *PRV CL Support.
So if I use Option 12 then Select 4=delete Product Option 9 this
will Delete these two libraries?
The equivalent command-line request for that menu-navigation is
DLTLICPGM 57xxSS1 OPTION(9), where the value for the Licensed Program
Product (LICPGM) parameter has the "xx" replaced with the appropriate
value; in this case, the product designation for the IBM i 6.1 OS, which
IIRC is 5761SS1.
So how would I know if I am using or have a need for the libraries?
The /last used/ information for at least the Command (*CMD) objects
in those libraries should be updated when those commands are referenced
as CL statement requests by the OPM or ILE CL compilers, and the Target
Release (TGTRLS) feature of the compile requested using something other
than *CURRENT release.
The following script might assist in that regard, to produce a
[date-ordered, descending] report that shows a list of used objects with
the most recently used objects appearing at the top of the report plus
their effective last-used date; zero records would suggest none of the
objects are being /used/. Note: usage information resets and\or failure
of the compiler to update [effectively] referenced objects may vitiate
the value of the report\output; e.g. a DCLF QADSPOBJ in a CL
program\module source compiled with TGTRLS(*PRV) might not [did not in
v5r3] update the Last-Used Date of the file in either of the CL Previous
Library support libraries:
CL: dspobjd qsysv5r4m0/*all *all *full output(*outfile)
outfile(qtemp/od) outmbr(*first *replace)
CL: dspobjd qsysv5r3m0/*all *all *full output(*outfile)
outfile(qtemp/od) outmbr(*first *add )
SQL: select odobnm, odlbnm, odobtp, oducnt
, case oducen when '0' then '19' else '20' end
concat right(odudat, 2) concat '-'
concat left (odudat, 4) as lastuse
from qtemp/od
where odudat<>''
order by oducen desc, right(odudat, 2) desc, odudat desc
midrange.com
