DSNTEJ78

//*********************************************************************
//*  NAME = DSNTEJ78
//*
//*  DESCRIPTIVE NAME = DB2 SAMPLE APPLICATION
//*                     PHASE 7
//*                     SAMPLE APPLICATIONS: VIEW, MANIPULATE BLOB DATA
//*                     COBOL LANGUAGE
//*
//*    LICENSED MATERIALS - PROPERTY OF IBM
//*    5650-DB2
//*    (C) COPYRIGHT 1982, 2016 IBM CORP.  ALL RIGHTS RESERVED.
//*
//*    STATUS = VERSION 12
//*
//*  FUNCTION = PREPARES AND RUNS THE FOLLOWING PROGRAM IN SUPPORT
//*             OF THE DB2 LOB SAMPLE COBOL APPLICATION:
//*             - DSN8CLPV: EXTRACTS A SPECIFIED EMPLOYEE'S PSEG PHOTO
//*                         IMAGE IN BLOB FORMAT FROM THE SMAPLE TABLE
//*                         DSN8!!0.EMP_PHOTO_RESUME.  THE DATA IS
//*                         HANDED OFF TO GDDM FOR CONVERSION FOR CON-
//*                         VERSION AND DISPLAY.
//*
//*  CHANGE ACTIVITY =
//*    08/18/2014 Single-phase migration            s21938_inst1 s21938
//*
//*********************************************************************
//JOBLIB  DD  DSN=DSN!!0.SDSNEXIT,DISP=SHR
//        DD  DSN=DSN!!0.SDSNLOAD,DISP=SHR
//        DD  DSN=CEE.V!R!M!.SCEERUN,DISP=SHR
//        DD  DSN=DSN!!0.RUNLIB.LOAD,DISP=SHR
//*
//********************************************************************
//*  STEP 1:  PREPARE EMPLOYEE PHOTO VIEWER (GDDM)
//********************************************************************
//PH078S01 EXEC DSNHICOB,MEM=DSN8CLPV,
//         COND=(4,LT),
//         PARM.PC=('HOST(IBMCOB)',APOST,APOSTSQL,SOURCE,STDSQL(YES),
//         NOXREF,'SQL(DB2)','DEC(31)'),
//         PARM.COB=(NOSEQUENCE,QUOTE,RENT,'PGMNAME(LONGUPPER)'),
//         PARM.LKED='AMODE=31,RMODE=ANY,MAP'
//PC.DBRMLIB   DD DSN=DSN!!0.DBRMLIB.DATA(DSN8CLPV),
//             DISP=SHR
//PC.SYSLIB    DD DSN=DSN!!0.SRCLIB.DATA,
//             DISP=SHR
//PC.SYSIN     DD DSN=DSN!!0.SDSNSAMP(DSN8CLPV),
//             DISP=SHR
//LKED.SYSLMOD DD DSN=DSN!!0.RUNLIB.LOAD(DSN8CLPV),
//             DISP=SHR
//LKED.SYSIN   DD *
 INCLUDE SYSLIB(ADMASRT)
 INCLUDE SYSLIB(DSNTIAR)
 INCLUDE SYSLIB(DSNALI)
 NAME DSN8CLPV(R)

//*******************************************************************
//*        STEP  2: BIND PACKAGE AND PLAN
//******************************************************************
//PH078S02 EXEC PGM=IKJEFT01,COND=(4,LT)
//DBRMLIB  DD  DSN=DSN!!0.DBRMLIB.DATA,DISP=SHR
//SYSTSPRT DD  SYSOUT=*
//SYSPRINT DD  SYSOUT=*
//CEEDUMP  DD  SYSOUT=*
//SYSUDUMP DD  SYSOUT=*
//SYSOUT   DD  SYSOUT=*
//REPORT   DD  SYSOUT=*
//SYSTSIN  DD  *
 DSN SYSTEM(DSN)
  BIND PACKAGE (DSN8CP!!) APPLCOMPAT(V!!R1) +
       MEMBER(DSN8CLPV) -
       QUALIFIER(DSN8!!0) -
       ACT(REP) ISO(CS) CURRENTDATA(YES) ENCODING(EBCDIC)
  BIND PLAN(DSN8CP!!) -
       PKLIST(DSN8CP!!.*) -
       ACTION(REPLACE) RETAIN +
       ISO(CS) CURRENTDATA(YES) ENCODING(EBCDIC) SQLRULES(DB2)
  RUN  PROGRAM(DSNTIAD) -
       PLAN(DSNTIA!!)  -
       LIB('DSN!!0.RUNLIB.LOAD')
 END
//SYSIN    DD  *
  SET CURRENT SQLID = 'SYSADM';
  GRANT EXECUTE,BIND ON PLAN DSN8CP!!
    TO PUBLIC;
//*