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

2013年(15)

2012年(17)

2011年(17)

2010年(135)

2009年(85)

2008年(18)

分类: 系统运维

2010-06-24 15:25:51

QUSRTVUS - 按照format格式,每次读取用户空间获取的数据记录
 
     dRtvSpcDta        pr                  extpgm('QUSRTVUS')
     d SpcName                       20    const
     d SpcPos                        10i 0 const
     d SpcLng                        10i 0 const
     d SpcDta                         1    options(*varsize)
     d ErrCde                              likeds(ErrCde) options(*nopass)
     dErrCde           ds
     d BytPrv                        10i 0 inz(0)
     dSpcName          ds
     d SName                         10    inz('SPACENAME')
     d SLib                          10    inz('QTEMP')
     dPgmVar           s             50
      /free
       // Retrieve the first 50 bytes of the user space
       RtvSpcDta( SpcName :1 :%size(PgmVar) :PgmVar :ErrCde);
       // Display the data
       dsply PgmVar;
       Return;
      /end-free
阅读(2298) | 评论(0) | 转发(0) |
给主人留下些什么吧!~~