DSNTEJ75

//*********************************************************************
//*  NAME = DSNTEJ75
//*
//*  DESCRIPTIVE NAME = DB2 SAMPLE APPLICATION
//*                     PHASE 7
//*                     SAMPLE APPLICATIONS: VIEW, MANIPULATE BLOB DATA
//*                     C 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 C APPLICATION:
//*             - DSN8DLPV: 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)
//*
//PH075S01 EXEC DSNHC,MEM=DSN8DLPV,COND=(4,LT),
//         PARM.PC=('HOST(C),CCSID(1047),MARGINS(1,72),STDSQL(NO)',
//             SOURCE,XREF),
//         PARM.C='SOURCE RENT XREF MARGINS(1,72) OPTFILE(DD:CCOPTS)',
//         PARM.LKED='MAP,RENT,REUS,AMODE=31,RMODE=ANY'
//PC.DBRMLIB   DD DSN=DSN!!0.DBRMLIB.DATA(DSN8DLPV),
//             DISP=SHR
//PC.SYSLIB    DD DSN=DSN!!0.SRCLIB.DATA,
//             DISP=SHR
//PC.SYSIN     DD DSN=DSN!!0.SDSNSAMP(DSN8DLPV),
//             DISP=SHR
//LKED.SYSLMOD DD DSN=DSN!!0.RUNLIB.LOAD(DSN8DLPV),
//             DISP=SHR
//LKED.SYSIN   DD *
 INCLUDE SYSLIB(ADMASRT)
 INCLUDE SYSLIB(DSNTIAR)
 INCLUDE SYSLIB(DSNALI)
 NAME DSN8DLPV(R)
//*
//*        STEP  2: BIND PACKAGE AND PLAN FOR THE PHOTO VIEWER
//*
//PH075S02 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 (DSN8LP!!) APPLCOMPAT(V!!R1) +
       MEMBER(DSN8DLPV) -
       QUALIFIER(DSN8!!0) -
       ACT(REP) ISO(CS) CURRENTDATA(YES) ENCODING(EBCDIC)
  BIND PLAN(DSN8LP!!) -
       PKLIST(DSN8LP!!.*) -
       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 ON PLAN DSN8LP!!
   TO PUBLIC;