DSNTEJ6Z

//*
//*    DB2 Sample Application
//*    Phase 6
//*    Sample Caller of Stored Procedure - ADMIN_INFO_SYSPARM
//*    C language
//*
//*
//*    LICENSED MATERIALS - PROPERTY OF IBM
//*    5650-DB2
//*    (C) COPYRIGHT 1982, 2016 IBM CORP.  ALL RIGHTS RESERVED.
//*
//*  Status = VERSION 12
//*
//*  Function =
//*    This JCL prepares and executes DSN8ED7, a sample caller of
//*    ADMIN_INFO_SYSPARM, a DB2-provided stored procedure that returns
//*    the current settings of your DB2 subsystem parameters.  After
//*    calling ADMIN_INFO_SYSPARM, DSN8ED7 formats the results in a
//*    report format.
//*
//*  Pseudocode =
//*    PH06ZS01 Step     Prepare DSN8ED7
//*    PH06ZS02 Step     Bind the plan and package for DSN8ED7
//*    PH06ZS03 Step     Invoke DSN8ED7
//*
//*  Dependencies =
//*   - This job requires the DB2-provided JCL procedure DSNHC
//*
//*  Notes =
//*
//*  Change Activity =
//*    10/16/2013 Don't use prelinker by default         PI13612 DM1812
//*    08/18/2014 Single-phase migration            s21938_inst1 s21938
//*
//*********************************************************************
//*
//JOBLIB   DD  DISP=SHR,DSN=DSN!!0.SDSNEXIT
//         DD  DISP=SHR,DSN=DSN!!0.SDSNLOAD
//         DD  DISP=SHR,DSN=CEE.V!R!M!.SCEERUN
//*
//*   Step  1: Prepare DSN8ED7, sample caller of ADMIN_INFO_SYSPARM
//*
//PH06ZS01 EXEC DSNHC,MEM=DSN8ED7,COND=(4,LT),
//         PARM.PC=('HOST(C),CCSID(1047),MARGINS(1,72),STDSQL(NO)',
//             SOURCE,XREF),
//         PARM.C='SOURCE LIST MAR(1,72) LO RENT OPTFILE(DD:CCOPTS)',
//         PARM.LKED='AMODE=31,RMODE=ANY,MAP,RENT,REUS,UPCASE'
//PC.DBRMLIB   DD DSN=DSN!!0.DBRMLIB.DATA(DSN8ED7),
//             DISP=SHR
//PC.SYSLIB    DD DSN=DSN!!0.SRCLIB.DATA,
//             DISP=SHR
//PC.SYSIN     DD DSN=DSN!!0.SDSNSAMP(DSN8ED7),
//             DISP=SHR
//LKED.SYSLMOD DD DSN=DSN!!0.RUNLIB.LOAD(DSN8ED7),
//             DISP=SHR
//LKED.SYSIN   DD *
 INCLUDE SYSLIB(DSNELI)
 INCLUDE SYSLIB(DSNTIAR)
//*
//*   Step  2: Bind the package and plan for DSN8ED7
//*
//PH06ZS02 EXEC PGM=IKJEFT01,DYNAMNBR=20,COND=(4,LT)
//DBRMLIB  DD  DISP=SHR,DSN=DSN!!0.DBRMLIB.DATA
//SYSTSPRT DD  SYSOUT=*
//SYSPRINT DD  SYSOUT=*
//SYSUDUMP DD  SYSOUT=*
//SYSTSIN  DD  *
  DSN SYSTEM(DSN)
    BIND PACKAGE(DSN8ED!!) MEMBER(DSN8ED7) APPLCOMPAT(V!!R1) +
         ACT(REP) ISO(CS) CURRENTDATA(YES) ENCODING(EBCDIC)
    BIND PLAN(DSN8ED7) -
         PKLIST(DSN8ED!!.DSN8ED7 ) -
         ACTION(REPLACE) RETAIN +
         ISO(CS) CURRENTDATA(YES) ENCODING(EBCDIC)
    RUN PROGRAM(DSNTIAD) PLAN(DSNTIA!!) -
        LIB('DSN!!0.RUNLIB.LOAD')
  END
//SYSIN    DD  *
  SET CURRENT SQLID = 'SYSADM';
  GRANT BIND, EXECUTE ON PLAN DSN8ED7
    TO PUBLIC;
//*
//*   Step  3: Invoke DSN8ED7
//*
//PH06ZS03 EXEC PGM=IKJEFT01,DYNAMNBR=20,COND=(4,LT)
//SYSTSPRT DD  SYSOUT=*
//SYSPRINT DD  SYSOUT=*
//SYSUDUMP DD  SYSOUT=*
//SYSTSIN  DD  *
  DSN SYSTEM(DSN)
    RUN PROGRAM(DSN8ED7) PLAN(DSN8ED7) -
        LIB('DSN!!0.RUNLIB.LOAD')
  END
/*