Chinaunix首页 | 论坛 | 博客
  • 博客访问: 69528
  • 博文数量: 5
  • 博客积分: 674
  • 博客等级: 上士
  • 技术积分: 180
  • 用 户 组: 普通用户
  • 注册时间: 2006-02-05 23:54
文章分类
文章存档

2012年(2)

2011年(1)

2009年(2)

最近访客

分类:

2009-12-02 14:07:59

             PGM                                                      
             DCLF       FILE(HISOFT3/OWQRYLST)                        
             DSPOBJD    OBJ(OWQRY/*ALL) OBJTYPE(*QRYDFN) +            
                          OUTPUT(*OUTFILE) OUTFILE(HISOFT3/OWQRYLST)  
             MONMSG (CPF0000)                                         
 LOOP:       RCVF                                                     
             MONMSG (CPF0000) +                                       
             EXEC(DO)                                                 
             GOTO CMDLBL(END)                                         
             ENDDO                                                    
             RTVQMQRY   QMQRY(&ODLBNM/&ODOBNM) +                      
                          SRCFILE(HISOFT3/QSQLSRC) ALWQRYDFN(*ONLY)   
             GOTO CMDLBL(LOOP)                                        
 END:        ENDPGM                                                   
阅读(760) | 评论(0) | 转发(0) |
0

上一篇:没有了

下一篇:一个检索pf-src中代码的程序。。。

给主人留下些什么吧!~~