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
阅读(787) | 评论(0) | 转发(0) |
