FUNCTION FC 1 : INT
TITLE =
VERSION : 0.1
VAR_INPUT
blockDB : BLOCK_DB ;
END_VAR
VAR_TEMP
pAny : ANY ;
byFill : BYTE ;
END_VAR
BEGIN
NETWORK
TITLE =
OPN #blockDB;
L DBLG;
LAR1 P##pAny;
T W [AR1,P#2.0];
L DBNO;
T W [AR1,P#4.0];
L P#DBX 0.0;
T D [AR1,P#6.0];
L W#16#1002;
T W [AR1,P#0.0];
L 0;
T #byFill;
CALL SFC21 (
BVAL := #byFill,
RET_VAL := #RET_VAL,
BLK := #pAny);
END_FUNCTION