Re: SEU Exit program question

[Peter_Vidal@xxxxxxxx]

Hi Michael!


I am interested in doing what you do to a source to highlight a comment line.
Maybe is by using the SELECT USER DEFINED PROMPT but I am not sure.  Today, I
have a program that does that to all the source in one shot, but I have to exit
the program and actually run it over the source I want to affect.  I want to be
able to do it your way because I see it more productive.


In addition, obviously, it will be great if somebody can bring a solution to
Michael's point.


Thanks!


Peter Vidal
"God bless America"




                    J Michael Smith
                    <JMichael.Smith@a        To:     "RPG400-L (E-mail)"
                    rch.com>                 <RPG400-L@midrange.com>, "RPGIV
                    Sent by:                 (E-mail)" <RPGIV@yahoogroups.com>
                    rpg400-l-admin@mi        cc:
                    drange.com               Subject:     SEU Exit program
                                             question

                    09/20/01 09:05 AM
                    Please respond to
                    rpg400-l






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.