DSNTEJ6S

//********************************************************************
//*  NAME = DSNTEJ6S
//*
//*  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 PREPARES THE SAMPLE STORED PROCEDURE.
//*
//*  DEPENDENCIES:
//*  (1) RUN THIS JOB AT THE SERVER SITE BEFORE RUNNING SAMPLE JOB
//*      DSNTEJ6P 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
//*
//********************************************************************
//*  STEP 1:  DROP ANY EXISTING STORED PROCEDURE CALLED DSN.DSN8EP2
//********************************************************************
//PH06SS01 EXEC PGM=IKJEFT01,DYNAMNBR=20
//SYSTSPRT DD  SYSOUT=*
//SYSTSIN  DD  *
 DSN SYSTEM(DSN)
 RUN PROGRAM(DSNTIAD) PLAN(DSNTIA!!) -
      LIB('DSN!!0.RUNLIB.LOAD')      -
      PARM('RC0')
//SYSPRINT DD  SYSOUT=*
//SYSUDUMP DD  SYSOUT=*
//SYSIN    DD *
 SET CURRENT SQLID = 'SYSADM';

 DROP PROCEDURE DSN8.DSN8EP2 RESTRICT;

//*
//********************************************************************
//*  STEP 2:  CREATE SAMPLE STORED PROCEDURE DSN8.DSN8EP2
//********************************************************************
//PH06SS02 EXEC PGM=IKJEFT01,DYNAMNBR=20
//SYSTSPRT DD  SYSOUT=*
//SYSTSIN  DD  *
 DSN SYSTEM(DSN)
 RUN PROGRAM(DSNTIAD) PLAN(DSNTIA!!) -
      LIB('DSN!!0.RUNLIB.LOAD')
//SYSPRINT DD  SYSOUT=*
//SYSUDUMP DD  SYSOUT=*
//SYSIN    DD *
 SET CURRENT SQLID = 'SYSADM';

 CREATE PROCEDURE
   DSN8.DSN8EP2(
     IN VARCHAR(4096)    CCSID EBCDIC,
    OUT INTEGER,
    OUT INTEGER,
    OUT INTEGER,
    OUT VARCHAR(8320)    CCSID EBCDIC )
   LANGUAGE PLI
   DETERMINISTIC
   NO SQL
   EXTERNAL NAME DSN8EP2
   PARAMETER STYLE GENERAL WITH NULLS
   COLLID DSN8EP!!
   WLM ENVIRONMENT WLMENV
   ASUTIME LIMIT 5
   STAY RESIDENT NO
   PROGRAM TYPE MAIN
   SECURITY DB2
   NO DBINFO
   RESULT SET 0
   COMMIT ON RETURN NO;
//*
//********************************************************************
//*  STEP 3:  PRE-COMPILE, COMPILE, AND LINK-EDIT THE STORED PROCEDURE
//********************************************************************
//PH06SS03  EXEC DSNHPLI,MEM=DSN8EP2,COND=(4,LT),
//         PARM.PC='HOST(PLI),CCSID(37),STDSQL(NO),CONNECT(2)'
//PPLI.SYSIN   DD DSN=DSN!!0.SDSNSAMP(DSN8EP2),
//             DISP=SHR
//PC.DBRMLIB   DD DSN=DSN!!0.DBRMLIB.DATA(DSN8EP2),
//             DISP=SHR
//PC.SYSLIB    DD DSN=DSN!!0.SRCLIB.DATA,
//             DISP=SHR
//LKED.SYSLMOD DD DSN=DSN!!0.RUNLIB.LOAD(DSN8EP2),
//             DISP=SHR
//LKED.SYSIN DD  *
 INCLUDE SYSLIB(DSNRLI)
 INCLUDE SYSLIB(DSNTIAR)
//*
//********************************************************************
//*  STEP 4:  BIND THE STORED PROCEDURE PACKAGE
//*           NOTE: THIS STEP IS COMMENTED OUT FOR THE STORED
//*                 PROCEDURE SAMPLE APPLICATION BECAUSE IT CONTAINS
//*                 NO SQL STATEMENTS. IF YOUR STORED PROCEDURE
//*                 CONTAINS SQL STATEMENTS, YOU MUST BIND IT AS
//*                 A PACKAGE.
//********************************************************************
//*PH06SS04   EXEC PGM=IKJEFT01,DYNAMNBR=20,COND=(4,LT)
//*DBRMLIB   DD DSN=DSN!!0.DBRMLIB.DATA,
//*             DISP=SHR
//*SYSTSPRT DD SYSOUT=*
//*SYSTSIN  DD *
//* DSN SYSTEM(DSN)
//* BIND PACKAGE(DSN8EP!!) MEMBER(DSN8EP2) APPLCOMPAT(V!!R1) +
//*      ACT(REP) ISO(CS) CURRENTDATA(YES) ENCODING(EBCDIC)
//*