项目内所以ob块的network 1 都是以下程序 ，请高手解答其作用？
LAR1 P##T_DSTBLK
L W#16#1002
T W [AR1,P#0.0]
L DW#16#140001
T D [AR1,P#2.0]
L #OB10_OB_NUMBR
DEC 1
L 20
*D
SLD 3
L DW#16#84000000
XOD
T D [AR1,P#6.0]

CALL "BLKMOV"
SRCBLK :=P#L 0.0 BYTE 20
RET_VAL:=LW30
DSTBLK :=#T_DSTBLK