Portal | Manuals | References | Downloads | Info | Programs | JCLs | Master the Mainframes
IBM Mainframe Computers Forums Index
 
Register
 
IBM Mainframe Computers Forums Index Mainframe: Search IBM Mainframe Forum: FAQ Memberlist Usergroups 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: 10274
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 Trace in CLIST PANEL cvnlynn CLIST & REXX 1 Thu Jun 22, 2017 11:06 pm
No new posts SCLM -- not installed -- panel ISRNOSLM dmitchell1105 IBM Tools 3 Fri Jun 09, 2017 10:41 pm
No new posts READ A PACKED "NEGATIVE" FI... jdesouza CA Products 3 Tue May 02, 2017 11:43 pm
No new posts Alter &DATENS field in HEADER1 Angad DFSORT/ICETOOL 4 Mon Apr 24, 2017 11:49 am
No new posts SORT VSAM file with each field one by... maxsubrat DFSORT/ICETOOL 6 Tue Mar 14, 2017 1:07 pm


Facebook
Back to Top
 
Mainframe Wiki | Forum Rules | Bookmarks | Subscriptions | FAQ | Tutorials | Contact Us