Results 1 to 9 of 9
  1. #1
    Join Date
    Feb 2004
    Location
    Wiessrussland
    Posts
    10

    Unanswered: What program to use for bind pland (MVS)?

    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/

  2. #2
    Join Date
    Nov 2003
    Location
    Germany
    Posts
    62
    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

  3. #3
    Join Date
    Aug 2001
    Location
    UK
    Posts
    4,650
    Not too very sure ... But doesn't your DB2I panels help you ?

    Cheers
    Sathyaram
    Visit the new-look IDUG Website , register to gain access to the excellent content.

  4. #4
    Join Date
    Mar 2004
    Location
    Germany
    Posts
    15

    Re: What program to use for bind pland (MVS)?

    Originally posted by DAINOVA
    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/

    Walter is 100% right!

  5. #5
    Join Date
    Feb 2004
    Location
    Wiessrussland
    Posts
    10
    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

  6. #6
    Join Date
    Nov 2003
    Location
    Germany
    Posts
    62
    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.

  7. #7
    Join Date
    Feb 2004
    Location
    Wiessrussland
    Posts
    10

    follow up

    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

  8. #8
    Join Date
    Nov 2003
    Location
    Germany
    Posts
    62
    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

  9. #9
    Join Date
    Feb 2004
    Location
    Wiessrussland
    Posts
    10

    Thanks

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

Posting Permissions

  • You may not post new threads
  • You may not post replies
  • You may not post attachments
  • You may not edit your posts
  •