Hi Julie
When I first tried it I located on the MSG fine but getting the line returned the top line of the data.
so ...
it bugged me! I had to solve it. 
Here's the solution ...
-IPT- EDIT SE16661.USER.EXEC(LOCMSGS) - 01.01 Columns 00001 00072
Command ===> Scroll ===> CSR
****** ***************************** Top of Data ******************************
000001 /*REXX*/
000002 ADDRESS ISPEXEC "CONTROL ERRORS RETURN"
000003 ADDRESS ISREDIT
==MSG> message line 1
000004 "MACRO NOPROCESS"
000005 "SEEK P'=' 1 FIRST"
000006 "LOCATE FIRST MSGLINE"
==MSG> message line 2
000007 DO WHILE(RC=0)
000008 "(ML) = LINE .ZCSR"
000009 "(LN) = LINENUM .ZCSR"
000010 SAY RIGHT(ln,6,0) STRIP(ml,"T")
000011 "SEEK P'=' 1 NEXT"
000012 "LOCATE NEXT MSGLINE"
==MSG> message line 3
000013 END
****** **************************** Bottom of Data ****************************
OK, this is testing on itself (which can be fatal) but in this case we're OK.
As you can see I have just pushed 3 message lines into the code to try it out, giving them the inspired names of "
message line n"!
This is what I get running on Montpellier Demo under IPT (not that that should be any different to anywhere else?
)
000004 "MACRO NOPROCESS"
000007 DO WHILE(RC=0)
000013 END
***
and end up located on the bottom line (13) on the E of END..
-IPT- EDIT SE16661.USER.EXEC(LOCMSGS) - 01.01 Columns 00001 00072
Command ===> Scroll ===> CSR
==MSG> message line 3
000013 END
****** **************************** Bottom of Data ****************************
