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
 

 

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

 
Post new topic   Reply to topic    IBMMAINFRAMES.com Support Forums -> CLIST & REXX
View previous topic :: :: View next topic  
Author Message
rohanthengal

Active User


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

PostPosted: Fri Nov 18, 2016 1:48 pm    Post subject: What is the command to check MODE of PDS MEMBER in REXX ?
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 User


Joined: 01 Sep 2015
Posts: 122
Location: Switzerland

PostPosted: Fri Nov 18, 2016 2:05 pm    Post subject:
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: 179
Location: Globe, India

PostPosted: Fri Nov 18, 2016 2:20 pm    Post subject:
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: 1009
Location: Oostende, Belgium

PostPosted: Fri Nov 18, 2016 2:51 pm    Post subject:
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: 179
Location: Globe, India

PostPosted: Fri Nov 18, 2016 4:52 pm    Post subject:
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: 179
Location: Globe, India

PostPosted: Fri Nov 18, 2016 4:53 pm    Post subject:
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 User


Joined: 01 Sep 2015
Posts: 122
Location: Switzerland

PostPosted: Fri Nov 18, 2016 9:57 pm    Post subject:
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: 101
Location: canada

PostPosted: Thu Jan 05, 2017 10:02 pm    Post subject:
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    IBMMAINFRAMES.com Support Forums -> CLIST & REXX All times are GMT + 6 Hours
Page 1 of 1

 

Search our Forum:

Similar Topics
Topic Author Forum Replies Posted
No new posts Running an REXX EXEC implicitly sho7hills CLIST & REXX 3 Thu Apr 20, 2017 8:14 am
No new posts Need help in REXX CALL program Raje1002 CLIST & REXX 5 Wed Apr 19, 2017 11:18 pm
No new posts Check Binary Values for symbols gandikk CA Products 3 Tue Mar 21, 2017 5:11 am
No new posts REXX cdoe to purge a JOB from spool a... Sulabh Agrawal CLIST & REXX 11 Thu Mar 09, 2017 11:36 am
No new posts TSO or command line utility to genera... kishpra JCL & VSAM 3 Thu Mar 09, 2017 1:11 am


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