DSNTEJ2F

//*********************************************************************
//*  NAME = DSNTEJ2F
//*
//*  DESCRIPTIVE NAME = DB2  SAMPLE APPLICATION
//*                     PHASE 2
//*                     FORTRAN
//*
//*    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 2 SETUP FOR THE SAMPLE
//*             APPLICATIONS AT SITES WITH FORTRAN.  IT PREPARES
//*             AND EXECUTES THE FORTRAN BATCH PROGRAM.
//*
//*             THIS JOB IS RUN AFTER PHASE 1.
//*
//*  CHANGE ACTIVITY =
//*    08/18/2014 Single-phase migration            s21938_inst1 s21938
//*
//*********************************************************************
//*
//JOBLIB   DD  DSN=DSN!!0.SDSNLOAD,DISP=SHR
//         DD  DSN=SYS1.VSF2FORT,DISP=SHR
//*        STEP  1: PREPARE DSNTIR ROUTINE
//PH02FS01 EXEC DSNHASM,MEM=DSNTIR,
//         PARM.PC='HOST(ASM),STDSQL(NO)',
//         PARM.ASM='RENT,OBJECT,NODECK',
//         PARM.LKED='XREF,NCAL'
//PC.DBRMLIB   DD DSN=DSN!!0.DBRMLIB.DATA(DSNTIR),
//             DISP=SHR
//PC.SYSLIB    DD DSN=DSN!!0.SRCLIB.DATA,
//             DISP=SHR
//             DD DSN=DSN!!0.SDSNSAMP,
//             DISP=SHR
//PC.SYSIN     DD DSN=DSN!!0.SDSNSAMP(DSNTIR),
//             DISP=SHR
//ASM.SYSLIB   DD DSN=DSN!!0.SDSNSAMP,
//             DISP=SHR
//             DD DSN=SYS1.MACLIB,DISP=SHR
//LKED.SYSLMOD DD DSN=DSN!!0.RUNLIB.LOAD(DSNTIR),
//             DISP=SHR
//LKED.SYSIN   DD *
   ENTRY   DSNTIR
   NAME    DSNTIR(R)
//*
//*        STEP  2: PREPARE TELEPHONE PROGRAM
//PH02FS02 EXEC DSNHFOR,MEM=DSN8BF3,
//         COND=(4,LT),
//         PARM.PC='HOST(FORTRAN),SOURCE,XREF,STDSQL(NO)',
//         PARM.FORT='MAP,GOSTMT,SOURCE,XREF'
//PC.DBRMLIB   DD DSN=DSN!!0.DBRMLIB.DATA(DSN8BF3),
//             DISP=SHR
//PC.SYSLIB    DD DSN=DSN!!0.SRCLIB.DATA,
//             DISP=SHR
//PC.SYSIN     DD DSN=DSN!!0.SDSNSAMP(DSN8BF3),
//             DISP=SHR
//LKED.SYSLIB  DD
//             DD
//             DD DSN=DSN!!0.RUNLIB.LOAD,
//             DISP=SHR
//LKED.SYSLMOD DD DSN=DSN!!0.RUNLIB.LOAD(DSN8BF3),
//             DISP=SHR
//LKED.SYSIN   DD *
     INCLUDE SYSLIB(DSNHFT)
//*
//*        STEP  3: BIND AND RUN PROGRAM
//PH02FS03 EXEC PGM=IKJEFT01,DYNAMNBR=20,COND=(4,LT)
//DBRMLIB  DD DSN=DSN!!0.DBRMLIB.DATA,DISP=SHR
//SYSTSPRT DD SYSOUT=*
//FT06F001 DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//SYSIN    DD *
   SET CURRENT SQLID = 'SYSADM';
   GRANT BIND, EXECUTE ON PLAN DSN8BF!!
     TO PUBLIC;
//SYSTSIN DD *
 DSN SYSTEM(DSN)
 BIND PACKAGE(DSN8BF!!) MEMBER(DSN8BF3) APPLCOMPAT(V!!R1) +
      ACT(REP) ISO(CS) CURRENTDATA(YES) ENCODING(EBCDIC)
 BIND PLAN(DSN8BF!!) PKLIST(DSN8BF!!.*) +
      ACTION(REPLACE) RETAIN +
      ISO(CS) CURRENTDATA(YES) ENCODING(EBCDIC)
 RUN  PROGRAM(DSN8BF3) PLAN(DSN8BF!!) -
      LIB('DSN!!0.RUNLIB.LOAD')
 RUN  PROGRAM(DSNTIAD) PLAN(DSNTIA!!) -
      LIB('DSN!!0.RUNLIB.LOAD')
 END
//FT05F001 DD *
L*
LJO%
L%SON
LSMITH
LBROWN          ALAN
LBROWN          DAVID
U                           0002304265
//*