DSNTEJ64

//*********************************************************************
//*  Name = DSNTEJ64
//*
//*  Descriptive Name =
//*    DB2 Sample Application
//*    Phase 6
//*    Sample Caller for sample SQL Procedure DSN8ES1
//*    C Language
//*
//*    LICENSED MATERIALS - PROPERTY OF IBM
//*    5650-DB2
//*    (C) COPYRIGHT 1982, 2016 IBM CORP.  ALL RIGHTS RESERVED.
//*
//*    Status = VERSION 12
//*
//*  Function =
//*    This JCL prepares and executes DSN8ED3, a sample caller for the
//*    sample SQL procedure DSN8ES1.  DSN8ED3 passes a sample
//*    department number to DSN8ES1, then processes what is returned:
//*    - Parameters containing:
//*      - The total earnings (salaries and bonuses) of employees in
//*        that department
//*      - The number of employees who got a bonus
//*    - A result set containing a row of data (serial no, first and
//*      last name, salary, and bonus) for each employee who got a
//*      bonus
//*
//*  Pseudocode =
//*    PH064S01 Step     Prepare DSN8ED3 load module from DSN8ED3 src
//*    PH064S02 Step     Bind DSN8ED3 package in collection DSN8ED!!
//*                      Bind DSN8ED3 plan from DSN8ED!! and DSN8ES!!
//*                        collection ids
//*    PH064S03 Step     Run DSN8ED3 to call stored procedure DSN8ES1
//*
//*  Dependencies =
//*  (1) Run sample job DSNTEJ63 prior to running this job
//*  (2) This job requires the DB2-provided JCL procedure DSNHC
//*
//*  Notes =
//*
//*  Change Activity =
//*    10/16/2013 Don't use prelinker by default         PI13612 DM1812
//*    08/18/2014 Single-phase migration            s21938_inst1 s21938
//*
//*********************************************************************
//JOBLIB   DD  DSN=DSN!!0.SDSNEXIT,DISP=SHR
//         DD  DSN=DSN!!0.SDSNLOAD,DISP=SHR
//         DD  DSN=CEE.V!R!M!.SCEERUN,DISP=SHR
//         DD  DSN=DSN!!0.RUNLIB.LOAD,DISP=SHR
//*
//*********************************************************************
//*  Step 1:  Pre-compile, compile, and link-edit DSN8ED3
//*********************************************************************
//PH064S01 EXEC DSNHC,MEM=DSN8ED3,
//         PARM.PC=('HOST(C),CCSID(1047),MARGINS(1,72),STDSQL(NO)',
//             SOURCE,XREF),
//         PARM.C='SOURCE LIST MAR(1,72) LO RENT OPTFILE(DD:CCOPTS)',
//         PARM.LKED='AMODE=31,RMODE=ANY,MAP,NORENT,UPCASE'
//PC.DBRMLIB   DD DSN=DSN!!0.DBRMLIB.DATA(DSN8ED3),
//             DISP=SHR
//PC.SYSLIB    DD DSN=DSN!!0.SRCLIB.DATA,
//             DISP=SHR
//PC.SYSIN     DD DSN=DSN!!0.SDSNSAMP(DSN8ED3),
//             DISP=SHR
//LKED.SYSLMOD DD DSN=DSN!!0.RUNLIB.LOAD(DSN8ED3),
//             DISP=SHR
//LKED.SYSIN   DD *
 INCLUDE SYSLIB(DSNELI)
 INCLUDE SYSLIB(DSNTIAR)
//*
//*********************************************************************
//*  Step 2:  Bind DSN8ED3's PLAN from its package and DSN8ES1's pkg
//*********************************************************************
//PH064S02   EXEC PGM=IKJEFT01,DYNAMNBR=20,COND=(4,LT)
//DBRMLIB   DD DSN=DSN!!0.DBRMLIB.DATA,
//             DISP=SHR
//SYSTSPRT DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//SYSIN    DD *
 SET CURRENT SQLID = 'SYSADM';
 GRANT BIND, EXECUTE ON PLAN DSN8ED3
   TO PUBLIC;
//SYSTSIN  DD  *
 DSN SYSTEM(DSN)
 BIND PACKAGE(DSN8ED!!) MEMBER(DSN8ED3) APPLCOMPAT(V!!R1) +
      ACT(REP) ISO(CS) CURRENTDATA(YES) ENCODING(EBCDIC)
 BIND PACKAGE(SAMPLOC.DSN8ED!!) APPLCOMPAT(V!!R1) +
      MEMBER(DSN8ED3) ACT(REP) ISO(CS) CURRENTDATA(YES) ENCODING(EBCDIC)
 BIND PLAN(DSN8ED3) -
      PKLIST(DSN8ED!!.DSN8ED3, -
             SAMPLOC.DSN8ED!!.DSN8ED3, -
             SAMPLOC.DSN8ES!!.DSN8ES1) -
      ACTION(REPLACE) RETAIN +
      ISO(CS) CURRENTDATA(YES) ENCODING(EBCDIC)
 RUN  PROGRAM(DSNTIAD) PLAN(DSNTIA!!) -
     LIB('DSN!!0.RUNLIB.LOAD')
//*
//*********************************************************************
//*  STEP 3:  Get Bonus and Salary report for department D11
//*********************************************************************
//PH064S03 EXEC PGM=IKJEFT01,DYNAMNBR=20,COND=(4,LT)
//SYSTSPRT DD  SYSOUT=*
//SYSPRINT DD  SYSOUT=*
//SYSUDUMP DD  SYSOUT=*
//SYSTSIN  DD  *
 DSN SYSTEM(DSN)
  RUN PROGRAM(DSN8ED3) PLAN(DSN8ED3) PARMS('/D11 SAMPLOC')
 END
//*