DSNTEJ3P

//*********************************************************************
//*  NAME = DSNTEJ3P
//*
//*  DESCRIPTIVE NAME = DB2 SAMPLE APPLICATION
//*                     PHASE 3
//*                     PL/I, ISPF, CAF
//*
//*    LICENSED MATERIALS - PROPERTY OF IBM
//*    5650-DB2
//*    (C) COPYRIGHT 1982, 2016 IBM CORP.  ALL RIGHTS RESERVED.
//*
//*    STATUS = VERSION 12
//*
//*  FUNCTION = THIS JCL PERFORMS THE PHASE 3 SETUP FOR THE SAMPLE
//*             APPLICATIONS AT SITES WITH PL/I.  IT PREPARES THE
//*             PL/I ISPF CAF TELEPHONE PROGRAM.
//*
//*        RUN THIS JOB ANYTIME AFTER PHASE 2.
//*
//*  CHANGE ACTIVITY =
//*    08/18/2014 Single-phase migration            s21938_inst1 s21938
//*
//*********************************************************************
//*
//JOBLIB  DD  DISP=SHR,DSN=DSN!!0.SDSNLOAD
//        DD  DISP=SHR,DSN=CEE.V!R!M!.SCEERUN
//*
//* STEP  1: PREPARE THE ISPF CAF CONNECTION MANAGER
//*
//PH03PS01 EXEC DSNHPLI,MEM=DSN8SPM,
//           COND=(4,LT),
//           PARM.PC='HOST(PLI),CCSID(37),SOURCE,XREF,STDSQL(NO)',
//           PARM.PLI=('NOPT,SOURCE,OBJECT,MARGINS(2,72,0)',
//           'LIMITS(EXTNAME(7)),OPTIONS')
//PPLI.SYSIN   DD DSN=DSN!!0.SDSNSAMP(DSN8SPM),
//             DISP=SHR
//PC.DBRMLIB   DD DSN=DSN!!0.DBRMLIB.DATA(DSN8SPM),
//             DISP=SHR
//PC.SYSLIB    DD DSN=DSN!!0.SRCLIB.DATA,
//             DISP=SHR
//LKED.SYSLMOD DD DSN=DSN!!0.RUNLIB.LOAD(DSN8SPM),
//             DISP=SHR
//LKED.SYSIN   DD *
     ENTRY CEESTART
//*
//* STEP  2: PREPARE THE ISPF CAF TELEPHONE APPLICATION
//*
//PH03PS02 EXEC DSNHPLI,MEM=DSN8SP3,
//           COND=(4,LT),
//           PARM.PC='HOST(PLI),CCSID(37),SOURCE,XREF,STDSQL(NO)',
//           PARM.PLI=('NOPT,SOURCE,OBJECT,MARGINS(2,72,0)',
//           'LIMITS(EXTNAME(7)),OPTIONS')
//PPLI.SYSIN   DD DSN=DSN!!0.SDSNSAMP(DSN8SP3),
//             DISP=SHR
//PC.DBRMLIB   DD DSN=DSN!!0.DBRMLIB.DATA(DSN8SP3),
//             DISP=SHR
//PC.SYSLIB    DD DSN=DSN!!0.SRCLIB.DATA,
//             DISP=SHR
//LKED.SYSLMOD DD DSN=DSN!!0.RUNLIB.LOAD(DSN8SP3),
//             DISP=SHR
//LKED.RUNLIB  DD DSN=DSN!!0.RUNLIB.LOAD,
//             DISP=SHR
//LKED.SYSIN   DD *
     INCLUDE SYSLIB(DSNALI)
     INCLUDE RUNLIB(DSN8MPG)
//*
//* STEP  3: BIND THE ISPF CAF TELEPHONE APPLICATION
//*
//PH03PS03 EXEC PGM=IKJEFT01,DYNAMNBR=20,COND=(4,LT)
//DBRMLIB  DD DISP=SHR,DSN=DSN!!0.DBRMLIB.DATA
//SYSTSPRT DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//SYSIN   DD *
   SET CURRENT SQLID = 'SYSADM';
   GRANT BIND, EXECUTE ON PLAN DSN8SP!!
     TO PUBLIC;
//SYSTSIN DD *
 DSN SYSTEM(DSN)
 BIND PACKAGE(DSN8SP!!) MEMBER(DSN8SP3) APPLCOMPAT(V!!R1) +
      ACT(REP) ISO(CS) CURRENTDATA(YES) ENCODING(EBCDIC)
 BIND PLAN(DSN8SP!!) PKLIST(DSN8SP!!.*) +
      ACTION(REPLACE) RETAIN +
      ISO(CS) CURRENTDATA(YES) ENCODING(EBCDIC)
 RUN  PROGRAM(DSNTIAD) PLAN(DSNTIA!!) -
      LIB('DSN!!0.RUNLIB.LOAD')
 END
//*