//RFNJOBH  JOB (ACCT#),'CBLINST',
//             USER=,                                       /* RACF */
//            GROUP=,                                       /* RACF */
//         PASSWORD=,                                       /* RACF */
//           NOTIFY=,
//            CLASS=A,MSGCLASS=X,MSGLEVEL=(1,1)
//*
//* ** RFNJOBH *** ---------------------------------------------------*
//*
//* &PREFIX..RFNJOBH    L=002 --- 2024/04/18 11:52:15 (NBJ)
//*
//*  Licensed Materials - Property of Compute (Bridgend) Ltd
//*
//*  Copyright (C) 2004-2010 - Compute (Bridgend) Ltd.
//*  All rights reserved.
//*
//* ------------------------------------------------------------------*
//*
//*  !!! Ensure CAPS OFF is in effect. !!!
//*  This job contains case sensitive control statements.
//*
//*  Executes SMP/E RECEIVE FROMNETWORK to perform HTTP (non-secure)
//*  transfer of a CBL Product Suite package from the CBL
//*  web server to the local z/OS host.
//*
//*  An existing SMP/E global CSI must be specified for ddname SMPCSI.
//*  For operand TRANSFERONLY, this may be any existing global CSI.
//*  (No processing of package data takes place.)
//*
//*  If you intend to install CBL Product Suite to an existing CSI,
//*  operand TRANSFERONLY may be uncommented so that, following the
//*  transfer, RECEIVE processes the pakage data in the /SMPPTFIN,
//*  /SMPHOLD and /SMPRELF paths for the specified global CSI.
//*  This assumes that required SMP/E zone-related DDDEFs already exist
//*  in the global CSI.  (See "SMP/E for z/OS Commands".)
//*
//*  To avoid space issues, it is recommended that a new file system be
//*  mounted at the SMPNTS path on your host system. This should be
//*  allocated with a SPACE value that can accomodate no less than 3
//*  times the overall product package size.
//*
//*  You must customise this job before running it:
//*
//*   -  Tailor the JOB statement.
//*
//*   -  Tailor SMPCSI DD statement to reference the data set name of
//*      your SMP/E global CSI data set.
//*      The CSI will not be used if TRANSFERONLY operand is specified.
//*
//*   -  Tailor SMPNTS DD statement PATH parameter to be the local
//*      directory into which the package files will be transferred.
//*
//*   -  Uncomment SMPWKDIR DD statement and tailor the PATH if a
//*      separate workspace path linking to a different mounted file
//*      system is to be used.
//*      Note: SMPWKDIR is not used if TRANSFERONLY is specified.
//*      SMPWKDIR is the target path for the unzipped package files.
//*      These are deleted on completion of RECEIVE processing.
//*
//*   -  For SMP/E 34.09 or later...
//*
//*      1. Uncomment the SMPJHOME DD statement and tailor the PATH to
//*         reference the Java runtime libraries
//*         (e.g. '/usr/lpp/java/J8.0/'). SMP/E will then use Java(TM)
//*         to check the SHA-1 package integrity instead of ICSF.
//*
//*      2. Uncomment the SMPCPATH DD statement and tailor the PATH to
//*         reference the SMP/E class libraries.
//*
//*   -  Uncomment TRANSFERONLY operand on the RECEIVE command to
//*      transfer the package to the z/OS host without doing the
//*      RECEIVE to the global zone specified by the SMPCSI DD
//*      statement. This should be done if you want to install the
//*      package into a new, as yet undefined SMP/E environment.
//*      The sample install job ZZSIRECV is supplied as part of the
//*      install package and may be used later in the install procedure
//*      to perform RECEIVE FROMNTS.
//*
//*   -  CLIENT(CLNTPARM) tag and attribute downloadmethod is required
//*      and must be assigned the value "http".
//*      (See "SMP/E for z/OS Commands".)
//*
//*  Notes:
//*
//*  1. Job should complete with a return code 0.
//*
//* ------------------------------------------------------------------*
//* History:
//*
//*  L=003 2024/04/18 -nbj- IQ005508 - CBL Product Suite.
//*  L=001 2023/03/16 -nbj- IQ005496 - Adapted from RFNJOB for http.
//* ------------------------------------------------------------------*
//*
//*
//SMPERFN EXEC PGM=GIMSMP,REGION=0M,
//             PARM='PROCESS=WAIT'
//SMPCSI   DD  DISP=SHR,DSN=CBL.GLOBAL.CSI         <== change this.
//SMPNTS   DD  PATHDISP=KEEP,
//             PATH='/u/smpe/smpnts/'              <== change this.
//*SMPWKDIR DD  PATHDISP=KEEP,
//*             PATH='/u/smpe/workdir/'            <== change this.
//*SMPJHOME DD  PATH='/usr/lpp/java/J8.0_64'       <== change this.
//*SMPCPATH DD  PATH='/usr/lpp/smp/classes/'       <== change this.
//SMPLOG   DD  SYSOUT=*
//SMPOUT   DD  SYSOUT=*
//SMPRPT   DD  SYSOUT=*
//SMPLIST  DD  SYSOUT=*
//SYSPRINT DD  SYSOUT=*
//SMPCNTL  DD  *
  SET BOUNDARY (GLOBAL).
  RECEIVE
      FROMNETWORK(
                  SERVER(SERVPARM)
                  CLIENT(CLNTPARM)
              /*  TRANSFERONLY      */         /*  <== change this. */
                 ).
/*
//*
//* SERVPARM DD input is already customised for this package.
//* Please do not alter this information.
//*
//SERVPARM DD *
  <SERVER   host="www.cbl.com" >
   <PACKAGE
     file="/downloads/mvs/smpe/smpnts/CBL24234/GIMPAF.XML"
     hash="92F7D0D928C1F7230AB7D5458FA85EA0EDE783F9"
       id="CBL24234"
    ></PACKAGE>
  </SERVER>
/*
//*
//* CLNTPARM DD input is required.
//* HTTP and SOCKS Proxy Server tags below are commented out.
//* Remove the XML comment start and end tags to specify HTTP or SOCKS
//* Proxy Server information. The tags are optional and are defined by
//* SMP/E.
//*
//* See "SMP/E for z/OS Commands" manual for CLIENT information.
//*
//CLNTPARM DD *
  <CLIENT    downloadmethod="http" >
<!-- <HTTPPROXY host="server name|server ip address"               -->
<!--   user="userid" pw="password" port="number">                  -->
<!-- </HTTPPROXY>                                                  -->
<!--                                                               -->
<!-- <HTTPSOCKSPROXY host="server name|server ip address"          -->
<!--    user="userid" pw="password" port="number">                 -->
<!-- </HTTPSOCKSPROXY>                                             -->
<!--                                                               -->
  </CLIENT>
/*