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
 

 

COBOL Dynamic subroutines in ISPLLIB for REXX execution

 
Post new topic   Reply to topic    IBMMAINFRAMES.com Support Forums -> TSO/ISPF
View previous topic :: :: View next topic  
Author Message
Captain Paralytic
Warnings : 1

New User


Joined: 21 Apr 2010
Posts: 40
Location: UK

PostPosted: Wed Dec 21, 2011 5:22 pm    Post subject: COBOL Dynamic subroutines in ISPLLIB for REXX execution
Reply with quote

This is quite a deep situation so I hope I manage to explain it correctly.

I have a COBOL program which normally runs in batch under JCL. Let's call it MAINPROG.
Now MAINPROG calls a dynamic subroutine RNCAL which in turns calls the dynamic subroutine POSTB.
MAINPROG also calls POSTB directly.

In the JCL the STEPLIB contains the library PRDQ.B.LOADLIB which contains MAINPROG and it also contains PROD.B.LOADLIB which contains RNCAL and POSTB.

In my REXX program, I allocate all the files required by MAINPROG, POSTB & RNCAL and then call MAINPROG thus:
"CALL 'PRDQ.B.LOADLIB(MAINPROG)'"
This fails because it cannot find RNCAL and POSTB, which I would expect.
If I copy RNCAL and POSTB to a library that is already in my ISPLLIB concatenation, all is well.

However, what I would rather do is to temporarily add the PROD.B.LOADLIB library to my ISPLLIB so that I always pick up the current versions of POSTB & RNCAL.

My reading of the subject seems to suggest that invoking:
address ISPEXEC "LIBDEF ISPLLIB EXCLDATA ID('PROD.B.LOADLIB')"
should achieve what I require, but MAINPROG still complains that it cannot find the dynamic subroutines.

I know that the LIBDEF call is doing something because if I change it to:
address ISPEXEC "LIBDEF ISPLLIB EXCLDATA ID('PRDQ.B.LOADLIB','PROD.B.LOADLIB')"
then I can change the call to:
CALL MAINPROG
and MAINPROG is found, but the execution still fails to fine the subroutines.
Does anyone here have any idea as to what magic words I need to chant to achieve my aim?

TIA
Back to top
View user's profile Send private message

enrico-sorichetti

Global Moderator


Joined: 14 Mar 2007
Posts: 10202
Location: italy

PostPosted: Wed Dec 21, 2011 6:21 pm    Post subject: Reply to: COBOL Dynamic subroutines in ISPLLIB for REXX exec
Reply with quote

IIRC
the ISPLLIB ddname is allocated as a TASKLIB at ISPF startup
so a <system> BLDL/LOAD/LINK will find the <called> thing at any time

for the subsequent LIBDEFS an ISPxxxxx DDNAME is allocated and ISPF will issue a <directed> BLDL/LOAD/LINK,
( ISPF keeps track of the LIBDEF stack, so it knows the sequence of DDNAMES to use )
but that is done ONLY for modules called thru ISPF services.

try to split the screen an issue a TSO ISRDDN

as I said IIRC, but it much agrees with what You see
Back to top
View user's profile Send private message
don.leahy

Active Member


Joined: 06 Jul 2010
Posts: 641
Location: Whitby, ON, Canada

PostPosted: Wed Dec 21, 2011 6:52 pm    Post subject:
Reply with quote

Have you tried ISPEXEC "SELECT PGM(MAINPROG)" ?
Back to top
View user's profile Send private message
Captain Paralytic
Warnings : 1

New User


Joined: 21 Apr 2010
Posts: 40
Location: UK

PostPosted: Wed Dec 21, 2011 7:58 pm    Post subject:
Reply with quote

don.leahy wrote:
Have you tried ISPEXEC "SELECT PGM(MAINPROG)" ?

Yes I had tried that, but hadn't mentioned it in this post. Somewhere I had read something that "seemed" to suggest that the LIBDEF only affected programs called by the SELECT statement, but this was belied by the fact that both a TSO and a REXX call would happily invoke the main program from a LIBDEFed library, just not the dynamic subroutines.

Anyway the result of using ISPEXEC "SELECT PGM(MAINPROG)", is the same failure as before:

CEE3501S The module POSTB was not found.

plus the ISPF processor crashing.
Back to top
View user's profile Send private message
Captain Paralytic
Warnings : 1

New User


Joined: 21 Apr 2010
Posts: 40
Location: UK

PostPosted: Wed Dec 21, 2011 8:03 pm    Post subject: Re: Reply to: COBOL Dynamic subroutines in ISPLLIB for REXX
Reply with quote

enrico-sorichetti wrote:
IIRC
for the subsequent LIBDEFS an ISPxxxxx DDNAME is allocated and ISPF will issue a <directed> BLDL/LOAD/LINK,
( ISPF keeps track of the LIBDEF stack, so it knows the sequence of DDNAMES to use )
but that is done ONLY for modules called thru ISPF services.

The calling of the main module seems to work even when I do
adddress TSO CALL ....
so I guess this is still considered to be under ISPF services?
enrico-sorichetti wrote:

try to split the screen an issue a TSO ISRDDN

Well I tend to use DDLIST (which is the ISPF command to invoke ISRDDN), but I'm not sure what you are expecting me to see, nor why splitting the screen before issuing it is relevant?
I never see LIBDEFed libraries in DDLIST.
Back to top
View user's profile Send private message
Captain Paralytic
Warnings : 1

New User


Joined: 21 Apr 2010
Posts: 40
Location: UK

PostPosted: Wed Dec 21, 2011 8:13 pm    Post subject:
Reply with quote

Interestingly, the table of search sequence in the ISPF Services Guide (SC34-4819) suggests that coding EXCLDATA instead of DATASET in the LIBDEF command, prevents the existing ISPLLIB from being searched, even though in practice it obviously is.
Back to top
View user's profile Send private message
don.leahy

Active Member


Joined: 06 Jul 2010
Posts: 641
Location: Whitby, ON, Canada

PostPosted: Wed Dec 21, 2011 11:39 pm    Post subject: Re: Reply to: COBOL Dynamic subroutines in ISPLLIB for REXX
Reply with quote

Captain Paralytic wrote:

I never see LIBDEFed libraries in DDLIST.


Are you sure about that? They should be visible under a generated ddname (i.e. they are not listed under ISPLLIB)

When you tried SELECT PGM(MAINPROG), what was LIBDEF'd to your ISPLLIB?
Back to top
View user's profile Send private message
enrico-sorichetti

Global Moderator


Joined: 14 Mar 2007
Posts: 10202
Location: italy

PostPosted: Thu Dec 22, 2011 6:38 am    Post subject: Reply to: COBOL Dynamic subroutines in ISPLLIB for REXX exec
Reply with quote

Quote:
but I'm not sure what you are expecting me to see,

to understand under what ddname the LIBDEFFED dataset is allocated

Quote:
nor why splitting the screen before issuing it is relevant?

it is relevant to see the allocation during the execution of the <mother> dialog
You might be able to do it from the <current> screen only at the end of the dialog, when the libdefs have been cleared

Quote:

I never see LIBDEFed libraries in DDLIST.

You might have issued the ddlist command only at the end of the dialog, when the libdefs have been cleared
Back to top
View user's profile Send private message
Pedro

Senior Member


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

PostPosted: Wed Jan 04, 2012 4:11 am    Post subject: Reply to: COBOL Dynamic subroutines in ISPLLIB for REXX exec
Reply with quote

Try using CMD instead of PGM. Yes, there is a difference.
Code:
SELECT CMD(MAINPROG)


Differences:
1. The parameter list to MAINPROG is different. You might be able to ignore in MAINPROG if you do not do anything with the parameter list.

2. From ISPF Services manual:
"The command processor (a program coded to support a unique argument list format) can then use MVS contents supervision macros such as ATTACH, LINK, LOAD, or XCTL. This is because ISPF attaches MYCMD as a subtask to ISPF. The load library, defined using LIBDEF ISPLLIB, is passed as a task library to the subtask."

I assume COBOL uses LINK, LOAD, or ATTACH.
Back to top
View user's profile Send private message
Pedro

Senior Member


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

PostPosted: Wed Jan 04, 2012 4:18 am    Post subject: Reply to: COBOL Dynamic subroutines in ISPLLIB for REXX exec
Reply with quote

I did not notice this at first reading:
Quote:
In the JCL the STEPLIB contains the library PRDQ.B.LOADLIB which contains MAINPROG and it also contains PROD.B.LOADLIB which contains RNCAL and POSTB.
...
This fails because it cannot find RNCAL and POSTB, which I would expect.

I would have expected the members to be found from STEPLIB. Perhaps there is some COBOL thing going on that I am not familiar with. It should work with LINK or LOAD.
Back to top
View user's profile Send private message
Captain Paralytic
Warnings : 1

New User


Joined: 21 Apr 2010
Posts: 40
Location: UK

PostPosted: Wed Jan 04, 2012 3:28 pm    Post subject: Re: Reply to: COBOL Dynamic subroutines in ISPLLIB for REXX
Reply with quote

Pedro wrote:
I did not notice this at first reading:
Quote:
In the JCL the STEPLIB contains the library PRDQ.B.LOADLIB which contains MAINPROG and it also contains PROD.B.LOADLIB which contains RNCAL and POSTB.
...
This fails because it cannot find RNCAL and POSTB, which I would expect.

I would have expected the members to be found from STEPLIB. Perhaps there is some COBOL thing going on that I am not familiar with. It should work with LINK or LOAD.


There members ARE found in STEPLIB. You have taken one sentence from my description of when it works (in JCL) and one from where it doesn't work (under ISPF in the FOREGROUND) and put them together.

If run in JCL where I can specify a STEPLIB, it works fine.

If run in the FOREGROUND under ISPF, if the library containing POSTB & RNCAL is concatenated to ISPLLIB, it works fine.

If run in the FOREGROUND under ISPF, if the library containing POSTB & RNCAL is LIBDEFed to ISPLLIB, it fails. It will find MAINPROG in a LIBDEFed library but not the dynamic subroutines.
Back to top
View user's profile Send private message
enrico-sorichetti

Global Moderator


Joined: 14 Mar 2007
Posts: 10202
Location: italy

PostPosted: Wed Jan 04, 2012 3:54 pm    Post subject: Reply to: COBOL Dynamic subroutines in ISPLLIB for REXX exec
Reply with quote

Quote:
If run in the FOREGROUND under ISPF, if the library containing POSTB & RNCAL is LIBDEFed to ISPLLIB, it fails. It will find MAINPROG in a LIBDEFed library but not the dynamic subroutines.


because as I said before

Quote:
for the subsequent LIBDEFS an ISPxxxxx DDNAME is allocated and ISPF will issue a <directed> BLDL/LOAD/LINK,
( ISPF keeps track of the LIBDEF stack, so it knows the sequence of DDNAMES to use )
but that is done ONLY for modules called thru ISPF services.


in other words a LIBDEF DOES NOT concatenate the <library> to the original DDNAME

I will not waste time run testing it for ISPLLIB , tested it for the ISPPLIB
just showing the allocations ..
here it is

the REXX script ( the relevant part )
Code:

 000014 panels = "ENRICO.ISPF.PANELS.LIBDEFFD"                                 
 000015 zrc = $ispex("LIBDEF ISPPLIB DATASET ID('"panels"') STACK")             
 000016 If  zrc ¬= 0 then do                                                   
 000017     exit 4                                                             
 000018 end                                                                     
 000019 load   = "ENRICO.ISPF.LOAD.LIBDEFFD"                                   
 000020 zrc = $ispex("LIBDEF ISPLLIB DATASET ID('"load"') STACK")               
 000021 If  zrc ¬= 0 then do                                                   
 000022     exit 4                                                             
 000023 end                                                                     
 000024 zrc = $ispex("DISPLAY PANEL(ZLIBD1)")                                   
 000025 zrc = $ispex("LIBDEF ISPLLIB")                                         
 000026 zrc = $ispex("LIBDEF ISPPLIB")                                                                                             


the panel is irrelevant ( needed to wait for an enter )

the isrddn on the split screen
Code:

                      >    ISPLLIB                                             
  ZARES1   SHR,KEEP   >             DIT130.SDITMOD1                             
  ZARES2   SHR,KEEP   >             FMN810.SFMNMOD1                             
  ZARES2   SHR,KEEP   >             IGY410.SIGYCOMP                             
...
                      >    ISPPLIB                                             
  STOR04   SHR,KEEP   >             ENRICO.ISPF.PANELS                                                     
  ZARES2   SHR,KEEP   >             ISP.SISPPENU                               
  ZARES2   SHR,KEEP   >             ISF.SISFPLIB                               
  ZARES1   SHR,KEEP   >             FAN140.SFANPENU                             
  ZARES2   SHR,KEEP   >             FMN810.SFMNPENU                             
.....
  STOR02   SHR,KEEP   >    ISP11971 ENRICO.ISPF.PANELS.LIBDEFFD
  STOR01   SHR,KEEP   >    ISP12005 ENRICO.ISPF.LOAD.LIBDEFFD                   
Back to top
View user's profile Send private message
Captain Paralytic
Warnings : 1

New User


Joined: 21 Apr 2010
Posts: 40
Location: UK

PostPosted: Wed Jan 04, 2012 4:00 pm    Post subject: Re: Reply to: COBOL Dynamic subroutines in ISPLLIB for REXX
Reply with quote

enrico-sorichetti wrote:

in other words a LIBDEF DOES NOT concatenate the <library> to the original DDNAME


Enrico I already know why it doesn't work. If you read my OP you will see that my request was:
Does anyone here have any idea as to what magic words I need to chant to achieve my aim?

I was asking how to achieve my aim. I was not asking for further explanations of how what I was already doing was not working.
Back to top
View user's profile Send private message
enrico-sorichetti

Global Moderator


Joined: 14 Mar 2007
Posts: 10202
Location: italy

PostPosted: Wed Jan 04, 2012 4:11 pm    Post subject: Reply to: COBOL Dynamic subroutines in ISPLLIB for REXX exec
Reply with quote

Quote:
I was asking how to achieve my aim. I was not asking for further explanations of how what I was already doing was not working.


my reply was also an explanation about You asking why split to see the the allocations

anyway the answer is very simple ...
You cannot do it from COBOL

You can do it from from assembler
1) scanning the allocated ddnames ( ISP.... ) for the requested dsname , or,
2) instead of using LIBDEF allocate a known DDNAME
and issue a <directed> LOAD/CALL Yourself
Back to top
View user's profile Send private message
Pedro

Senior Member


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

PostPosted: Wed Jan 04, 2012 8:32 pm    Post subject: Reply to: COBOL Dynamic subroutines in ISPLLIB for REXX exec
Reply with quote

You must not have read my earlier post:

Quote:
Try using CMD instead of PGM. Yes, there is a difference.
Code:
SELECT CMD(MAINPROG)
Back to top
View user's profile Send private message
Captain Paralytic
Warnings : 1

New User


Joined: 21 Apr 2010
Posts: 40
Location: UK

PostPosted: Wed Jan 04, 2012 8:53 pm    Post subject: Re: Reply to: COBOL Dynamic subroutines in ISPLLIB for REXX
Reply with quote

Pedro wrote:
You must not have read my earlier post:

Quote:
Try using CMD instead of PGM. Yes, there is a difference.
Code:
SELECT CMD(MAINPROG)


Hello Pedro,

Yes, you are right that I missed it and yes, you are right that it works!

Do you know in what document the differences between the 2 are discussed? I tried looking in the ISPF Services Guide, but I cannot find those 2 parameters described?
Back to top
View user's profile Send private message
dbzTHEdinosauer

Global Moderator


Joined: 20 Oct 2006
Posts: 6966
Location: porcelain throne

PostPosted: Wed Jan 04, 2012 10:14 pm    Post subject:
Reply with quote

ISPEXEC--SELECT
Back to top
View user's profile Send private message
enrico-sorichetti

Global Moderator


Joined: 14 Mar 2007
Posts: 10202
Location: italy

PostPosted: Wed Jan 04, 2012 10:27 pm    Post subject: Reply to: COBOL Dynamic subroutines in ISPLLIB for REXX exec
Reply with quote

a very simple googling with ispf difference cmd pgm
returned
http://www.google.com/url?sa=t&rct=j&q=ispf%20difference%20cmd%20pgm&source=web&cd=3&ved=0CC0QFjAC&url=http%3A%2F%2Fshare.confex.com%2Fshare%2F115%2Fwebprogram%2FHandout%2FSession7471%2Fs7471pv%2520-%2520ISPF%2520Behind%2520the%2520Scenes.pdf&ei=14IET62pKdCM4gSHwuQe&usg=AFQjCNGwHvwwxl9jwMEFUckEQ_3hzrJySw

where everything is explained very clearly

for some reason ( which I do not care to investigate ) the PDF document is downloaded instead of being opened by the browser.
Back to top
View user's profile Send private message
Pedro

Senior Member


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

PostPosted: Thu Jan 05, 2012 3:37 am    Post subject: Reply to: COBOL Dynamic subroutines in ISPLLIB for REXX exec
Reply with quote

The issue about ATTACH, LINK, LOAD is described in the ISPF Services Guide manual.

Under LIBDEF, there is a section for Usage Notes, with a section for 'User Link Libraries'.
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 -> TSO/ISPF All times are GMT + 6 Hours
Page 1 of 1

 

Search our Forum:

Similar Topics
Topic Author Forum Replies Posted
No new posts What is the command to check MODE of ... rohanthengal CLIST & REXX 6 Fri Nov 18, 2016 1:48 pm
This topic is locked: you cannot edit posts or make replies. RANDOM Function in COBOL swapnil781 COBOL Programming 2 Tue Nov 15, 2016 6:17 pm
No new posts Regarding COBOL Stored Procedure opti... selvamsrinivasan85 DB2 4 Fri Nov 04, 2016 8:57 pm
No new posts COBOL Version 6.1 Virendra Shambharkar COBOL Programming 5 Tue Nov 01, 2016 11:24 am
No new posts Cobol list of programs being called biswajit.dattagupta COBOL Programming 5 Tue Nov 01, 2016 2:10 am


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