DSNTEJ80

//********************************************************************
//*  Name = DSNTEJ80
//*
//*  Descriptive Name =
//*    DB2 Sample Application
//*    Phase 8 (ODBC)
//*    Utility Stored Procedure (DSNUTILS) caller using C and ODBC
//*
//*    LICENSED MATERIALS - PROPERTY OF IBM
//*    5605-DB2
//*    (C) COPYRIGHT 1982, 2010 IBM CORP.  ALL RIGHTS RESERVED.
//*
//*  STATUS = VERSION 12
//*
//*  Function =
//*    This JCL prepares and executes DSN8OD1, a sample application
//*    program that demonstrates using ODBC to invoke DSNUTILS, the
//*    DB2 Utilities Stored Procedure.
//*
//*  Dependencies =
//*  - The following are required to run this job:
//*    - DB2 UDB for OS/390 ODBC
//*    - IBM C/C++ for OS/390
//*    - DSNUTILS, the DB2 UDB for OS/390 Utilities stored procedure
//*    - SDSNSAMP(DSNAOINI), the ODBC sample initialization file (INI)
//*      - Assumes this member has been customized for your system
//*
//*  Notes =
//*    Prior to running this job, customize it for your system:
//*    (1) Add a valid job card
//*    (2) Locate and change all occurrences of the following strings
//*        as indicated:
//*        (A) 'DSN!!0' to the prefix of the target library for DB2 V6
//*        (B) 'CEE!!' to the prefix of your target library for
//*            IBM C/C++ for OS/390
//*        (C) 'CBC!!' to the prefix of your target library for
//*            IBM Language Environment for OS/390
//*        (D) '!SYS1.PROCLIB!' to the name of the system proclib for
//*            DB2 language PROCs
//*        (E) '!LOCATION!' to the location name of the DB2 where the
//*            ODBC connection should be made
//*        (F) '!DB2VER!' to the DB2 version number, e.g. 10, 11, 12.
//*
//*  Notice =
//*    This sample job uses DB2 Utilities. Some utility functions are
//*    elements of separately orderable products.  Successful use of
//*    a particular sample job may be dependent upon the optional
//*    product being licensed and installed in your environment.
//*
//*  Change Activity =
//*    03/13/2014: Add parm 2 to pass in DB2 Version ID         PI12428
//*
//**********************************************************************
//*
//*
//* Step  1: Compile DSN8OD1, sample ODBC caller of DSNUTILS
//*
//PH080S01 EXEC PGM=CBCDRVR,
//             PARM='/CXX OPTFILE(DD:CCOPTS)'
//STEPLIB  DD  DISP=SHR,DSN=CBC!!.SCBCCMP
//         DD  DISP=SHR,DSN=CEE!!.SCEERUN
//SYSLIN   DD  DISP=(,PASS),DSN=&&OBJDECK,
//             UNIT=VIO,SPACE=(TRK,(1,1),RLSE),
//             DCB=(RECFM=FB,LRECL=80)
//SYSPRINT DD  SYSOUT=*
//SYSOUT   DD  SYSOUT=*
//SYSCPRT  DD  SYSOUT=*
//SYSIN    DD  DISP=SHR,DSN=DSN!!0.SDSNSAMP(DSN8OD1)
//CCOPTS   DD  DISP=SHR,DSN=!SYS1.PROCLIB!(DSNHCPPS)
//         DD  *
  LIST
  NOMAR
  SOURCE
  LONG
//SYSUT1   DD  UNIT=VIO,SPACE=(32000,(30,30)),
//             DCB=(RECFM=FB,LRECL=80)
//SYSUT4   DD  UNIT=VIO,SPACE=(32000,(30,30)),
//             DCB=(RECFM=FB,LRECL=80)
//SYSUT5   DD  UNIT=VIO,SPACE=(32000,(30,30)),
//             DCB=(RECFM=FB,LRECL=3200)
//SYSUT6   DD  UNIT=VIO,SPACE=(32000,(30,30)),
//             DCB=(RECFM=FB,LRECL=3200)
//SYSUT7   DD  UNIT=VIO,SPACE=(32000,(30,30)),
//             DCB=(RECFM=FB,LRECL=3200)
//SYSUT8   DD  UNIT=VIO,SPACE=(32000,(30,30)),
//             DCB=(RECFM=FB,LRECL=3200)
//SYSUT9   DD  UNIT=VIO,SPACE=(32000,(30,30)),
//             DCB=(RECFM=VB,LRECL=137)
//SYSUT10  DD  SYSOUT=*
//SYSUT14  DD  UNIT=VIO,SPACE=(32000,(30,30)),
//             DCB=(RECFM=FB,LRECL=3200)
//SYSUT15  DD  SYSOUT=*
//*
//* Step  2: Prelink DSN8OD1
//*
//PH080S02 EXEC PGM=EDCPRLK,COND=(4,LT),
//             PARM='MAP,NOER'
//STEPLIB  DD  DISP=SHR,DSN=CEE!!.SCEERUN
//SYSMSGS  DD  DISP=SHR,DSN=CEE!!.SCEEMSGP(EDCPMSGE)
//SYSLIB   DD  DISP=SHR,DSN=CEE!!.SCEECPP
//SYSIN    DD  DISP=(OLD,DELETE),DSN=&&OBJDECK
//         DD  DISP=SHR,DSN=CBC!!.SCLBSID(IOSTREAM)
//         DD  DISP=SHR,DSN=CBC!!.SCLBSID(COMPLEX)
//         DD  DISP=SHR,DSN=CEE!!.SCEELIB(C128)
//         DD  DISP=SHR,DSN=DSN!!0.SDSNMACS(DSNAOCLI)
//SYSMOD   DD  DISP=(,PASS),DSN=&&PLKSET,
//             UNIT=VIO,SPACE=(32000,(30,30)),
//             DCB=(RECFM=FB,LRECL=80)
//SYSDEFSD DD  DUMMY
//SYSOUT   DD  SYSOUT=*
//SYSPRINT DD  SYSOUT=*
//*
//* Step  3: Link DSN8OD1
//*
//PH080S03 EXEC PGM=HEWL,COND=(4,LT),
//             PARM='AMODE=31,MAP,RENT'
//SYSLIB   DD  DISP=SHR,DSN=CEE!!.SCEELKED
//SYSLIN   DD  DISP=(OLD,DELETE),DSN=*.PH080S02.SYSMOD
//SYSLMOD  DD  DISP=SHR,DSN=DSN!!0.RUNLIB.LOAD(DSN8OD1)
//SYSUT1   DD  UNIT=VIO,SPACE=(32000,(30,30))
//SYSPRINT DD  SYSOUT=*
//*
//* Step  4: Run DSN8OD1 (call DSNUTILS)
//*
//PH080S04 EXEC PGM=DSN8OD1,COND=(4,LT),
//             PARM='/!LOCATION! !DB2VER!'
//STEPLIB  DD  DISP=SHR,DSN=CEE!!.SCEERUN
//         DD  DISP=SHR,DSN=CBC!!.SCLBDLL
//         DD  DISP=SHR,DSN=DSN!!0.SDSNLOAD
//         DD  DISP=SHR,DSN=DSN!!0.RUNLIB.LOAD
//DSNAOINI DD  DISP=SHR,DSN=DSN!!0.SDSNSAMP(DSNAOINI)
//SYSOUT   DD  SYSOUT=*
//SYSPRINT DD  SYSOUT=*
//CEEDUMP  DD  SYSOUT=*