Re: Indicator not working after Enter Key?

["Luqman" <pearlsoft@xxxxxxxxxxxx>]

Hi,

Your guess was treffic, I was facing exactly the same problem, and  write 
out the record format will should solve the problem.

Best Regards,

Luqman

<RPower@xxxxxxxxxx> wrote in message 
news:OF32A8A315.1D47D26E-ONA3256F56.004F6CE5-A3256F56.004FE535@xxxxxxxxxxxxx
> Do you mean that once you press enter, you should be on screen 2 but you
> can still move the cursor back to screen 1 and edit the fields there?  If
> so, then what is wrong is that the indicator protection will only take
> effect after being set on if you rewrite that screen.  If you want the
> screen to be rewritten as a background consider this:
> D DISPIND     DS
> D PKEY                  01   01N
> C EXFMT recordno1
> C EVAL PKEY=*ON
> * Write out the record format again for display purpose only with the
> fields protected
> C WRITE recordno1
> C EXFMT recordno2
>
> This should accomplish what you want if I think I know what you are
> needing.
>
>
> Ron Power
> Programmer
> Information Services
> City Of St. John's, NL
> P.O. Box 908
> St. John's, NL
> A1C 5M2
> Tel: 709-576-8132
> Email: rpower@xxxxxxxxxx
> Website: http://www.stjohns.ca/
> ___________________________________________________________________________
> Success is going from failure to failure without a loss of enthusiasm. -
> Sir Winston Churchill
>
>
>
>
> "Luqman" <pearlsoft@xxxxxxxxxxxx>
> Sent by: rpg400-l-bounces@xxxxxxxxxxxx
> 24/11/2004 09:51 AM
> Please respond to
> RPG programming on the AS400 / iSeries 
> <rpg400-l@xxxxxxxxxxxx>
>
>
> To
> rpg400-l@xxxxxxxxxxxx
> cc
>
> Subject
> Indicator not working after Enter Key?
>
>
>
>
>
>
> I have 02 record formats in my WORKSTN File.
>
> I have put an indicator on 1st record format in Protect Option, which
> should
> be On when I press enter on 1st Record, and the field should be protected,
>
> but before the enter key, it should be editable. I have used Overlay in
> RecordNo2 so that RecordNo1 does not disappear.
>
> What I have done is:
>
> D DISPIND     DS
> D PKEY                  01   01N
> C EXFMT recordno1
> C EVAL PKEY=*ON
> C EXFMT recordno2
>
> The problem is that after pressing Enter on RecordNo1, the Field in
> RecordNo1 still editable and not protecting, what should I do to overcome
> this problem ?
>
> Best Regards,
>
> Luqman
>
>
>
>
>
> --
> This is the RPG programming on the AS400 / iSeries (RPG400-L) mailing list
> To post a message email: RPG400-L@xxxxxxxxxxxx
> To subscribe, unsubscribe, or change list options,
> visit: http://lists.midrange.com/mailman/listinfo/rpg400-l
> or email: RPG400-L-request@xxxxxxxxxxxx
> Before posting, please take a moment to review the archives
> at http://archive.midrange.com/rpg400-l.
>
>
>
>
> This e-mail communication and accompanying documents is intended only for 
> the individual or entity to which it is addressed and may contain 
> information that is confidential, privileged or exempt from disclosure 
> under applicable law.  Any use of this information by individuals or 
> entities other than the intended recipient is strictly prohibited.  If you 
> have received this in error, please notify the sender and delete all the 
> copies (electronic or otherwise) immediately.
> --
> This is the RPG programming on the AS400 / iSeries (RPG400-L) mailing list
> To post a message email: RPG400-L@xxxxxxxxxxxx
> To subscribe, unsubscribe, or change list options,
> visit: http://lists.midrange.com/mailman/listinfo/rpg400-l
> or email: RPG400-L-request@xxxxxxxxxxxx
> Before posting, please take a moment to review the archives
> at http://archive.midrange.com/rpg400-l.
>
>