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