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



Tim,

Here is a shell script I use to go the other way:

#!/usr/bin/qsh
# Use:     cvstosrcpf path pathname library trimpattern
# Example: /iseries-toolkit/CVSROOT/src/sh/cvstosrcpf
/iseries-toolkit/CVSROOT/src qddssrc ISTKT2 dsp
for f in $(find $1 -name $2 -type d);
  do for m in $(find $f -type f -name '*.'$4);
    do system "CPY OBJ('"$m"') TOOBJ('/QSYS.LIB/$3.LIB/"$(basename
$f)".FILE/"$(basename ${m%."$4"})".MBR') REPLACE(*YES) DTAFMT(*TEXT)
TOCODEPAGE(37)";
    done;
  done;

You could modify this script to go the other way or use PDM with a CPY
command and hit F13.

David Morris




As an Amazon Associate we earn from qualifying purchases.

This thread ...


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.