twissi
Active User
Joined: 01 Aug 2005
Posts: 105
Location: Somerset, NJ
|
|
|
|
Hello Friends,
Can any one give me the syntax for binding a COBOL program to an UDB. I'm provided with only the database name and the server name. The UDB is on a UNIX server
Thanks in advance,
Cheers, Twissi. |
|
twissi
Active User
Joined: 01 Aug 2005
Posts: 105
Location: Somerset, NJ
|
|
|
|
Hello all,
I found it myself !!
You need to have a PACKAGE-PLAN bind, here is the syntax:
//*
//* PACKAGE BIND
//*
//DB2BIND1 EXEC PGM=IKJEFT01,DYNAMNBR=40
//STEPLIB DD DSN=SYS1.DSNDSNC.SDSNLOAD,DISP=SHR
//SYSPRINT DD SYSOUT=*
//SYSTSPRT DD SYSOUT=*
//DBRMLIB DD DISP=SHR,DSN= ----------------> your DBRMLIB
//SYSIN DD DUMMY
//SYSTSIN DD *
DSN SYSTEM (DSNC)
BIND PACKAGE (XXXXXX.CCSPACK) -
MEMBER (PGM) -
OWNER (CCSUPDT) -
ACTION (REPLACE) -
VALIDATE (BIND) -
ISOLATION (CS) -
CURRENTDATA (NO) -
DEGREE (ANY) -
RELEASE (COMMIT) -
EXPLAIN (NO)
END
/*
//*
//* PLAN BIND
//*
//DB2BIND2 EXEC PGM=IKJEFT01,DYNAMNBR=40,COND=(0,NE)
//STEPLIB DD DSN=SYS1.DSNDSNC.SDSNLOAD,DISP=SHR
//SYSPRINT DD SYSOUT=*
//SYSTSPRT DD SYSOUT=*
//SYSIN DD DUMMY
//SYSTSIN DD *
DSN SYSTEM (DSNC)
BIND PLAN (PLANNAME) - ---------------------> Your PLAN NAME
PKLIST (XXXXXX.CCSPACK.*) - XXXXXX = your database name on UDB
ACTION (REPLACE) -
RETAIN -
ISOLATION (CS) -
CURRENTSERVER(SERVERNM) - --------------> your servername
CURRENTDATA (NO)
END
/* |
|
