Smart questions
Smart answers
Smart people
INTELLIGENT WORK FORUMS
FOR COMPUTER PROFESSIONALS

Member Login




Remember Me
Forgot Password?
Join Us!

Come Join Us!

Are you a
Computer / IT professional?
Join Tek-Tips now!
  • Talk With Other Members
  • Be Notified Of Responses
    To Your Posts
  • Keyword Search
  • One-Click Access To Your
    Favorite Forums
  • Automated Signatures
    On Your Posts
  • Best Of All, It's Free!

Join Tek-Tips
*Tek-Tips's functionality depends on members receiving e-mail. By joining you are opting in to receive e-mail.

Donate Today!

Do you enjoy these
technical forums?
Donate Today! Click Here

Posting Guidelines

Promoting, selling, recruiting, coursework and thesis posting is forbidden.
Jobs from Indeed

Link To This Forum!

Partner Button
Add Stickiness To Your Site By Linking To This Professionally Managed Technical Forum.
Just copy and paste the
code below into your site.

Concatenate to ISPLLIB ?

tcurrier (Programmer) (OP)
23 May 06 10:55
In a Rexx exec, I am trying to concatenate 2 private libraries to ISPLLIB as follows:

CODE

ADDRESS TSO "ALLOC FI(MYLIB1) SHR DA('H2501S.T.DYNAMIC.LIBZ00')"
IF RC = 0 THEN CONCAT ISPLLIB MYLIB1                            
ADDRESS TSO "ALLOC FI(MYLIB2) SHR DA('H2501S.T.DYNAMIC.LIBZ01')"
IF RC = 0 THEN CONCAT ISPLLIB MYLIB2
                            

I'm getting an error:

CONCAT- SPECIFIED DDNAME(S) ALREADY "OPEN"

Not sure if this belong in the 'Rexx' forum, but ... Thanks...
rexxhead (Programmer)
24 May 06 9:45
Not exactly REXX, but I don't believe there's an ISPF forum....

The error is because when ISPF starts, it OPENs all the ISPxLIB files.  You can't concatenate to an already-open file.  Not even CONCAT can do it.

Instead, you should LIBDEF:

CODE

address ISPEXEC "LIBDEF ISPPLIB DATASET ID('H2501S.T.DYNAMIC.LIBZ00') STACK"

This layers the datasets specified in "ID" above the current ISPLLIB.  When you're finished using them,

CODE

address ISPEXEC "LIBDEF ISPPLIB"
and they evaporate.

Frank Clarke
Tampa Area REXX Programmers' Alliance
REXX Language Assn Listmaster

tcurrier (Programmer) (OP)
24 May 06 14:10
Thanks... using your method, I wasn't able to get it to work, though:

"ISPEXEC LIBDEF ISPLLIB DATASET ID('H2501S.T.DYNAMIC.LIBZ00') STACK"
"ISPEXEC LIBDEF ISPLLIB DATASET ID('H2501S.T.DYNAMIC.LIBZ01') STACK"
 
"ISPEXEC SELECT CMD(H2545Z00)"
IKJ56500I COMMAND H2545Z00 NOT FOUND

ADDRESS LINKPGM 'H2545Z00'
+++ RC(-3) +++

"ISPEXEC SELECT PGM(H2545Z00)"
Link to 'H2545Z00' failed, abend code = x'00000806'.
-------------------------------------------------------------                      
"ISPEXEC LIBDEF ISPLLIB DATASET                            
   ID('H2501S.T.DYNAMIC.LIBZ00','H2501S.T.DYNAMIC.LIBZ01')"

"ISPEXEC SELECT PGM(H2545Z00)"
CEE3501S The module H2545Z01 was not found.
------------------------------------------------------------
"ISPEXEC LIBDEF ISPLLIB DATASET                            
   ID('H2501S.T.DYNAMIC.LIBZ00','H2501S.T.DYNAMIC.LIBZ01')"

ADDRESS LINKPGM 'H2545Z00'
CEE3501S The module H2545Z01 was not found.
-------------------------------------------------------------
THIS IS THE ONLY WAY I COULD GET IT TO WORK :

"ISPEXEC LIBDEF ISPLLIB DATASET                            
   ID('H2501S.T.DYNAMIC.LIBZ00','H2501S.T.DYNAMIC.LIBZ01')"
    
"ISPEXEC SELECT CMD(H2545Z00)"

*** NOW IN H2545Z00 ***
*** NOW IN H2545Z01 ***


--------------------------------------------------------------
kevinf2349 (TechnicalUser)
24 May 06 14:24
Thats because in the initial attempt you effectively caused the first LIBDEF to be thrown aside for the second one.

The way you eventually got it to work is the correct method.
rexxhead (Programmer)
25 May 06 10:50

He STACKed the LIBDEFs, so he actually has all of them available.  Notice that he also switched to "SELECT CMD(" as Doug Nadel advised him to do over on MVSHELP.  I think that was "the answer".

Frank Clarke
Tampa Area REXX Programmers' Alliance
REXX Language Assn Listmaster

kevinf2349 (TechnicalUser)
25 May 06 13:19
Whoops...my bad... I completely missed the STACK.

Reply To This Thread

Posting in the Tek-Tips forums is a member-only feature.

Click Here to join Tek-Tips and talk with other members!

Back To Forum

Close Box

Join Tek-Tips® Today!

Join your peers on the Internet's largest technical computer professional community.
It's easy to join and it's free.

Here's Why Members Love Tek-Tips Forums:

Register now while it's still free!

Already a member? Close this window and log in.

Join Us             Close