关于DB112查找程序实例分析

制作一个功能块，可以在DB112的数据块里找到输入接口CODE给的一组数。

将搜索到DB112里的内容传到DB115里：

DB112:

AUF   DI   112                                打开DB112功能块

L     P#0.0                                张载地址指针0.0

T     #Code_Pionter

L     10

next: T     #Index_C                     使用LOOP指令循环10次

L     DID [#Code_Pionter]      提取 DB112中的0.0开始对比

L     #code                              输入变量的给入参数16#4444

==D                                        比较数是否相同

S     #OK                                相同就置位OK提示找到了并跳到END位置

SPB   end

L     P#18.0                       从0.0开始找如果没有找到，就向下找相隔18.0

L     #Code_Pionter

+D    

T     #Code_Pionter 

L     #Index_C

LOOP  next                   循环10次

SPA   ext1         循环结束后直接跳出块

end:  L     DID [#Code_Pionter]     如果找到了相同的内容传到DB115

T     #Parts_date.code   

L     P#4.0             -寻找UDT中的sequence

L     #Code_Pionter  

+D    

T     #Code_Pionter  再次将 下移的4.0位保存

L     DIW [#Code_Pionter]     

T     #Parts_date.sequence     将DB112的equence存到DB115里

L     P#2.0                          -寻找UDT中的sta_1_time

L     #Code_Pionter

+D    

T     #Code_Pionter

L     DID [#Code_Pionter]

T     #Parts_date.sta_1_time  将DB112的sta_1_time存到DB115里

L     P#4.0                -寻找UDT中的sta_2_time

L     #Code_Pionter

+D    

T     #Code_Pionter

L     DID [#Code_Pionter]        

T     #Parts_date.sta_2_time  将DB112的sta_2_time存到DB115里

L     P#4.0                   -寻找UDT中的sta_3_time

L     #Code_Pionter

+D    

T     #Code_Pionter

L     DID [#Code_Pionter]      

T     #Parts_date.sta_3_time    将DB112的sta_3_time存到DB115里

ext1: U     #rest             

R     #OK      复位OK

BE             结束块

 

编辑：黄飞