利用QSHELL找出一个LIB下属于一个member的所有obj，CL sourcecode
PGM PARM(&MEMBER)
DCL &LIBL 2750
CLRPFM YOURLIB/OUTPUT
RTVJOBA USRLIBL(&LIBL)
CHGVAR &START VALUE(1)
CHGVAR &LIBRARY %SST(&LIBL &START 10)
DOWHILE COND(&LIBRARY > ' ')
CHGVAR QSHCMD +
VALUE( 'find /QSYS.LIB/' +
*TCAT &LIBRARY +
*TCAT '.LIB/*.FILE -name "' +
*TCAT &MEMBER +
*TCAT '.MBR" > /QSYS.LIB/YOURLIB.LIB/OUTPUT.FILE/OUTPUT.MBR' )
QSH CMD(QSHCMD)
CHGVAR &START VALUE(&START + 11)
CHGVAR &LIBRARY %SST(&LIBL &START 10)
ENDDO
ENDPGM
阅读(1314) | 评论(0) | 转发(0) |
