I'm a big fan of using the SQL tools IBM has given us, and that is probably the way I would go personally, but in the interest of listing options, something like this will also drop a member into a table.
qsh -c 'ls -1 > /qsys.lib/kevin2.lib/lsout.file/lsout.mbr'
On Mon, 2021-02-01 at 13:23 -0500, Larry "DrFranken" Bolhuis wrote:
Perhaps 'simpler' I suppose but one of the most powerful parts of the
SQL solution is that with a tiny tweak that output can be directed to a
tabel. Once in a table even I, the official MQC of RPG, can act upon the
rows in said table. (Truth though is I'd probably act on it with CL. :-) )
- DrF
On 2/1/2021 1:16 PM, James H. H. Lampert wrote:
On 2/1/21 10:02 AM, Chris Pando wrote:
find . -type f | egrep -v zip$
from the shell will give you every file that doesn't end with zip.
find . -type d
Interesting. I've used the Linux "find" (in fact, I use it like crazy in
our AWS EC2 instances), and I've used the MacOS/BSD "find" (which is
slightly, but maddeningly, different from the Linux version), but I
never knew that QShell had a "find."
And I see that the "-name" parameter also works (which also bears on the
problem).
And it seems much simpler (albeit perhaps less flexible) than Larry's
SQL solution (which is one I hadn't in my wildest dreams imagined).
The issue here is that we have a directory that contains too many
entries for WRKLNK to display without some serious subsetting, let alone
that it's too many entries for one human being to deal with in a
reasonable amount of time (e.g., complete the analysis sometime before
heat-death of the universe).
Just out of morbid curiosity, are there other solutions (that wouldn't
involve spending all day researching API calls and writing a program to
use them)?
Thanks.
--
JHHL
--
IBM Champion for Power Systems
<
http://www.iInTheCloud.com>
www.iInTheCloud.com
- Commercial IBM i and Power System Hosting
<
http://www.iDevCloud.com>
www.iDevCloud.com
- Personal IBM i Hosting
<
http://www.Frankeni.com>
www.Frankeni.com
- IBM i and Power Systems Consulting.
[
https://www.medtronsoftware.com/img/MedtronMinilogo.bmp] Kevin Bucknum
Senior Programmer Analyst
MEDDATA / MEDTRON
120 Innwood Drive
Covington LA 70433
Local: 985-893-2550
Toll Free: 877-893-2550
https://www.medtronsoftware.com
CONFIDENTIALITY NOTICE
This document and any accompanying this email transmission contain confidential information, belonging to the sender that is legally privileged. This information is intended only for the use of the individual or entity named above. The authorized recipient of this information is prohibited from disclosing this information to any other party and is required to destroy the information after its stated need has been fulfilled. If you are not the intended recipient, or the employee of agent responsible to deliver it to the intended recipient, you are hereby notified that any disclosure, copying, distribution or action taken in reliance on the contents of these documents is STRICTLY PROHIBITED. If you have received this email in error, please notify the sender immediately to arrange for return or destruction of these documents.
midrange.com
