DSNTEJ73

//*********************************************************************
//*  NAME = DSNTEJ73
//*
//*  DESCRIPTIVE NAME = DB2 SAMPLE APPLICATION
//*                     PHASE 7
//*                     SAMPLE APPLICATIONS: VIEW, MANIPULATE CLOB 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 PROGRAMS IN SUPPORT
//*             OF THE DB2 LOB SAMPLE C APPLICATION:
//*             -  DSN8SDM: CAF CONNECTION MANAGER (C LANGUAGE), USED
//*                         TO INVOKE THE DB2 SAMPLE APPLICATIONS MENU
//*                         UNDER ISPF AND TO MANAGE INVOKATION OF THE
//*                         DB2 SAMPLE APPLICATION PROGRAMS, INCLUDING
//*                         THE LOB SAMPLE RESUME AND PHOTO IMAGE
//*                         VIEWERS.
//*
//*             - DSN8DLRV: 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 SAMPLE CALL ATTACH CONTROLLER
//*
//PH073S01 EXEC DSNHC,MEM=DSN8SDM,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(DSN8SDM),
//             DISP=SHR
//PC.SYSLIB    DD DSN=DSN!!0.SRCLIB.DATA,
//             DISP=SHR
//PC.SYSIN     DD DSN=DSN!!0.SDSNSAMP(DSN8SDM),
//             DISP=SHR
//LKED.SYSLMOD DD DSN=DSN!!0.RUNLIB.LOAD(DSN8SDM),
//             DISP=SHR
//LKED.SYSIN   DD *
 INCLUDE SYSLIB(DSNALI)
 NAME DSN8SDM(R)
//*
//*        STEP  2: PREPARE EMPLOYEE RESUME VIEWER (ISPF)
//*
//PH073S02 EXEC DSNHC,MEM=DSN8DLRV,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(DSN8DLRV),
//             DISP=SHR
//PC.SYSLIB    DD DSN=DSN!!0.SRCLIB.DATA,
//             DISP=SHR
//PC.SYSIN     DD DSN=DSN!!0.SDSNSAMP(DSN8DLRV),
//             DISP=SHR
//LKED.SYSLMOD DD DSN=DSN!!0.RUNLIB.LOAD(DSN8DLRV),
//             DISP=SHR
//LKED.SYSIN   DD *
 INCLUDE SYSLIB(DSNALI)
 NAME DSN8DLRV(R)
//*
//*        STEP  3: BIND PACKAGE AND PLAN FOR THE RESUME VIEWER
//*
//PH073S03 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 (DSN8LR!!) APPLCOMPAT(V!!R1) +
       MEMBER(DSN8DLRV) -
       QUALIFIER(DSN8!!0) -
       ACT(REP) ISO(CS) CURRENTDATA(YES) ENCODING(EBCDIC)
  BIND PLAN(DSN8LR!!) -
       PKLIST(DSN8LR!!.*) -
       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 DSN8LR!!
    TO PUBLIC;