MVSFORUMS.com

sreeko

Hi,

I need to pass the SYSUID from the jcl to a db2 program.How do i code for that?

Thanks,
Sreekanth

kolusu · Posted: Thu Jul 22, 2004 8:05 am Post subject:

Sreeko,

Please search before posting. This topic has been discussed earlier. Check this topic

http://www.mvsforums.com/helpboards/viewtopic.php?t=2456

Hope this helps...

Cheers

Kolusu
_________________
Kolusu
www.linkedin.com/in/kolusu

sreeko · Posted: Thu Jul 22, 2004 8:09 am Post subject:

I want to pass &SYSUID to the DB2 program, not the hardcoded user id.

Thanks,
Sreekanth

slade · Posted: Thu Jul 22, 2004 10:30 am Post subject:

Hi Sreeko,

You can't pass a symbolic via in-stream data in JCL. You're probably using
SYSTSIN DD *

You can produce the JCL dynamically via a COBOL pgm outputting it to the INTRDR. You can then pass the &sysuid to the COBOL pgm via the PARM field.

Regards, Jack.

superk · Advanced Joined: 19 Dec 2002 Posts: 684 Topics: 5

Why can't the field be passed via the PARM statement??

//STEP1 EXEC PGM=DB2PGM,PARM='&SYSUID'

kolusu · Posted: Thu Jul 22, 2004 1:15 pm Post subject:

superk,

DB2 programs under IKJEFT01. so you need to pass the parameters via SYSTSIN DD statement

Kolusu
_________________
Kolusu
www.linkedin.com/in/kolusu

superk · Advanced Joined: 19 Dec 2002 Posts: 684 Topics: 5

Ahh.

Live and learn!

slade · Posted: Sat Jul 24, 2004 7:08 pm Post subject:

Hi Sreeko,

Looking over my prev post I realize you only have to create the SYSTSIN dataset and pass it to the IKJEFT01 step. No need for INTRDR. E.g.:

//s1 exec pgm=makeSYSTSIN,parm=(&sysuid)
//systsout dd dcn=&sysuid..systsin.cards,disp=(,pass),etc....
//*
//s2 exec pgm=IKJEFT01,...
//systsin dd dsn=*.s1.systsout,disp=(old,delete,delete)
.
.

Regards, Jack.