DSNTEJ4C

//*********************************************************************
//*  NAME = DSNTEJ4C
//*
//*  DESCRIPTIVE NAME = DB2 SAMPLE APPLICATION
//*                     PHASE 4
//*                     COBOL, IMS
//*
//*    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 4 SETUP FOR THE SAMPLE
//*             APPLICATIONS AT SITES WITH COBOL.  IT PREPARES THE
//*             COBOL IMS PROGRAM.
//*
//*             RUN THIS JOB ANYTIME AFTER PHASE 2.
//*
//*  CHANGE ACTIVITY =
//*    08/18/2014 Single-phase migration            s21938_inst1 s21938
//*
//*********************************************************************
//*
//JOBLIB  DD  DSN=DSN!!0.SDSNLOAD,DISP=SHR
//*        STEP  1: PREPARE SQL 0 PART OF PROGRAM
//PH04CS01 EXEC DSNHICOB,
//         PARM.PC=('HOST(IBMCOB)',APOST,APOSTSQL,SOURCE,
//         NOXREF,'SQL(DB2)','DEC(31)'),
//         PARM.COB=(NOSEQUENCE,QUOTE,RENT,'PGMNAME(LONGUPPER)'),
//         PARM.LKED='XREF,NCAL',
//         MEM=DSN8IC0
//PC.DBRMLIB   DD DSN=DSN!!0.DBRMLIB.DATA(DSN8IC0),
//             DISP=SHR
//PC.SYSCIN    DD DSN=&&DSNHOUT0
//PC.SYSLIB    DD DSN=DSN!!0.SRCLIB.DATA,
//             DISP=SHR
//             DD DSN=DSN!!0.SDSNSAMP,
//             DISP=SHR
//PC.SYSIN     DD DSN=DSN!!0.SDSNSAMP(DSN8IC0),
//             DISP=SHR
//COB.SYSIN    DD DSN=&&DSNHOUT0
//LKED.SYSLMOD DD DSN=DSN!!0.RUNLIB.LOAD(DSN8IC0),
//             DISP=SHR
//*
//*        STEP  2: PREPARE SQL 1 PART OF PROGRAM
//PH04CS02 EXEC DSNHICOB,
//         PARM.PC=('HOST(IBMCOB)',APOST,APOSTSQL,SOURCE,
//         NOXREF,'SQL(DB2)','DEC(31)'),
//         PARM.COB=(NOSEQUENCE,QUOTE,RENT,'PGMNAME(LONGUPPER)'),
//         PARM.LKED='XREF,NCAL',
//         COND=(4,LT),
//         MEM=DSN8IC1
//PC.DBRMLIB   DD DSN=DSN!!0.DBRMLIB.DATA(DSN8IC1),
//             DISP=SHR
//PC.SYSCIN    DD DSN=&&DSNHOUT1
//PC.SYSLIB    DD DSN=DSN!!0.SRCLIB.DATA,
//             DISP=SHR
//             DD DSN=DSN!!0.SDSNSAMP,
//             DISP=SHR
//PC.SYSIN     DD DSN=DSN!!0.SDSNSAMP(DSN8IC1),
//             DISP=SHR
//COB.SYSIN    DD DSN=&&DSNHOUT1
//LKED.SYSLMOD DD DSN=DSN!!0.RUNLIB.LOAD(DSN8IC1),
//             DISP=SHR
//*
//*        STEP  3: PREPARE SQL 2 PART OF PROGRAM
//PH04CS03 EXEC DSNHICOB,
//         PARM.PC=('HOST(IBMCOB)',APOST,APOSTSQL,SOURCE,
//         NOXREF,'SQL(DB2)','DEC(31)'),
//         PARM.COB=(NOSEQUENCE,QUOTE,RENT,'PGMNAME(LONGUPPER)'),
//         PARM.LKED='XREF,NCAL',
//         COND=(4,LT),
//         MEM=DSN8IC2
//PC.DBRMLIB   DD DSN=DSN!!0.DBRMLIB.DATA(DSN8IC2),
//             DISP=SHR
//PC.SYSCIN    DD DSN=&&DSNHOUT2
//PC.SYSLIB    DD DSN=DSN!!0.SRCLIB.DATA,
//             DISP=SHR
//             DD DSN=DSN!!0.SDSNSAMP,
//             DISP=SHR
//PC.SYSIN     DD DSN=DSN!!0.SDSNSAMP(DSN8IC2),
//             DISP=SHR
//COB.SYSIN    DD DSN=&&DSNHOUT2
//LKED.SYSLMOD DD DSN=DSN!!0.RUNLIB.LOAD(DSN8IC2),
//             DISP=SHR
//*
//*        STEP  4: LINKEDIT THE ENTIRE PROGRAM
//PH04CS04 EXEC PGM=IEWL,PARM='LIST,XREF,LET',COND=(4,LT)
//SYSLIB   DD DISP=SHR,DSN=CEE.V!R!M!.SCEELKED
//         DD DISP=SHR,DSN=DSN!!0.SDSNLOAD
//         DD DISP=SHR,DSN=IMSVS.RESLIB
//SYSLIN   DD DDNAME=SYSIN
//SYSLMOD  DD DISP=SHR,DSN=DSN!!0.RUNLIB.LOAD
//SYSPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//SYSUT1   DD UNIT=SYSDA,SPACE=(1024,(50,50))
//SYSIN    DD *
  INCLUDE SYSLIB(DFSLI000)
  INCLUDE SYSLMOD(DSN8IC0)
  INCLUDE SYSLMOD(DSN8IC1)
  INCLUDE SYSLMOD(DSN8IC2)
  INCLUDE SYSLMOD(DSN8MCG)
  ENTRY   DLITCBL
  NAME    DSN8IC0(R)
//*
//*        STEP  5: BIND THE PLAN
//PH04CS05 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 DSN8IC0
     TO PUBLIC;
//SYSTSIN  DD *
DSN SYSTEM(DSN)
BIND PACKAGE (DSN8IC!!) MEMBER(DSN8IC1) APPLCOMPAT(V!!R1) +
     ACT(REP) ISO(CS) CURRENTDATA(YES) ENCODING(EBCDIC)
BIND PACKAGE (DSN8IC!!) MEMBER(DSN8IC2) APPLCOMPAT(V!!R1) +
     ACT(REP) ISO(CS) CURRENTDATA(YES) ENCODING(EBCDIC)
BIND PLAN(DSN8IC0) PKLIST(DSN8IC!!.*) -
     ACTION(REPLACE) RETAIN +
     ISO(CS) CURRENTDATA(YES) ENCODING(EBCDIC)
RUN  PROGRAM(DSNTIAD) PLAN(DSNTIA!!) -
      LIB('DSN!!0.RUNLIB.LOAD')
END
//*
//*        STEP  6: CREATE THE MFS MAPS
//PH04CS06 EXEC MFSUTL,COND=(4,LT)
//SYSIN DD DSN=DSN!!0.SDSNSAMP(DSN8IPG),
//             DISP=SHR
//*
//*        STEP  7: CREATE THE MFS MAPS
//PH04CS07 EXEC MFSUTL,COND=(4,LT)
//SYSIN DD DSN=DSN!!0.SDSNSAMP(DSN8IPD),
//             DISP=SHR
//*
//*        STEP  8: RUN THE PSBGEN
//PH04CS08 EXEC PSBGEN,MBR=DSN8IC0,COND=(4,LT)
//C.SYSIN DD *
         PRINT NOGEN
         PCB   TYPE=TP,EXPRESS=YES,ALTRESP=YES,MODIFY=YES,SAMETRM=YES
         PSBGEN PSBNAME=DSN8IC0,LANG=COBOL
         END
//*
//*        STEP  9: RUN THE ACBGEN
//PH04CS09 EXEC ACBGEN,COND=(4,LT)
//G.SYSIN DD *
 BUILD PSB=DSN8IC0
//*
//*        ALSO ADD MEMBER DSN8FIMS TO THE SYSDEF TO ADD TRANSACTIONS
//*