Re: Indicator not working after Enter Key?

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.