Greetings all!
I'm on mainframe.
I did bind 2 dbrm into pklist OK, but has a problem how to compose JCL to bind those 2 pklists to single plan. Do i need tu use separte step with PGM=IKJEFT01,

or I can imbed this with with:
//BINDPKG.SYSTSIN DD * or
//BINDPLN.SYSTSIN DD *

under my last compile step (EXEC CBTDB2CI).

Thanks
Dai
/I'm compiling CICS-DB2 pgms/

Hi

> Do i need tu use separte step with PGM=IKJEFT01

No

You can use one input dataset, first you bind your packages and then you bind your plan:

//SYSTSIN DD *
BIND PACKAGE ...
BIND PACKAGE ...
BIND PLAN ... PKLIST (Collection.package1, Collection.package2) ...

For more information you can look into DB2 Command Reference

Not too very sure ... But doesn't your DB2I panels help you ?

Cheers
Sathyaram

Walter is 100% right!

Good eveinig,
THanks Walter and everybody.

Still..
I have JCL like:

//STEP010 EXEC CBTDB2CI, ############## 1
// …………………………..
// MEM='PGM1200'
//BINDPKG.SYSTSIN DD *
DSN SYSTEM(DL50)
BIND PKLIST(CLL_CICS_CLL.PGM1200) -
……….
//*
//STEP020 EXEC CBTDB2CI, ############## 2
// …………..………………..
// MEM='PGM1790'
//BINDPKG.SYSTSIN DD *
DSN SYSTEM(DL50)
BIND PKLIST(SSM_CICS_SMM.PGM1790) –
…….

I can not BIND PKLIST for 2 pgms in 1 step, moreover each pgm using different DB (CLL vs SSM). And I played with it. DB2 command reference is nice but for on pgm.
If I don't to BIND it will not compiled OK. Can I put BIND PLAN to last step ??

Thanks/Danke
D

Hi

I don't know, what's your JCL is all about. What does the procedure CBTDB2CI do? Does it call IKJEFT01 (BTW better would be IKJEFT1B)?

You have to bind your packages and plans in 1 step and then execute them in a second step.

My grand idea is: I have 2 DB (in one DSN System) and I need to make 2 CICS-DB2 pgms that interact with each other (thru LINK) bind into one plan to avoid SQLCODE= –805. So far I can successfully compile/BIND package for each of program in separate steps (CBTDB2CIC is our CICS-DB2 compiler procedure), but still can’t bind those packs into one plan. My syntax is all below:

//STEP010 EXEC CBTDB2CI,
// COPYLIB1='DEV.PROD.COPYLIB',
// DBRMLIB='DEV.TEST.DBRMLIB',
// LOADLIB='DEV.TESTCICS..LOADLIB',
// SRCLIB='$CUST.A.SOURCE',
// MEMBER=’PGM1’
//BINDPKG.SYSTSIN DD *
DSN SYSTEM(DL50)
BIND PACKAGE(A10_CICS_A10) MEMBER(PGM1) -
ACTION(REPLACE) QUALIFIER(A10) OWNER(BIL) ISOLATION(CS) -
EXPLAIN(NO) RELEASE(COMMIT) VALIDATE(BIND)
END ……….
//*
//STEP020 EXEC CBTDB2CI,
// COPYLIB1='DEV.PROD.COPYLIB',
// DBRMLIB='DEV.TEST.DBRMLIB',
// LOADLIB='DEV.TESTCICS.LOADLIB',
// SRCLIB='$CUST.A.SOURCE',
// MEMBER=’PGM222’
//BINDPKG.SYSTSIN DD *
DSN SYSTEM(DL50)
BIND PACKAGE(B222_CICS_B222) MEMBER(PGM222) -
ACTION(REPLACE) QUALIFIER(B222) OWNER(BIL) ISOLATION(CS) -
EXPLAIN(NO) RELEASE(COMMIT) VALIDATE(BIND)
END
//*
//STEP030 EXEC PGM=IKJEFT1B
// DBRMLIB='DEV.TEST.DBRMLIB',
//SYSTSIN DD *
DSN SYSTEM(DL50)
BIND PLAN(RCTCICS) MEMBER(PGM1,PGM222) ???
EXPLAIN(NO) RELEASE(COMMIT) VALIDATE(BIND)
END
/*


Tx
Dai

Hi

//STEP030 EXEC PGM=IKJEFT1B
//* DBRMLIB='DEV.TEST.DBRMLIB', <-- you need no DBRMLIB
//SYSTSIN DD *
DSN SYSTEM(DL50)
BIND PLAN(RCTCICS) PKLIST(A10_CICS_A10.PGM1,B222_CICS_B222.PGM222) <----
EXPLAIN(NO) RELEASE(COMMIT) VALIDATE(BIND)
END
/*

HTH

Ich kann Bier am Wochenende jetzt trinken
Thanks a lot/Danke