Dynamically adding Loadlib for the session !!

mjadwani2785 · Posted: Mon Sep 19, 2011 4:13 pm

Hi ,
Following is the code i have written trying to dynamically allocate SDSNLOAD for my session .. I cant find why it is not allowing me to do so. The same task I can do it by TSOLIB .. but I have seen LIBDEF also works but not in my case.
Here is code...

/*rexx */
parse arg db2sid
ds1 ="SYS1.DSN"db2sid".SDSNLOAD"
db2loadlib ="'"ds1"'"
address tso
"alloc fi(trgllib) ds("db2loadlib") shr reuse "
address ispexec
"control errors "
address ispexec
"libdef ispllib library id(trgllib) uncond stack

address tso "SUBCOM DSNREXX"
if rc<>0 then ,
S_RC = RXSUBCOM('ADD','DSNREXX','DSNREXX')
address dsnrexx "CONNECT" db2sid
If rc <> 0 Then Do
Say 'Cannot connect to ' DB2_subsys ' RC=' rc
RC = RXSUBCOM('DELETE','DSNREXX','DSNREXX')
Exit(23)
End
return rc

when it is run it gives me this output (with trace )

9 *-* address tso
10 *-* "alloc fi(trgllib) ds("db2loadlib") shr reuse "
>L> "alloc fi(trgllib) ds("
>V> "'SYS1.DSNDB2V.SDSNLOAD'"
>O> "alloc fi(trgllib) ds('SYS1.DSNDB2V.SDSNLOAD'"
>L> ") shr reuse "
>O> "alloc fi(trgllib) ds('SYS1.DSNDB2V.SDSNLOAD') shr reuse "
11 *-* address ispexec
12 *-* "control errors "
>L> "control errors "
13 *-* address ispexec
14 *-* "libdef ispllib library id(trgllib) uncond stack" /*8"db2loadlib") "
*/
>L> "libdef ispllib library id(trgllib) uncond stack"
16 *-* address tso "SUBCOM DSNREXX"
>L> "SUBCOM DSNREXX"
+++ RC(1) +++
17 *-* if rc<>0
>V> "1"
>L> "0"
>O> "1"
*-* then ,
18 *-* S_RC = RXSUBCOM('ADD','DSNREXX','DSNREXX')
>L> "ADD"
>L> "DSNREXX"
>L> "DSNREXX"
CSV003I REQUESTED MODULE DSNTZANB NOT FOUND
CSV028I ABEND806-04 JOBNAME=D05922E STEPNAME=IKJACCNT
IRX0250E System abend code 806, reason code 00000004.
IRX0253E Abend in external function RXSUBCOM.

What can be the problem. Load module is there in the dataset .

Pedro replied "Libdef doesnot work for rexx process " .. but the other day i have seen libdef working with CLIST ...

what can be the alternative for TSOLIB .. I want to add this load dataset dynamically . Linklist addition of DB2 load lib is not allowed at my site.

Please Help . !!

enrico-sorichetti · Posted: Mon Sep 19, 2011 4:30 pm

for the umpteen time... LIBDEF works for ISPF <controlled> <loads>

ISPF uses <directed loads> , it means that whn doing the bldl mumbo-jumbo
for something it check the LIBDEF chain/stack to determine the DDNAME to use

Address TSO uses only the standard library search so it knows nothing about the libdefs

if You want more flexibility than TSOLIB provides, <You> should install one of the many flavors of dynamic steplib available free
at Use [URL] BBCode for External Links or for a charge
remeber installing software requires proper management agreement/permission
it' s a pity that installing free software is quite often frowned upon !

dick scherrer · Posted: Mon Sep 19, 2011 8:21 pm

Hello,

Please keep in mind that posting the same question multiple times is the easiest way to lose posting privileges. . .

d

mjadwani2785 · Posted: Mon Sep 19, 2011 11:14 pm

Hi Dick,

I apologize for multiple postings, I thought that one is old post so chances of getting a reply on that one is very less.

Will not repeat that in future. I myself a regular visitor of this this site and losing a posting right here is just like getting being banned from facebook and I am sure nobody can think of that.

I will stop posting here and will continue with my old post .

Thanks.

Pedro · Posted: Mon Sep 19, 2011 11:26 pm

I am not sure this will work, but try a two exec approach:

1. first exec does the LIBDEF
2. first exec does Address ISPEXEC "SELECT CMD(%second_exec parms) PASSLIB"
3. second exec does the work you want to do.

In ISPF Services Guide", see the description for LIBDEF, which includes a section titled 'User link libraries'. It mentions:

Nic Clouston · Posted: Mon Sep 19, 2011 11:44 pm

And you have not checked the return codes from your ALLOCs

mjadwani2785 · Posted: Tue Sep 20, 2011 12:00 am

Hi Nic,

I just verified my return codes from the alloc .. they all are fine rc =0 even I checked the allocation of sdsnload to my ispf session with the ddname of trgllib .

I even tried Pedro suggestion "select pgm(dsnrexx) " still it says 806-04 .

How can libdef work for clist and loadlibs can be dynamically allocated and not for rexx ?

Will try to explore more .

enrico-sorichetti · Posted: Tue Sep 20, 2011 12:22 am

Pedro · Posted: Tue Sep 20, 2011 1:26 am

mjadwani2785 · Posted: Tue Sep 20, 2011 1:29 am

Just tried this sample code.. and according to dynamic allocation of libdef works

ds1 ="SYS1.DSNDB2V.SDSNLOAD"
db2loadlib="'"ds1"'"
address tso
"alloc fi(trgllib) ds("db2loadlib") shr reuse"
address ispexec
"libdef ispllib library id(trgllib) uncond stack"
address ispexec "select cmd(dsn) "

now jst to think how to bring rxsubcom and dsnrexx accordingly

mjadwani2785 · Posted: Tue Sep 20, 2011 1:36 am

Thanks Pedro .. in a rush I wrote pgm... cmd works...

Nic Clouston · Posted: Tue Sep 20, 2011 10:26 am

As the DB2 libraries need to use DB2 via Rexx should already be available to you why are you doing this? Read the Rexx section of the DB2 Application Programming and SQL Guide.