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: 10211
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 INVALID FIELD OR CONSTANT IN SORTOF ?? Ron Klop DFSORT/ICETOOL 8 Wed Jan 11, 2017 3:44 pm
This topic is locked: you cannot edit posts or make replies. Calling REXX code from ISPF panel sanchita dey TSO/ISPF 4 Mon Jan 02, 2017 5:13 pm
No new posts Performing arithmetic on input field zh_lad DFSORT/ICETOOL 31 Tue Dec 06, 2016 8:04 pm
No new posts Is the 'prompt' data for the DSLIST p... Willy Jensen TSO/ISPF 2 Tue Dec 06, 2016 4:38 am
No new posts Add PD field from 2nd file to PD in 1st Sushant Garje DFSORT/ICETOOL 6 Thu Dec 01, 2016 4:32 pm


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