Chinaunix首页 | 论坛 | 博客
  • 博客访问: 1298406
  • 博文数量: 287
  • 博客积分: 11000
  • 博客等级: 上将
  • 技术积分: 3833
  • 用 户 组: 普通用户
  • 注册时间: 2007-08-16 08:43
文章分类
文章存档

2013年(15)

2012年(17)

2011年(17)

2010年(135)

2009年(85)

2008年(18)

分类: 系统运维

2009-12-15 23:33:58

利用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
阅读(1335) | 评论(0) | 转发(0) |
给主人留下些什么吧!~~