AS400上的bit操作的典型应用

AS400上的bit操作的典型应用

 

对bit的操作主要有下面三大类控制：

1）西人喜欢对显示终端设置多样化显示效果，如色彩、下划线等。

2）通讯操作。通讯就不用多说了，应用很广。如对银联的8583通讯报文，就有一项bit map的操作。如用400操作，就必须用到bit操作。

3）控制程序操作。早期的程序中，西人喜欢用bit操作对程序应用组起到控制作用。比如对一组菜单选项控制，如设置‘00001110’，这个操作者只能对这组菜单的5、6、7选项进行操作。

 

我一般喜欢把bit操作转化为数组array的操作。比如上面提到的8583报文，是对域的操作，如对40域填入数据，即f8583（40）有值，b8583（40）=‘1’。否则，没有填入数据，b8583（x）=‘0’。最后8583bit map就等于b8583.

 

注：

CU上有朋友发帖：

提问：

请教一下这段代码有什么用最好通俗点！

BITOF'01234567'W@OE    1 

BITON'456'     W@OE      

BITOF'01234567'W@OF    1 

BITON'4567'    W@OF

答：

BITOF'01234567'   W@OE   -->>00000000      (二進制)

BITON'456'        W@OE   -->>00001110

 

在rpg传统模式下，可以

C             MOVEL X'0e'        W@OE

C             MOVEL X'0f'        

 

在自由格式下，可以

W@0E = X'0e';

W@OF = X'0f';