Portal | Manuals | References | Downloads | Info | Programs | JCLs | Mainframe wiki | Quick Ref
IBM Mainframe Forum Index
 
Register
 
IBM Mainframe Forum Index Mainframe: Search IBM Mainframe Forum: FAQ Memberlist Profile Log in to check your private messages Log in
 
Naming a newly opened screen using REXX

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

New User


Joined: 17 Apr 2020
Posts: 2
Location: USA

PostPosted: Fri Apr 17, 2020 5:48 am    Post subject: Naming a newly opened screen using REXX
Reply with quote

Hi All,

I am new to this forum. I have a question on using SCRNAME in REXX code.

I use the below rexx code to open a pds:

ADDRESS ISPEXEC
"LMINIT DATAID(DID) DATASET('"pds.name"') ENQ(SHRW)"
"LMOPEN DATAID("DID")"
"MEMLIST DATAID("DID") CONFIRM(YES)"
"LMFREE DATAID("DID")"

PDS is opening the way I want (showing all members and giving me the option to do edit/browse/view).

I wish to know if there is a way to incorporate SCRNAME (like 'TESTPDS') in the above REXX code, so as to avoid explicitly giving SCRNAME TESTPDS in command line of the opened pds.

Thanks in advance.
Back to top
View user's profile Send private message

Pedro

Senior Member


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

PostPosted: Fri Apr 17, 2020 9:41 am    Post subject: Reply to: Naming a newly opened screen using REXX
Reply with quote

Try this

Code:
Address ISPEXEC
ZSCRNAME  = 'TESTPDS'
"VPUT (ZSCRNAME) SHARED"


FYI. Search 'Dialog Developer's Guide and Reference' for SCRNAME
Back to top
View user's profile Send private message
Ben12345

New User


Joined: 17 Apr 2020
Posts: 2
Location: USA

PostPosted: Fri Apr 17, 2020 10:23 am    Post subject:
Reply with quote

Yes it worked! I added those two lines in between and got the desired result:

ADDRESS ISPEXEC
ZSCRNAME = 'TESTJCL'
"VPUT (ZSCRNAME) SHARED"

"LMINIT DATAID(DID) DATASET('"pds.name"') ENQ(SHRW)"
"LMOPEN DATAID("DID")"
"MEMLIST DATAID("DID") CONFIRM(YES)"
"LMFREE DATAID("DID")"

Thanks for sharing. icon_smile.gif
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 CA Sysview - JCL or Rexx - Read or Ex... Jasi CA Products 4 Wed Aug 05, 2020 9:19 pm
No new posts Am Getting a vertical line in ISPF SC... Himansu22 TSO/ISPF 3 Fri Jul 31, 2020 11:58 pm
This topic is locked: you cannot edit posts or make replies. Invoke REXX thru JCL to expand the co... spizen556 CLIST & REXX 2 Sun Jul 26, 2020 3:53 pm
No new posts Unable to scroll in REXX panel KeshavKunal CLIST & REXX 4 Tue Jul 21, 2020 3:55 pm
No new posts REXX tool to extract all files starti... KeshavKunal CLIST & REXX 4 Tue Jul 21, 2020 3:43 pm

Facebook
Back to Top
 
Job Vacancies | Forum Rules | Bookmarks | Subscriptions | FAQ | Polls | Contact Us