MVSFORUMS.com

[ollo]

Hello,

i want to put the ISPF-Start Rexx to Dataset that is allocated
with SYSEXEC

LOGON EXEC PGM=IKJEFT01,
DYNAMNBR=200,
REGION=0M,
TIME=1440,
PARM='%ISPF'
SYSEXEC DD DISP=SHR,DSN=SYS3.ISPF.REXX
SYSPROC DD DISP=SHR,DSN=SYS3.ISPF.VHVCLIB

In the %ISPF Rexx I want to free the allocation with
FREE FILE(SYSEXEC) and then realloc with

rexxdsn = sysvar(sysuid) !! ".PR.REXX"
"ALLOC DD(SYSEXEC) REUSE SHR DSN('"rexxdsn"'",
" 'SYS3.ISPF.REXX')"

I get the error at the FREE, that the SYSEXEC is already in use.
When i concatinate it in the logon procedure

SYSPROC DD DISP=SHR,DSN=SYS3.ISPF.REXX
DD DISP=SHR,DSN=SYS3.ISPF.VHVCLIB

the free works.

What is my false?

Thx

[Bill Dennis]

So you are executing a REXX (found in the SYSEXEC concatenation) that will FREE the concatenation and reallocate it? Perhaps that is the problem. The concatenation has open datasets?

When you run the REXX from SYSPROC there is no problem, correct?
_________________
Regards,
Bill Dennis

Disclaimer: My comments on this foorum are my own and do not represent the opinions or suggestions of any other person or business entity.

[ollo]

the %ISPF-REXX is the only Member in the pds.

the different is the DD - name of the allocation

don't work:

SYSEXEC DD DISP=SHR,DSN=SYS3.ISPF.REXX

work:

SYSPROC DD DISP=SHR,DSN=SYS3.ISPF.REXX


I think with SYSEXEC, something make an enqueue on the %ISPF REXX, so that it is in use.

But why is there are no enqueue with SYSPROC

[semigeezer]

SYSEXEC is searched before SYSPROC for execs so it may be that SYSEXEC is open because that is where you are running the exec from. You can not free an open ddname.