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

2013年(15)

2012年(17)

2011年(17)

2010年(135)

2009年(85)

2008年(18)

分类: 系统运维

2010-06-11 10:36:19

QWCRSSTS
 
CLLE example:

   Pgm
/*- Global variables:  ------------------------------------*/
    Dcl        &PxSysAsp     *Dec    ( 11  3 )
    Dcl        &PxSysAspUs   *Dec    ( 11  4 )
    Dcl        &PxTotAuxSt   *Dec    ( 11  3 )

    Dcl        &SsRcvVar     *Char     64
    Dcl        &SsRcvVarLn   *Char      4    x'00000040'
    Dcl        &SsFmtNam     *Char      8    'SSTS0200'
    Dcl        &SsResStc     *Char     10    '*NO'
    Dcl        &ApiError     *Char      4    x'00000000'

/*- Global error monitor:  --------------------------------*/
    MonMsg     CPF0000       *N        GoTo  EndPgm

/*- Mainline:  --------------------------------------------*/
    Call       QWCRSSTS    ( &SsRcvVar                +
                             &SsRcvVarLn              +
                             &SsFmtNam                +
                             &SsResStc                +
                             &ApiError                )

    ChgVar     &PxSysAsp   ( %Bin( &SsRcvVar  49  4 ) / 1000  )
    ChgVar     &PxSysAspUs ( %Bin( &SsRcvVar  53  4 ) / 10000 )
    ChgVar     &PxTotAuxSt ( %Bin( &SsRcvVar  57  4 ) / 1000  )

EndPgm:
    EndPgm

Thanks to Carsten Flensburg
阅读(784) | 评论(0) | 转发(0) |
给主人留下些什么吧!~~