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: 181
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: 155
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: 181
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: 1031
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: 181
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: 181
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: 155
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: 106
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 ALPHABETIC check in COBOL vidyaa COBOL Programming 6 Thu Aug 17, 2017 7:13 pm
No new posts Command to find TMEMBER name for a TPIPE Siva NKK Kothamasu IMS DB/DC 0 Wed Aug 16, 2017 6:08 pm
This topic is locked: you cannot edit posts or make replies. how to code for GDG in Rexx cvnlynn CLIST & REXX 13 Wed Aug 09, 2017 9:13 pm
This topic is locked: you cannot edit posts or make replies. rexx to create a tso command Bharath Vikraman CLIST & REXX 1 Tue Aug 08, 2017 3:32 pm
This topic is locked: you cannot edit posts or make replies. rexx code to create a ps file Bharath Vikraman CLIST & REXX 4 Mon Aug 07, 2017 10:30 am


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