DSNTEJ5C

//*********************************************************************
//*  NAME = DSNTEJ5C
//*
//*  DESCRIPTIVE NAME = DB2 SAMPLE APPLICATION
//*                     PHASE 5
//*                     COBOL, CICS
//*
//*    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 5 SETUP FOR THE SAMPLE
//*             APPLICATIONS AT SITES WITH COBOL.  IT PREPARES THE
//*             COBOL CICS PROGRAM.
//*
//*             RUN THIS JOB ANYTIME AFTER PHASE 2.
//*
//*  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=CICSTS.SDFHLOAD,DISP=SHR
//*
//*       STEP  1: CREATE CICS LOGICAL MAP
//MAPG    EXEC DFHASMVS,PARM='DECK,NOOBJECT,SYSPARM(DSECT)',
//             OUTC='*'
//SYSPUNCH DD  DSN=DSN!!0.SRCLIB.DATA(DSN8MCMG),
//             DISP=OLD
//SYSIN    DD  DSN=DSN!!0.SDSNSAMP(DSN8CCG),
//             DISP=SHR
//*
//*        STEP  2: CREATE CICS LOGICAL MAP
//MAPD    EXEC DFHASMVS,PARM='DECK,NOOBJECT,SYSPARM(DSECT)',
//             COND=(4,LT),OUTC='*'
//SYSPUNCH DD  DSN=DSN!!0.SRCLIB.DATA(DSN8MCMD),
//             DISP=OLD
//SYSIN    DD  DSN=DSN!!0.SDSNSAMP(DSN8CCD),
//             DISP=SHR
//*
//*        STEP  3: PREPARE CICS COBOL PROGRAMS
//DSNH     EXEC PGM=IKJEFT01,COND=(4,LT),DYNAMNBR=50
//SYSTSPRT DD SYSOUT=*
//SYSTERM  DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//SYSOUT   DD SYSOUT=*
//SYSPROC  DD DSN=DSN!!0.SDSNCLST,DISP=SHR
//SYSTSIN  DD *
  %DSNH INPUT('''DSN!!0.SDSNSAMP(DSN8CC0)''') +
        PLIB('''DSN!!0.SRCLIB.DATA''') +
        P2LIB('''DSN!!0.SDSNSAMP''') +
        TERM(LEAVE) PRINT(LEAVE) SOURCE(NO) XREF(NO) +
        HOST(IBMCOB) RUN(CICS) BIND(NO) +
        DELIM(APOST) SQLDELIM(APOSTSQL) +
        DBRMLIB('''DSN!!0.DBRMLIB.DATA''')   +
        PRELINK(YES) +
        LLIB('''DSN!!0.RUNLIB.LOAD''')   +
        COBICOMP('''IGY.V!R!M!.SIGYCOMP(IGYCRCTL)''') +
        COPTION('''NOSEQUENCE,QUOTE,RENT,PGMNAME(LONGUPPER)''') +
        LOPTION('LIST,XREF,MAP,RENT') +
        STDSQL(NO) +
        XLIB('''DSN!!0.SDSNLOAD''')  +
        LOAD('''DSN!!0.RUNLIB.LOAD''')
  %DSNH INPUT('''DSN!!0.SDSNSAMP(DSN8CC1)''') +
        PLIB('''DSN!!0.SRCLIB.DATA''') +
        P2LIB('''DSN!!0.SDSNSAMP''') +
        TERM(LEAVE) PRINT(LEAVE) SOURCE(NO) XREF(NO) +
        HOST(IBMCOB) RUN(CICS) BIND(NO) +
        DELIM(APOST) SQLDELIM(APOSTSQL)  +
        DBRMLIB('''DSN!!0.DBRMLIB.DATA''')   +
        PRELINK(YES) +
        LLIB('''DSN!!0.RUNLIB.LOAD''')   +
        COBICOMP('''IGY.V!R!M!.SIGYCOMP(IGYCRCTL)''') +
        COPTION('''NOSEQUENCE,QUOTE,RENT,PGMNAME(LONGUPPER)''') +
        LOPTION('LIST,XREF,MAP,RENT') +
        STDSQL(NO) +
        XLIB('''DSN!!0.SDSNLOAD''')  +
        LOAD('''DSN!!0.RUNLIB.LOAD''')
  %DSNH INPUT('''DSN!!0.SDSNSAMP(DSN8CC2)''') +
        PLIB('''DSN!!0.SRCLIB.DATA''') +
        P2LIB('''DSN!!0.SDSNSAMP''') +
        TERM(LEAVE) PRINT(LEAVE) SOURCE(NO) XREF(NO) +
        HOST(IBMCOB) RUN(CICS) BIND(NO) +
        DELIM(APOST) SQLDELIM(APOSTSQL)  +
        DBRMLIB('''DSN!!0.DBRMLIB.DATA''')   +
        PRELINK(YES) +
        LLIB('''DSN!!0.RUNLIB.LOAD''')   +
        COBICOMP('''IGY.V!R!M!.SIGYCOMP(IGYCRCTL)''') +
        COPTION('''NOSEQUENCE,QUOTE,RENT,PGMNAME(LONGUPPER)''') +
        LOPTION('LIST,XREF,MAP,RENT') +
        STDSQL(NO) +
        XLIB('''DSN!!0.SDSNLOAD''') +
        LOAD('''DSN!!0.RUNLIB.LOAD''')
//*
//*        STEP  4: BIND THE PROGRAM
//BIND     EXEC PGM=IKJEFT01,DYNAMNBR=20,COND=(4,LT)
//DBRMLIB  DD DSN=DSN!!0.DBRMLIB.DATA,DISP=SHR
//SYSUDUMP DD SYSOUT=*
//SYSTSPRT DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//SYSIN    DD *
   SET CURRENT SQLID = 'SYSADM';
   GRANT BIND, EXECUTE ON PLAN DSN8CC0
     TO PUBLIC;
//SYSTSIN  DD *
DSN SYSTEM(DSN)
BIND PACKAGE (DSN8CC!!) MEMBER(DSN8CC0) APPLCOMPAT(V!!R1) +
     ACT(REP) ISO(CS) CURRENTDATA(YES) ENCODING(EBCDIC)
BIND PACKAGE (DSN8CC!!) MEMBER(DSN8CC1) APPLCOMPAT(V!!R1) +
     ACT(REP) ISO(CS) CURRENTDATA(YES) ENCODING(EBCDIC)
BIND PACKAGE (DSN8CC!!) MEMBER(DSN8CC2) APPLCOMPAT(V!!R1) +
     ACT(REP) ISO(CS) CURRENTDATA(YES) ENCODING(EBCDIC)
BIND PLAN(DSN8CC0)  PKLIST(DSN8CC!!.*) -
     ACTION(REPLACE) RETAIN +
     ISO(CS) CURRENTDATA(YES) ENCODING(EBCDIC)
RUN  PROGRAM(DSNTIAD) PLAN(DSNTIA!!) -
     LIB('DSN!!0.RUNLIB.LOAD')
END
//*
//*        STEP  5: CREATE THE CICS BMS PHYSICAL MAP
//MAPGP   EXEC DFHASMVS,COND=(4,LT),OUTC='*'
//SYSPUNCH DD  DSN=&&TEMP,
//             DISP=(,PASS),
//             UNIT=SYSDA,SPACE=(1024,(100,10)),
//             DCB=(RECFM=F,BLKSIZE=80)
//SYSIN    DD  DSN=DSN!!0.SDSNSAMP(DSN8CCG),
//             DISP=SHR
//*
//*        STEP  6: LINKEDIT THE CICS BMS PHYSICAL MAP
//MAPGL    EXEC PGM=IEWL,PARM='LIST,LET,XREF',COND=(4,LT)
//SYSUT1   DD UNIT=SYSDA,SPACE=(1024,(100,10))
//SYSLMOD  DD DSN=DSN!!0.RUNLIB.LOAD,DISP=SHR
//SYSPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//SYSLIN   DD DSN=&&TEMP,DISP=(OLD,DELETE)
//         DD *
 NAME DSN8CCG(R)
//*
//*        STEP  7: CREATE THE CICS BMS PHYSICAL MAP
//MAPDP   EXEC DFHASMVS,COND=(4,LT),OUTC='*'
//SYSPUNCH DD  DSN=&&TEMP,
//             DISP=(,PASS),
//             UNIT=SYSDA,SPACE=(1024,(100,10)),
//             DCB=(RECFM=F,BLKSIZE=80)
//SYSIN    DD  DSN=DSN!!0.SDSNSAMP(DSN8CCD),
//             DISP=SHR
//*
//*        STEP  8: LINKEDIT THE CICS BMS PHYSICAL MAP
//MAPDL    EXEC PGM=IEWL,PARM='LIST,LET,XREF',COND=(4,LT)
//SYSUT1   DD UNIT=SYSDA,SPACE=(1024,(100,10))
//SYSLMOD  DD DSN=DSN!!0.RUNLIB.LOAD,DISP=SHR
//SYSPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//SYSLIN   DD DSN=&&TEMP,DISP=(OLD,DELETE)
//         DD *
 NAME DSN8CCD(R)