DSNTEJ2D

//*********************************************************************
//*  NAME = DSNTEJ2D
//*
//*  DESCRIPTIVE NAME = DB2 SAMPLE APPLICATION
//*                     PHASE 2
//*                     C
//*
//*    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 2 C LANGUAGE SETUP FOR
//*             THE SAMPLE APPLICATIONS.  IT PREPARES AND EXECUTES
//*             C BATCH PROGRAMS.
//*
//*     NOTES = ENSURE THAT LINE NUMBER SEQUENCING IS SET 'ON' IF
//*             THIS JOB IS SUBMITTED FROM AN ISPF EDIT SESSION
//*
//*             THIS JOB IS RUN AFTER PHASE 1.
//*
//* CHANGE ACTIVITY =
//*    08/18/2014 Single-phase migration            s21938_inst1 s21938
//*
//*********************************************************************
//*
//JOBLIB  DD  DSN=DSN!!0.SDSNLOAD,DISP=SHR
//        DD  DSN=CEE.V!R!M!.SCEERUN,DISP=SHR
//*
//*        STEP 1 : PREPARE ERROR MESSAGE ROUTINE
//PH02DS01 EXEC DSNHC,MEM=DSN8MDG,
//         PARM.PC=('HOST(C),CCSID(1047),MARGINS(1,72),STDSQL(NO)',
//             SOURCE,XREF),
//         PARM.C='SOURCE XREF MARGINS(1,72) OPTFILE(DD:CCOPTS)',
//         PARM.LKED='NCAL,MAP,AMODE=31,RMODE=ANY'
//PC.DBRMLIB   DD DSN=DSN!!0.DBRMLIB.DATA(DSN8MDG),
//             DISP=SHR
//PC.SYSLIB    DD DSN=DSN!!0.SRCLIB.DATA,
//             DISP=SHR
//PC.SYSIN     DD DSN=DSN!!0.SDSNSAMP(DSN8MDG),
//             DISP=SHR
//LKED.SYSLMOD DD DSN=DSN!!0.RUNLIB.LOAD(DSN8MDG),
//             DISP=SHR
//*
//*        STEP 2 : PREPARE C PHONE PROGRAM
//PH02DS02 EXEC DSNHC,MEM=DSN8BD3,
//         COND=(4,LT),
//         PARM.PC=('HOST(C),CCSID(1047),MARGINS(1,72),STDSQL(NO)',
//             SOURCE,XREF),
//         PARM.C='SOURCE LIST MARGINS(1,72) OPTFILE(DD:CCOPTS)',
//         PARM.LKED='AMODE=31,RMODE=ANY,MAP'
//PC.DBRMLIB   DD DSN=DSN!!0.DBRMLIB.DATA(DSN8BD3),
//             DISP=SHR
//PC.SYSLIB    DD DSN=DSN!!0.SRCLIB.DATA,
//             DISP=SHR
//PC.SYSIN     DD DSN=DSN!!0.SDSNSAMP(DSN8BD3),
//             DISP=SHR
//LKED.SYSLMOD DD DSN=DSN!!0.RUNLIB.LOAD(DSN8BD3),
//             DISP=SHR
//LKED.RUNLIB  DD DSN=DSN!!0.RUNLIB.LOAD,
//             DISP=SHR
//LKED.SYSIN   DD *
     INCLUDE SYSLIB(DSNELI)
     INCLUDE RUNLIB(DSN8MDG)
//*
//*        STEP 3 : BIND AND RUN PROGRAMS
//PH02DS03 EXEC PGM=IKJEFT01,DYNAMNBR=20,COND=(4,LT)
//DBRMLIB   DD  DISP=SHR,DSN=DSN!!0.DBRMLIB.DATA
//SYSTSPRT  DD  SYSOUT=*
//SYSPRINT  DD  SYSOUT=*
//CEEDUMP   DD  SYSOUT=*
//SYSUDUMP  DD  SYSOUT=*
//SYSOUT    DD  SYSOUT=*
//REPORT    DD  SYSOUT=*
//SYSIN     DD  *
 SET CURRENT SQLID = 'SYSADM';
 GRANT BIND, EXECUTE ON PLAN DSN8BD!!
   TO PUBLIC;
//SYSTSIN   DD  *
 DSN SYSTEM(DSN)
 BIND PACKAGE(DSN8BD!!) MEMBER(DSN8BD3) APPLCOMPAT(V!!R1) +
      ACT(REP) ISO(CS) CURRENTDATA(YES) ENCODING(EBCDIC)
 BIND PLAN(DSN8BD!!) PKLIST(DSN8BD!!.*) +
      ACTION(REPLACE) RETAIN +
      ISO(CS) CURRENTDATA(YES) ENCODING(EBCDIC)
 RUN  PROGRAM(DSNTIAD) PLAN(DSNTIA!!)  -
      LIB('DSN!!0.RUNLIB.LOAD')
 RUN  PROGRAM(DSN8BD3) PLAN(DSN8BD!!) -
      LIB('DSN!!0.RUNLIB.LOAD')
 END
//CARDIN   DD  *
L*
LJO%
L%SON
LSMITH
LBROWN          ALAN
LBROWN          DAVID
U                           0002304265
//*