VAR_INPUT
ENABLE: BOOL;
DATA : REAL ;// := 0 ;
ROCODER_NUM: INT;
T: S5TIME;
myDB: BLOCK_DB;
END_VAR



VAR
S:BOOL;
X :INT:=0;
Y :INT:=100;
B:BOOL;
CurrTime:S5TIME;
RET_VA : INT ;
RET:INT;
IN1:WORD;
IN2:WORD;
IN3:BOOL;
IN4:WORD;

END_VAR
WHILE (Y>1) DO
myDB.DD[(4*Y-4)]:=myDB.DD[(4*Y-8)];
Y:=Y-1;
V:=Y;
IF Y=1 THEN
myDB.DD0:=0; RETURN;
END_IF;



不知道对你是否有帮助