Naming a newly opened screen using REXX

Ben12345 · New User Joined: 17 Apr 2020 Posts: 2 Location: USA

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.

Pedro · Posted: Fri Apr 17, 2020 9:41 am

Try this

Ben12345 · New User Joined: 17 Apr 2020 Posts: 2 Location: USA

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.