× 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.



Pete

Sounds like something I do. Does this look familiar? It's the command for a user-defined option in PDM. It applies to a library in WRKLIBPDM.

sbmjob cmd(qsh cmd('system "crtsavf qgpl/&n";
system "savlib &n *savf savf(qgpl/&n) clear(*all) dtacpr(*yes)";
cp /qsys.lib/qgpl.lib/&n.file /savfs/QGPL-&n.SAVF;
jar cvMf /savfs/QGPL-&n.SAVF.zip /savfs/QGPL-&n.SAVF;
rm /savfs/QGPL-&n.SAVF'))

This
- creates a SAVF in QGPL
- saves the library (substitution variable &n) to the SAVF
- copies the SAVF to IFS, giving it the name of the library where it came from plus the name of the library
- compresses the copy to a ZIP file
- deletes the copy in IFS


The library and the SAVF are left. They could also be deleted.

The reason it works is you can put multiple commands in the CMD parameter, separated by semi-colons. There are other separators, as well, but I don't know all that they do. The QShell docs should cover this.

This one

SBMJOB CMD(QSH CMD('cp /qsys.lib/&l.lib/&n.&s /savfs/&l-&n.&a;
jar cvMf /savfs/&l-&n.&a.zip /savfs/&l-&n.&a;
rm /savfs/&l-&n.&a'))

- copies an existing SAVF to the IFS
- makes a ZIP of it
- deletes the IFS copy

It should be run against a SAVF in WRKOBJPDM.

HTH
Vern

At 05:10 PM 5/11/2004, you wrote:
Either I am having my first "senior moment" or it is the lingering effects
of the 70's coming back to haunt me but I could have sworn there was a post
to this list in that last week or so that had something to do with using the
jar command to zip or compress some files.  Further, someone posted some
pseudo code that (as I recall) had something to do with a command that could
do the savf to IFS to jar steps combined. It used parameter markers such as
&file &lib &folder ?

Can I find it?  Not in two hours of searching through my e-mail folders,
Googling, stepping through each email.  Nothing! Was I just imagining such a
thing? Or does someone have a better memory or search tools than I?

Pete Helgren
Timpanogos Technologies, Inc
801.892.9106 x 202



As an Amazon Associate we earn from qualifying purchases.

This thread ...

Follow-Ups:
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.