数据拷贝。这是一个从不同的数据区拷贝数据到同一个目的的例子。

FUNCTION_BLOCK "PT_SEL"
TITLE =
AUTHOR : zane
FAMILY : MD5_4B
NAME : PT_SEL
VERSION : 0.1


VAR_INPUT
PTDB : BLOCK_DB ;
END_VAR
VAR
ACT_PT_SEL : STRUCT
PT_SEL_N : INT := 1;
ACT_PT_TYPE : "PT_DAT";
END_STRUCT ;
BYTE_LENGTH : INT := 30;
POINTER_ADDR_NO : DWORD ;
SFC20_RETVAL : INT ;
END_VAR
VAR_TEMP
SEL_SOURCE : ANY ;
END_VAR
BEGIN
NETWORK
TITLE =

OPN #PTDB;

L #ACT_PT_SEL.PT_SEL_N;
L #BYTE_LENGTH;
*I ;
SLW 3;
T #POINTER_ADDR_NO;

LAR1 P##SEL_SOURCE;
L W#16#1002;
T LW [AR1,P#0.0];
L #BYTE_LENGTH;
T LW [AR1,P#2.0];
L DBNO;
T LW [AR1,P#4.0];
L #POINTER_ADDR_NO;
T LD [AR1,P#6.0];
L B#16#84;
T LB [AR1,P#6.0];
NETWORK
TITLE =

CALL "BLKMOV" (
SRCBLK := #SEL_SOURCE,
RET_VAL := #SFC20_RETVAL,
DSTBLK := #ACT_PT_SEL.ACT_PT_TYPE);

END_FUNCTION_BLOCK