RE: SEU Exit program question -- RPG400-L

The cursor location is = *ZERO in the datastructure after the program is
evoked.

There is no documentation that I have been able to find that tells me how to
reposition the cursor.

 DPheader          S               *
 DWHeader          Ds                  Based(Pheader)
 D Wrcdlen                        9B 0
 D WCsrrrn                        9B 0
 D WCsrloc                        9B 0
 D WCcsid                         9B 0
 D Wnbrrci                        9B 0

and debug results....

 EVAL WHeader
 WRCDLEN OF WHEADER = 000000100.
 WCSRRRN OF WHEADER = 000000001.
 WCSRLOC OF WHEADER = 000000000.
 WCCSID OF WHEADER = 000000000.
 WNBRRCI OF WHEADER = 000000002.
 WSRCMBR OF WHEADER = 'DATDIF    '
 WSRCF OF WHEADER = 'QRPGLESRC '
 WSRCFLIB OF WHEADER = 'PAJMS     '
 WSRCMBRTYP OF WHEADER = 'RPGLE     '
 WFKEY OF WHEADER = '0'
 WMODE OF WHEADER = 'U'
 WSPLIT OF WHEADER = '0'
 WRESERVERD1 OF WHEADER = ' '

-----Original Message-----
From: rpg400-l-admin@midrange.com [mailto:rpg400-l-admin@midrange.com]On
Behalf Of Srinivas S S, Gurgaon
Sent: September 20, 2001 08:40 AM
To: rpg400-l@midrange.com
Subject: RE: SEU Exit program question


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.
_______________________________________________
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.