MVSFORUMS.com :: View topic - SSID in application prog

through

#1: SSID in application prog Author: nagasadhu,

Posted: Wed Apr 25, 2007 12:15 pm
—
Hi

Is there a way to receive the sub-system ID in the application program?

i.e

DSN system(TDB2)
Run program(appl1) plan(appl1) lib(loadlib)
END

I want TDB2 to be available inside my program. Passing it as a PARM is one I thought but any other way of doing it ?

Thanx

PS: I use PL1 (if it matters).

#2: Author: kolusu, Location: San Jose

Posted: Wed Apr 25, 2007 12:42 pm
—
nagasadhu,

Look up "CURRENT SQLID" in the Db2 Sql reference manual

Kolusu

#3: Author: bauer, Location: Germany

Posted: Thu Apr 26, 2007 1:57 am
—
nagasadhu,

try this PL1 solution:

Code:

DCL L_CH16 CHAR(16) AUT0 INIT('');

EXEC SQL
SET :l_CH16 = CURRENT SERVER ;

PUT SKIP EDIT(l_CH16)(A);

regards,
bauer

MVSFORUMS.com -> Database

output generated using printer-friendly topic mod. All times are GMT - 5 Hours

Page 1 of 1