Portal | Manuals | References | Downloads | Info | Programs | JCLs | Mainframe wiki | Quick Ref
IBM Mainframe Computers Forums Index
 
Register
 
IBM Mainframe Computers Forums Index Mainframe: Search IBM Mainframe Forum: FAQ Memberlist Profile Log in to check your private messages Log in
 
Protect field in an ISPF Panel

 
Post new topic   Reply to topic    IBMMAINFRAMES.com Support Forums -> TSO/ISPF
View previous topic :: :: View next topic  
Author Message
expat

Global Moderator


Joined: 14 Mar 2007
Posts: 8593
Location: Back in jolly old England

PostPosted: Fri Nov 16, 2007 1:39 pm    Post subject: Protect field in an ISPF Panel
Reply with quote

Reposted on request of OP - original somehow deleted


Hi everybody:

How can I protect a field programmatic in REXX ?

The field I want to protect is in a Panel,
for example I have an Employee-ID field defined as INPUT not protected,
to type the employee-id the first time, then in my rexx program
I want to change the attibutes of this field to "PROTECTED", so that
the user will not able to enter data in this field, the second time
that I will show the panel.

Is it possible?

Panel example :

Code:

)ATTR
  % TYPE(TEXT) INTENS(HIGH) SKIP(ON)
  + TYPE(TEXT) INTENS(LOW) SKIP(ON)
  _ TYPE(INPUT) INTENS(HIGH) CAPS(ON)
)BODY
%                 PANEL EXAMPLE       
+
+
+ EMPLYEE ID. : _Z       +   (ALPHANUMERIC)
+
+ FIRST NAME  : _Z                        +
.
. others fields
.
.



Any ideas how to protect programmatic a field (EMPLYEE ID) from REXX is welcome.
Back to top
View user's profile Send private message

expat

Global Moderator


Joined: 14 Mar 2007
Posts: 8593
Location: Back in jolly old England

PostPosted: Fri Nov 16, 2007 6:11 pm    Post subject:
Reply with quote

In the past I have used a clone of the original panel which when the user hits enter control is returned to the REXX and then the cloned panel is displayed with the appropriate attributes defined.
Back to top
View user's profile Send private message
enrico-sorichetti

Global Moderator


Joined: 14 Mar 2007
Posts: 10311
Location: italy

PostPosted: Fri Nov 16, 2007 6:41 pm    Post subject: Reply to: Protect field in an ISPF Panel
Reply with quote

play around a little with the

Code:
)INIT
....
)REINIT 
...


inserting something like ( panel driven... might choke )
Code:
if ( &field ^= '' )
   .ATTR(FIELD)='TYPE(OUTPUT) .....'


or rather (rexx driven will allways work)
Code:
.ATTR(FIELD)=&attrfield


were attrfield is a variable which has to be set before displaying the panel
Back to top
View user's profile Send private message
View previous topic :: :: View next topic  
Post new topic   Reply to topic    IBMMAINFRAMES.com Support Forums -> TSO/ISPF All times are GMT + 6 Hours
Page 1 of 1

 

Search our Forum:

Similar Topics
Topic Author Forum Replies Posted
No new posts MQ command in option 6 of ISPF! Vignesh Sid All Other Mainframe Topics 3 Tue Sep 26, 2017 6:01 pm
No new posts Conditional highlighting of rows in I... packerm CLIST & REXX 2 Thu Sep 21, 2017 6:50 pm
No new posts Remove leading spaces from numeric field rexx77 SYNCSORT 6 Wed Sep 06, 2017 2:15 am
No new posts JES2 job size field matching Windows ... SRICOBSAS All Other Mainframe Topics 4 Tue Sep 05, 2017 5:49 pm
No new posts Creating ISPF Screens with Scrname vi... Albireo20 TSO/ISPF 9 Tue Sep 05, 2017 4:24 pm

Facebook
Back to Top
 
Job Vacancies | Forum Rules | Bookmarks | Subscriptions | FAQ | Polls | Contact Us