FUNCTION FC 1 : VOID
TITLE =S DBx.DBXy.z
VERSION : 0.1
VAR_INPUT
x : INT ;
y : INT ;
z : INT ;
END_VAR
VAR_TEMP
idb : INT ;
END_VAR
BEGIN
NETWORK
TITLE =
L #x;
T #idb;
OPN DB [#idb];
L #y;
SLD 3;
L #z;
+D ;
LAR1 ;
SET ;
S DBX [AR1,P#0.0];
END_FUNCTION