DSNTEJ6P

//********************************************************************
//*  NAME = DSNTEJ6P
//*
//*  DESCRIPTIVE NAME = DB2 SAMPLE APPLICATION
//*
//*                     PHASE 6
//*
//*    LICENSED MATERIALS - PROPERTY OF IBM
//*    5650-DB2
//*    (C) COPYRIGHT 1982, 2016 IBM CORP.  ALL RIGHTS RESERVED.
//*
//*    STATUS = VERSION 12
//*
//*  FUNCTION = THIS JCL EXECUTES THE PHASE 6 STORED PROCEDURE
//*             SAMPLE APPLICATION.
//*
//*  DEPENDENCIES:
//*  (1) RUN SAMPLE JOB DSNTEJ6S AT THE SERVER SITE BEFORE RUNNING THIS
//*      JOB; DSNTEJ6S PREPARES THE SAMPLE STORED PROC W/O RESULT SET
//*  (2) RUN THIS JOB AT THE CLIENT SITE
//*
//*  CHANGE ACTIVITY =
//*    08/18/2014 Single-phase migration            s21938_inst1 s21938
//*
//********************************************************************
//JOBLIB   DD DISP=SHR,DSN=DSN!!0.SDSNEXIT
//         DD DISP=SHR,DSN=DSN!!0.SDSNLOAD
//         DD DISP=SHR,DSN=CEE.V!R!M!.SCEERUN
//         DD DISP=SHR,DSN=DSN!!0.RUNLIB.LOAD
//*
//********************************************************************
//*  STEP 1:  PRE-COMPILE, COMPILE, AND LINK-EDIT THE CALLING PROGRAM
//********************************************************************
//PH06PS01  EXEC DSNHPLI,MEM=DSN8EP1,
//         PARM.PC='HOST(PLI),CCSID(37),STDSQL(NO),CONNECT(2)'
//PPLI.SYSIN   DD DSN=DSN!!0.SDSNSAMP(DSN8EP1),
//             DISP=SHR
//PC.DBRMLIB   DD DSN=DSN!!0.DBRMLIB.DATA(DSN8EP1),
//             DISP=SHR
//PC.SYSLIB    DD DSN=DSN!!0.SRCLIB.DATA,
//             DISP=SHR
//LKED.SYSLMOD DD DSN=DSN!!0.RUNLIB.LOAD(DSN8EP1),
//             DISP=SHR
//LKED.SYSIN DD  *
 INCLUDE SYSLIB(DSNELI)
 INCLUDE SYSLIB(DSNTIAR)
//********************************************************************
//*  STEP 2:  BIND THE CALLING PROGRAM PACKAGE
//********************************************************************
//PH06PS02   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 DSN8EP1
   TO PUBLIC;
//SYSTSIN  DD  *
 DSN SYSTEM(DSN)
 BIND PACKAGE(DSN8EP!!) MEMBER(DSN8EP1) APPLCOMPAT(V!!R1) +
      ACT(REP) ISO(CS) CURRENTDATA(YES) ENCODING(EBCDIC)
 BIND PACKAGE(SAMPLOC.DSN8EP!!) APPLCOMPAT(V!!R1) +
   MEMBER(DSN8EP1) ACT(REP) ISO(CS) CURRENTDATA(YES) ENCODING(EBCDIC)
 BIND PLAN(DSN8EP1) -
 PKLIST(DSN8EP!!.DSN8EP1, SAMPLOC.DSN8EP!!.DSN8EP1) -
   ACTION(REPLACE) RETAIN +
   ISO(CS) CURRENTDATA(YES) ENCODING(EBCDIC)
 RUN  PROGRAM(DSNTIAD) PLAN(DSNTIA!!)  -
     LIB('DSN!!0.RUNLIB.LOAD')
//********************************************************************
//*  STEP 3:  EXECUTE THE STORED PROCEDURE
//********************************************************************
//PH06PS03 EXEC PGM=IKJEFT01,DYNAMNBR=20,COND=(4,LT)
//SYSTSPRT DD  SYSOUT=*
//SYSPRINT DD  SYSOUT=*
//SYSUDUMP DD  SYSOUT=*
//SYSTSIN  DD  *
 DSN SYSTEM(DSN)
 RUN PROGRAM(DSN8EP1) PLAN(DSN8EP1) PARMS('/SAMPLOC')
 END
//SYSIN    DD *
  -DISPLAY ARCHIVE;
  -DISPLAY THREAD(*) DETAIL;
//*