DSNTEJ6D

//********************************************************************
//*  NAME = DSNTEJ6D
//*
//*  DESCRIPTIVE NAME = DB2 SAMPLE APPLICATION
//*                     PHASE 6
//*                     SAMPLE CALLER: STORED PROCEDURE WITH RESULT SET
//*                     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 A SAMPLE APPLICATION
//*             PROGRAM, DSN8ED1, THAT DEMONSTRATES HOW TO CALL A DB2
//*             STORED PROCEDURE THAT RETURNS A RESULT SET.
//*
//*             DSN8ED1 ACCEPTS A DB2 COMMAND FROM STANDARD INPUT
//*             (SYSIN) AND PASSES IT AS A PARAMETER TO THE STORED
//*             PROCEDURE WHICH RUNS ON A REMOTE DB2 SUBSYSTEM (SEE
//*             DSNTEJ6T FOR DETAILS).  THE STORED PROCEDURE PLACES THE
//*             RESPONSES IN A RESULT SET AND DSN8ED1 EXTRACTS THEM AND
//*             PRINTS THEM TO STANDARD OUTPUT (SYSPRINT).
//*
//*  DEPENDENCIES:
//*  (1) RUN SAMPLE JOB DSNTEJ6T AT THE SERVER SITE BEFORE RUNNING THIS
//*      JOB; DSNTEJ6T PREPARES THE SAMPLE STORED PROC W/ RESULT SET
//*  (2) RUN THIS JOB AT THE CLIENT SITE
//*
//*
//* CHANGE ACTIVITY =
//*    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 THE CALLING PROGRAM
//********************************************************************
//PH06DS01 EXEC DSNHC,MEM=DSN8ED1,
//         PARM.PC=('HOST(C),CCSID(1047),MARGINS(1,72),STDSQL(NO)',
//             SOURCE,XREF),
//         PARM.C='SOURCE LIST MAR(1,72) NORENT OPTFILE(DD:CCOPTS)',
//         PARM.LKED='AMODE=31,RMODE=ANY,MAP,NORENT'
//PC.DBRMLIB   DD DSN=DSN!!0.DBRMLIB.DATA(DSN8ED1),
//             DISP=SHR
//PC.SYSLIB    DD DSN=DSN!!0.SRCLIB.DATA,
//             DISP=SHR
//PC.SYSIN     DD DSN=DSN!!0.SDSNSAMP(DSN8ED1),
//             DISP=SHR
//LKED.SYSLMOD DD DSN=DSN!!0.RUNLIB.LOAD(DSN8ED1),
//             DISP=SHR
//LKED.SYSIN   DD *
 INCLUDE SYSLIB(DSNELI)
 INCLUDE SYSLIB(DSNTIAR)
//*
//********************************************************************
//*  STEP 2:  BIND THE CALLING PROGRAM PACKAGE
//********************************************************************
//PH06DS02   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 DSN8ED1
   TO PUBLIC;
//SYSTSIN  DD  *
 DSN SYSTEM(DSN)
 BIND PACKAGE(DSN8ED!!) MEMBER(DSN8ED1) APPLCOMPAT(V!!R1) +
      ACT(REP) ISO(CS) CURRENTDATA(YES) ENCODING(EBCDIC)
 BIND PACKAGE(SAMPLOC.DSN8ED!!) -
   APPLCOMPAT(V!!R1) +
   MEMBER(DSN8ED1) ACT(REP) ISO(CS) CURRENTDATA(YES) ENCODING(EBCDIC)
 BIND PLAN(DSN8ED1) -
 PKLIST(DSN8ED!!.DSN8ED1, -
        SAMPLOC.DSN8ED!!.DSN8ED1 -
        SAMPLOC.DSN8ED!!.DSN8ED2) -
   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
//********************************************************************
//PH06DS03 EXEC PGM=IKJEFT01,DYNAMNBR=20,COND=(4,LT)
//SYSTSPRT DD  SYSOUT=*
//SYSPRINT DD  SYSOUT=*
//SYSUDUMP DD  SYSOUT=*
//SYSTSIN  DD  *
 DSN SYSTEM(DSN)
 RUN PROGRAM(DSN8ED1) PLAN(DSN8ED1) PARMS('/SAMPLOC')
 END
//SYSIN    DD *
  -DISPLAY ARCHIVE;
  -DISPLAY THREAD(*) DETAIL;
//*