DSNTEJ1S

//*********************************************************************
//*  NAME = DSNTEJ1S
//*
//*  DESCRIPTIVE NAME = DB2 SAMPLE APPLICATION
//*
//*    LICENSED MATERIALS - PROPERTY OF IBM
//*    5650-DB2
//*    (C) COPYRIGHT 1982, 2016 IBM CORP.  ALL RIGHTS RESERVED.
//*
//*    STATUS = VERSION 12
//*
//*  FUNCTION = THIS JCL BINDS AND RUNS THE SCHEMA PROCESSOR.
//*
//*
//*  CHANGE ACTIVITY =
//*    08/18/2014 Single-phase migration            s21938_inst1 s21938
//*
//*********************************************************************
//JOBLIB   DD  DSN=DSN!!0.SDSNLOAD,DISP=SHR
//*
//*
//*        STEP 1 : BIND AND RUN PROGRAM DSNHSP
//PH01SS01 EXEC PGM=IKJEFT01,DYNAMNBR=20
//DBRMLIB  DD  DSN=DSN!!0.SDSNDBRM,
//             DISP=SHR
//SYSTSPRT DD  SYSOUT=*
//SYSPRINT DD  SYSOUT=*
//SYSUDUMP DD  SYSOUT=*
//SYSTSIN  DD  *
 DSN SYSTEM(DSN)
 BIND PACKAGE(DSNHSP!!) MEMBER(DSNHSPMN) APPLCOMPAT(V!!R1) +
      ACTION(REP) ISO(CS) CURRENTDATA(YES) ENCODING(EBCDIC)
 BIND PLAN(DSNHSP!!) PKLIST(DSNHSP!!.*) +
      ACTION(REPLACE) RETAIN +
      ISO(CS) CURRENTDATA(YES) ENCODING(EBCDIC)
 RUN  PROGRAM(DSNHSP) PLAN(DSNHSP!!) -
      LIB('DSN!!0.SDSNLOAD')
 END
//*
//SYSIN    DD *

  -- SAMPLE SCHEMA

    CREATE SCHEMA AUTHORIZATION DSN8!!SA

    CREATE TABLE TESTSTUFF
        (TESTNO CHAR(4),
         RESULT CHAR(4),
         TESTTYPE CHAR(3))
         CCSID EBCDIC

    CREATE TABLE STAFF
        (EMPNUM CHAR(3) NOT NULL,
         EMPNAME CHAR(20),
         GRADE DECIMAL(4),
         CITY CHAR(15))
         CCSID EBCDIC

    CREATE VIEW STAFFV1
        AS SELECT * FROM STAFF
        WHERE GRADE >= 12

    GRANT INSERT ON TESTSTUFF
        TO PUBLIC

    GRANT ALL PRIVILEGES ON STAFF
        TO PUBLIC

//*