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

What is the command to check MODE of PDS MEMBER in REXX ?


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

Active User


Joined: 19 Mar 2009
Posts: 206
Location: Globe, India

PostPosted: Fri Nov 18, 2016 1:48 pm
Reply with quote

I have written one rexx macro to enlist the copybooks from cobol program.
But i want to restrict its use to use it only in VIEW mode.
Is there any command to check if the mode of the current working member/cobol program is VIEW/EDIT ?
If anyone has opened code in EDIT mode then display error message and utility should not proceed.
Back to top
View user's profile Send private message
Willy Jensen

Active Member


Joined: 01 Sep 2015
Posts: 712
Location: Denmark

PostPosted: Fri Nov 18, 2016 2:05 pm
Reply with quote

No built-in command that I can find. You could VGET the ZSCREENI variable to obtain the screen data and check that for the 'VIEW' or 'EDIT' text.
Back to top
View user's profile Send private message
rohanthengal

Active User


Joined: 19 Mar 2009
Posts: 206
Location: Globe, India

PostPosted: Fri Nov 18, 2016 2:20 pm
Reply with quote

ahh.. great idea. let me hit try n let you know
Back to top
View user's profile Send private message
prino

Senior Member


Joined: 07 Feb 2009
Posts: 1306
Location: Vilnius, Lithuania

PostPosted: Fri Nov 18, 2016 2:51 pm
Reply with quote

Code:
"isredit (MODE) = session"


RTFM next time!
Back to top
View user's profile Send private message
rohanthengal

Active User


Joined: 19 Mar 2009
Posts: 206
Location: Globe, India

PostPosted: Fri Nov 18, 2016 4:52 pm
Reply with quote

Thanks, both ideas worked fine.
Got the targettt !!
Back to top
View user's profile Send private message
rohanthengal

Active User


Joined: 19 Mar 2009
Posts: 206
Location: Globe, India

PostPosted: Fri Nov 18, 2016 4:53 pm
Reply with quote

Manual confuses me a lot icon_sad.gif icon_sad.gif
Back to top
View user's profile Send private message
Willy Jensen

Active Member


Joined: 01 Sep 2015
Posts: 712
Location: Denmark

PostPosted: Fri Nov 18, 2016 9:57 pm
Reply with quote

@prino, did scan the manual, but overlooked that one, obviously time for new glasses. Or it was a case of senior moment. Anyway, thanks for the info.
Back to top
View user's profile Send private message
anatol

Active User


Joined: 20 May 2010
Posts: 121
Location: canada

PostPosted: Thu Jan 05, 2017 10:02 pm
Reply with quote

I believe you just worry, that your macro in EDIT mode can save the changes, when you hit PF3 - the solution is use ALIAS on the end of macro - in this case you can run it in VIEW and EDIT with the same result
Code:

  ADDRESS ISREDIT                           
    "DEFINE END ALIAS CANCEL"               
    "DEFINE SAVE ALIAS CANCEL"               
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