DSNTEJ1P

//*********************************************************************
//*  NAME = DSNTEJ1P
//*
//*  DESCRIPTIVE NAME = DB2 SAMPLE APPLICATION
//*                     PHASE 1
//*                     PL/I
//*
//*    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 1 SETUP FOR SAMPLE
//*             APPLICATIONS AT SITES WITH PL/I.
//*
//*         THIS JOB IS RUN AFTER DSNTEJ1.
//*
//*  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 DSNTEP2 FOR EXECUTION
//PH01PS01 EXEC DSNHPLI,MEM=DSNTEP2,
//         PARM.PC=('HOST(PLI),CCSID(37),STDSQL(NO),CONNECT(2)',
//             TWOPASS,'VERSION(AUTO)'),
//         PARM.PLI=(NOPT,'MAR(2,72,0)',GS,OBJ,S,
//         'LIMITS(FIXEDBIN(31,63))','LANGLVL(SPROG)',OFFSET)
//PPLI.SYSIN   DD DSN=DSN!!0.SDSNSAMP(DSNTEP2),
//             DISP=SHR
//PC.DBRMLIB   DD DSN=DSN!!0.DBRMLIB.DATA(DSNTEP2),
//             DISP=SHR
//PC.SYSLIB    DD DSN=DSN!!0.SRCLIB.DATA,
//             DISP=SHR
//LKED.SYSLMOD DD DSN=DSN!!0.RUNLIB.LOAD(DSNTEP2),
//             DISP=SHR
//LKED.SYSIN   DD *
     INCLUDE SYSLIB(DSNELI)
//*
//*        STEP 2 : BIND AND RUN PROGRAM DSNTEP2, TO
//*                 PRINT THE TABLES
//PH01PS02 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=*
//SYSTSIN  DD  *
 DSN SYSTEM(DSN)
 BIND PACKAGE (DSNTEP2) MEMBER(DSNTEP2) APPLCOMPAT(V!!R1) +
      CURRENTDATA(NO) ACT(REP) ISO(CS) ENCODING(EBCDIC)
 BIND PLAN(DSNTEP!!)  PKLIST(DSNTEP2.*) +
      ACTION(REPLACE) RETAIN +
      CURRENTDATA(NO) ISO(CS) ENCODING(EBCDIC) SQLRULES(DB2)
 RUN  PROGRAM(DSNTEP2) PLAN(DSNTEP!!) +
      LIB('DSN!!0.RUNLIB.LOAD') +
      PARMS('/ALIGN(MID)')
 END
//*
//SYSIN    DD *
    SET CURRENT SQLID = 'SYSADM';
    GRANT EXECUTE, BIND ON PLAN DSNTEP!!
      TO PUBLIC;
    SELECT EMPNO, FIRSTNME, MIDINIT, LASTNAME,
      WORKDEPT, PHONENO, HIREDATE, JOB, EDLEVEL,
      SEX, BIRTHDATE, SALARY, BONUS, COMM,
      SALARY+BONUS+COMM AS TOTAL_SALARY
     FROM EMP
     ORDER BY TOTAL_SALARY;
    SELECT * FROM DEPT;
    SELECT * FROM ACT;
    SELECT * FROM EMPPROJACT;
    SELECT * FROM PROJ;
    SELECT * FROM PROJACT;
//*
//*
//*        STEP 3 : PREPARE DSNTEP4 FOR EXECUTION
//PH01PS03 EXEC DSNHPLI,MEM=DSNTEP4,COND=(4,LT),
//         PARM.PC=('HOST(PLI),CCSID(37),STDSQL(NO),CONNECT(2)',
//             TWOPASS,'VERSION(AUTO)'),
//         PARM.PLI=(NOPT,'MAR(2,72,0)',GS,OBJ,S,
//         'LIMITS(FIXEDBIN(31,63))','LANGLVL(SPROG)',OFFSET)
//PPLI.SYSIN   DD DSN=DSN!!0.SDSNSAMP(DSNTEP4),
//             DISP=SHR
//PC.DBRMLIB   DD DSN=DSN!!0.DBRMLIB.DATA(DSNTEP4),
//             DISP=SHR
//PC.SYSLIB    DD DSN=DSN!!0.SRCLIB.DATA,
//             DISP=SHR
//LKED.SYSLMOD DD DSN=DSN!!0.RUNLIB.LOAD(DSNTEP4),
//             DISP=SHR
//LKED.SYSIN   DD *
     INCLUDE SYSLIB(DSNELI)
//*
//*        STEP 4 : BIND AND RUN PROGRAM DSNTEP4, TO
//*                 PRINT THE TABLES
//PH01PS04 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=*
//SYSTSIN  DD  *
 DSN SYSTEM(DSN)
 BIND PACKAGE (DSNTEP4) MEMBER(DSNTEP4) APPLCOMPAT(V!!R1) +
      CURRENTDATA(NO) ACT(REP) ISO(CS) ENCODING(EBCDIC)
 BIND PLAN(DSNTP4!!)  PKLIST(DSNTEP4.*) +
      ACTION(REPLACE) RETAIN +
      CURRENTDATA(NO) ISO(CS) ENCODING(EBCDIC) SQLRULES(DB2)
 RUN  PROGRAM(DSNTEP4) PLAN(DSNTP4!!) +
      LIB('DSN!!0.RUNLIB.LOAD') +
      PARMS('/ALIGN(MID)')
 END
//*
//SYSIN    DD *
    SET CURRENT SQLID = 'SYSADM';
    GRANT EXECUTE, BIND ON PLAN DSNTP4!!
      TO PUBLIC;
    SELECT EMPNO, FIRSTNME, MIDINIT, LASTNAME,
      WORKDEPT, PHONENO, HIREDATE, JOB, EDLEVEL,
      SEX, BIRTHDATE, SALARY, BONUS, COMM,
      SALARY+BONUS+COMM AS TOTAL_SALARY
     FROM EMP
     ORDER BY TOTAL_SALARY;
    SELECT * FROM DEPT;
    SELECT * FROM ACT;
    SELECT * FROM EMPPROJACT;
    SELECT * FROM PROJ;
    SELECT * FROM PROJACT;
//*