DSNTEJ77

//********************************************************************
//*  NAME = DSNTEJ77
//*
//*  DESCRIPTIVE NAME = DB2 SAMPLE APPLICATION
//*                     PHASE 7
//*                     SAMPLE APPLICATIONS: VIEW, MANIPULATE CLOB 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:
//*             - DSN8CLRV: EXTRACTS A SPECIFIED EMPLOYEE'S RESUME IN
//*                         CLOB FORMAT FROM DSN8!!0.EMP_PHOTO_RESUME.
//*                         DB2 LOB LOCATOR FUNCTIONS ARE USED TO PARSE
//*                         DATA FROM CLOB FORMAT INTO ISPF FIELDS AND
//*                         THE RESULT IS DISPLAYED TO THE USER.
//*
//*  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 RESUME VIEWER (ISPF)
//********************************************************************
//PH077S01 EXEC DSNHICOB,MEM=DSN8CLRV,
//         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(DSN8CLRV),
//             DISP=SHR
//PC.SYSLIB    DD DSN=DSN!!0.SRCLIB.DATA,
//             DISP=SHR
//PC.SYSIN     DD DSN=DSN!!0.SDSNSAMP(DSN8CLRV),
//             DISP=SHR
//LKED.SYSLMOD DD DSN=DSN!!0.RUNLIB.LOAD(DSN8CLRV),
//             DISP=SHR
//LKED.SYSIN   DD *
 INCLUDE SYSLIB(DSNTIAR)
 INCLUDE SYSLIB(DSNALI)
 NAME DSN8CLRV(R)

//*******************************************************************
//*   STEP  2: BIND PACKAGE AND PLAN FOR THE RESUME VIEWER
//*******************************************************************
//PH077S02 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 (DSN8CR!!) APPLCOMPAT(V!!R1) +
       MEMBER(DSN8CLRV) -
       QUALIFIER(DSN8!!0) -
       ACT(REP) ISO(CS) CURRENTDATA(YES) ENCODING(EBCDIC)
  BIND PLAN(DSN8CR!!) -
       PKLIST(DSN8CR!!.*) -
       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 DSN8CR!!
    TO PUBLIC;
//*