RE: SEU Exit program question

["Srinivas S S, Gurgaon" <srisai@xxxxxxxxxxxxxxx>]

This message is in MIME format. Since your mail reader does not understand
this format, some or all of this message may not be legible.
--
[ Picked text/plain from multipart/alternative ]
Hi michael
The field for manipulation of cursor position within the header user space
is at offset 8 binary(4).
Will this give you some clue.
I have not tried the same.
I found a snippet of desciption of the same in a book if this could be of
any help
*********
Cursor position
This field contains the number of the cursor column  relative to the first
character of the source text.If the relative record number
is 0, or if the cursor is not in the text portion of the relative record,
then this equals 0.
**********
Thanks
Regards
Srinivas


> -----Original Message-----
> From: J Michael Smith [SMTP:JMichael.Smith@arch.com]
> Sent: Thursday, September 20, 2001 6:36 PM
> To:   RPG400-L (E-mail); RPGIV (E-mail)
> Subject:      SEU Exit program question
>
> I have written an SEU exit program that processes the line command "HI" to
> highlight comment code lines.
>
> The program works correctly; sets the attribute byte and returns the
> proper
> return code for a successfully completion.
>
> The display cursor is positioned in the 3rd position upon return from the
> exit program.  Its there away to reposition the cursor to the 1st
> character.
>
> C represents the cursor location
>
> Example(Current): .
> 0001.00       *
> HIC2.00        *
> Return as
> 0001.00       *
> 00C0.00       * (Highlighted)
>
> Wanted:
> 0001.00       *
> HIC2.00       *
> Return as
> 0001.00       *
> C002.00       * (Highlighted)
>
> Thanks
>
> Michael Smith
>
>
>
> _______________________________________________
> This is the RPG programming on the AS400 / iSeries (RPG400-L) mailing list
> To post a message email: RPG400-L@midrange.com
> To subscribe, unsubscribe, or change list options,
> visit: http://lists.midrange.com/cgi-bin/listinfo/rpg400-l
> or email: RPG400-L-request@midrange.com
> Before posting, please take a moment to review the archives
> at http://archive.midrange.com/rpg400-l.