Datablock Shift

I have a datablock that has 119 interger words in it.
I would like to shift all of the interger words by one spot.
So I would like DB1.dbw0 to go into .dbw2 to go into .dbw4 and so on until .dbw238 simply drops off the map.
Is this possible?
Thanks in advance.

Assuming talking about S7-300/400 here.

Easiest way is to use FC20 (Block move), but it would need 2 moves as it does not allow overlaps, therefore move DB1.DBX0.0 236 bytes long into a temp area, them move the temp area to DB1.DBX2.0 236 bytes long, then zero DB1.DBW0.

Thank you! I will try that.

or here's an example FC that will do the job:

Here is an exaple that does what you want, it's part of a rolling average routine. The code assumes that the first value is DBxxx.DBW0. There are more elegent ways of doing it but this works OK.

#DBlock - Integer DataBlock Number
#iNum_values - Integer number of entries to process
#iNew_Value - New value to add to the top of the list.


<code>
OPN #DBlock
L #iNum_values
SLW 1 // Times 2 for bytes
T #iTemp
ma01: L #iTemp // Ripple down the values
SLD 3 // Losing the oldest one
T #pValueN // Value N
L #iTemp
L -2
+I
SLD 3
T #pValueN1 // Value N-1
L DBW [#pValueN1] // Load N-1
T DBW [#pValueN] // Save as N
L #iTemp
L -2
+I // Decrement counter
T #iTemp
L 0
>I
JC ma01 // Next
// Ripple done
L #iNew_value
T DBW 0 // Put the new value at the top
</code>

Nick

Edit: Simons solution is much more elegant