DB Search and find string

I have a DB that is just an array ofUDTs 20 elements long, except for an integer variable at the start. One of the members of the UDT is data type STRING[12]. I need to create an FC that looks at the first element of the array, then iterates through the rest of the array elements and finds the first one that has a matching string. I have managed to create a loop that keeps incrementing an ANY pointer and goes through each element of the array.The code for my FC is below

L 74 //Start word of the first array element to search
T #Offset

//Generate an any pointer to the search string
LAR1 P##FindMe //Load the start address of the ANY pointer in AR1.

L B#16#10//Load the syntax ID and
T LB [AR1,P#0.0]//transfer it to the ANY pointer

L B#16#13//Load data typeString and
T LB [AR1,P#1.0]//transfer it to the ANY pointer

L 1 //Load1 byte and
T LW [AR1,P#2.0]//transfer them to the ANY pointer

L 260 //Search testis located in DB260, DBB2
T LW [AR1,P#4.0]
L P#DBX 2.0
T LD [AR1,P#6.0]

//Generate an any pointer to thefirst string to search in
LAR1 P##FindWithin //Load the start address of the ANY pointer in AR1.

L B#16#10 //Load the syntax ID and
T LB [AR1,P#0.0]//transfer it to the ANY pointer

L B#16#13//Load data typeString and
T LB [AR1,P#1.0]//transfer it to the ANY pointer

L 1 //Load 1 byte and
T LW [AR1,P#2.0]//transfer them to the ANY pointer

L 260//Firstelement to search is at DB260,DBW74
T LW [AR1,P#4.0]
L #Offset
SLD 3
OD DW#16#84000000

T LD [AR1,P#6.0]

CALL "BLKMOV" //Copy the string we're searching for to a tempstring variable
SRCBLK :=#FindMe
RET_VAL:=MW200
DSTBLK :=#String1

L 18 //Initializng the counter to 18. For now I'm not checking the
//last element of the array
Strt: T #Cntr

CALL "BLKMOV" //Copy the string we're searching within to a temp string variable
SRCBLK :=#FindWithin
RET_VAL:=MW200
DSTBLK :=#String2

CALL "NE_STRNG" //Compare the two strings
S1 :=#String1
S2 :=#String2
RET_VAL:=#Result

JCN fnd //If strings are the same exit the loop

LAR1 P##FindWithin //else move pointer to the next element in the array
L #Offset
L 72 //length of each array element
+I

T #Offset
SLD 3
OD DW#16#84000000
T LD [AR1,P#6.0]

L #Cntr

LOOP Strt

fnd: L #Cntr
T MW206


The problem is my compare instruction never finds a match. I'm pretty certain the problem is my "BLKMOV' calls, but I could be wrong. Does anyone have any suggestions?

Lreudenkain

CALL "NE_STRNG" //Compare the two strings
S1 :=#String1
S2 :=#String2
RET_VAL:=#Result

JCN fnd //If strings are the same exit the loop

Regards Usjwo