RE: srcmbr utility.

This message is in MIME format. Since your mail reader does not understand
this format, some or all of this message may not be legible.
--
[ Picked text/plain from multipart/alternative ]
I will give the CPY command a shot... Thanks, tim

> -----Original Message-----
> From: David Morris [SMTP:David.Morris@plumcreek.com]
> Sent: Tuesday, August 13, 2002 3:22 PM
> To:   midrange-l@midrange.com
> Subject:      Re: srcmbr utility.
>
> 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
>
>
> _______________________________________________
> 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/cgi-bin/listinfo/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.
This e-mail message, including any attachments, is for the sole use of the
intended recipient(s) and may contain confidential or privileged
information.  Any unauthorized review; use, disclosure or distribution is
prohibited.  If you are not the intended recipient, please contact the
sender by reply e-mail and destroy the message.