IBM Mainframe Forum Index
 
Log In
 
IBM Mainframe Forum Index Mainframe: Search IBM Mainframe Forum: FAQ Register
 

How to control Panel Attributes through REXX


IBM Mainframe Forums -> CLIST & REXX
Post new topic   Reply to topic
View previous topic :: View next topic  
Author Message
rsshanmugam

New User


Joined: 08 Mar 2005
Posts: 62
Location: Basildon

PostPosted: Mon Feb 26, 2018 9:51 pm
Reply with quote

How to control attributes of the Panel variables through REXX. is it first possible. i have gone through multiple manuals , only i could relate it .ATTR or .ATTRCHAR but they can be used in )INIT or )REINIT section, i want to control the attributes through REXX though.

My requirement is:

(Note: this is simple requirement only, the concept can be used for multiple solution).

Step 1: Throw panel from REXX and ask for Dataset.
Step 2: Validate the data set if exist read else throw error message.
Step 3: Once the data is valid display the data row wise for first 15 lines. while doing so the field where we enter the dataset should be protected.
Step 4: Page up and Page down function to browse through and if any change to be made can be made.
Step 5: Save the updated content to the dataset.

i have figured out all other stuff but wanted to know how to protect the field which accepts dataset after displaying the data.
Back to top
View user's profile Send private message
Pedro

Global Moderator


Joined: 01 Sep 2006
Posts: 2545
Location: Silicon Valley

PostPosted: Mon Feb 26, 2018 10:39 pm
Reply with quote

Try something like this, in your panel:
Code:
)ATTR
 _ type(&mytype)  COLOR(TURQ) HILITE(&mylite)

In your rexx program:
Code:
&mytype = 'INPUT'
&mylite = 'USCORE'

Address ISPEXEC "DISPLAY PANEL(thepanel)"
...
&mytype = 'OUTPUT'
&mylite = ''
Back to top
View user's profile Send private message
enrico-sorichetti

Superior Member


Joined: 14 Mar 2007
Posts: 10872
Location: italy

PostPosted: Mon Feb 26, 2018 11:16 pm
Reply with quote

learn to use the proper terminology for mainframe oriented IT
throw is a term used for toy computers and toy languages

You DISPLAY a panel as per ISPF manuals
and You DISPLAY an error message

and as a general concern ( been there done that )
if the number of fields for which the attribute has to be changed is large
the process and the coding will be painful
apart finding the proper names to use in order not to overflow the 80 bytes record length for panels
Back to top
View user's profile Send private message
rsshanmugam

New User


Joined: 08 Mar 2005
Posts: 62
Location: Basildon

PostPosted: Tue Feb 27, 2018 5:33 pm
Reply with quote

thanks Pedro, the suggestion you gave is working like charm. i am able to control the attributes using variables in the program.
Back to top
View user's profile Send private message
View previous topic :: :: View next topic  
Post new topic   Reply to topic View Bookmarks
All times are GMT + 6 Hours
Forum Index -> CLIST & REXX

 


Similar Topics
Topic Forum Replies
No new posts Running REXX through JOB CLIST & REXX 13
No new posts Error to read log with rexx CLIST & REXX 11
No new posts isfline didnt work in rexx at z/OS ve... CLIST & REXX 7
No new posts run rexx code with jcl CLIST & REXX 15
No new posts Execute secondary panel of sdsf with ... CLIST & REXX 1
Search our Forums:

Back to Top