//PCB6601B JOB (ACCOUNT,NUMBER),'NAME',
//         MSGCLASS=X,REGION=4M
//*-------------------------------------------------------------------*
//*                                                                   *
//* STERLING GENTRAN:BASIC - VERSION 6.6.0.1                          *
//*                                                                   *
//* LICENSED MATERIALS - PROPERTY OF IBM                              *
//*                                                                   *
//* (C) COPYRIGHT IBM CORP. (1988, 2011) ALL RIGHTS RESERVED          *
//*                                                                   *
//* US GOVERNMENT USERS RESTRICTED RIGHTS - USE, DUPLICATION OR       *
//* DISCLOSURE RESTRICTED BY GSA ADP SCHEDULE CONTRACT WITH IBM CORP. *
//*                                                                   *
//*-------------------------------------------------------------------*
//*                                                                   *
//* PCB6601B - UNLOAD FILES FROM PRODUCT UPLOAD FILE                  *
//*                                                                   *
//*-------------------------------------------------------------------*
//*                                                                   *
//* PCB6601A MUST RUN BEFORE THIS JOB TO ALLOCATE THE UPLOAD FILE.    *
//* NEXT THE UPLOAD FILE MUST BE FTP'D FROM THE PC.                   *
//*                                                                   *
//* AFTER THIS JOB HAS FINISHED, YOU HAVE ALL THE SEQUENTIAL FILES    *
//* AVAILABLE TO COMPLETE THE INSTALLATION PROCESS.                   *
//*                                                                   *
//*-------------------------------------------------------------------*
//* TO CUSTOMIZE THIS JCL FOR YOUR INSTALLATION PERFORM THE FOLLOWING
//* STEPS:
//*           1. ADD THE APPROPRIATE JOB CARD
//*           2. CHANGE "UNIT=DISK" TO AN APPROPRIATE UNIT USED AT
//*              YOUR INSTALLATION
//*           3. IF YOUR INSTALLATION USES SMS TO ALLOCATE DATA SETS,
//*              YOU DON'T NEED TO CHANGE THE "XXXXXX" VOLUME SERIAL
//*              NUMBER SPECIFIED IN THIS JCL.  SMS WILL IGNORE IT.
//*
//*              OTHERWISE, YOU SHOULD CHANGE IT TO THE VOLUME SERIAL
//*              NUMBER WHERE YOU WANT TO ALLOCATE THE TEMPORARY PDS
//*              DATA SET.  IF YOU WANT TO CONTROL WHERE THE OTHER DATA
//*              SETS ARE ALLOCATED, YOU SHOULD ALSO APPEND THE VOLUME
//*              PARAMETER TO THE DSNAME PARAMETER (AS SHOWN HERE) TO
//*              EVERY DATA SET EXCEPT THE TEMPORARY PDS.
//*
//*                 DSNAME('GENTRAN.V6601.BSC.*.*') VOLUME(XXXXXX)
//*
//*           4. CHANGE THE DATA SET NAMES TO MATCH YOUR INSTALLATION'S
//*              INTERNAL REQUIREMENTS. THE FOLLOWING LIST SHOWS THE
//*              HIGH LEVEL PORTION OF THE NAME THAT SHOULD BE CHANGED:
//*
//*              "GENTRAN.V6601.BSC.UPLOAD" FOR THE UPLOAD FILE THAT
//*                                        CONTAINS THE PRODUCT FTP.
//*              "GENTRAN.V6601.BSC.TEMP" FOR TEMPORARY FILES THAT
//*                                        ARE DELETED AT EOJ.
//*    INPUT FILE FROM FTP:
//*    GENTRAN.V6601.BSC.UPLOAD.BSC6601
//*
//*    IF YOU CHANGED THIS DATASET NAME IN PCB6601A, IT MUST ALSO BE
//*    CHANGED IN THIS JOB TO MATCH.
//*
//*    TEMPORARY FILES DELETED WHEN JOB FINISHES:
//*    GENTRAN.V6601.BSC.TEMP.PCBSCPD2.LOG
//*    GENTRAN.V6601.BSC.TEMP.PCBSCPD2.PDS
//*
//*    PRODUCT FILES USED BY LATER INSTALL JOBS:
//*    GENTRAN.V6601.BSC.BATCH.LOAD
//*    GENTRAN.V6601.BSC.CICS.LOAD
//*    GENTRAN.V6601.BSC.README
//*    GENTRAN.V6601.BSC.UTILITY.SOURCE
//*
//*-------------------------------------------------------------------*
//*
//*********************************************************************
//*  BSC01 - DELETE EXISTING FILES
//*********************************************************************
//*
//BSC01    EXEC PGM=IDCAMS,COND=(0,LT)
//SYSPRINT DD SYSOUT=*
//SYSIN    DD *
  DELETE GENTRAN.V6601.BSC.TEMP.PCBSCPD2.PDS
  DELETE GENTRAN.V6601.BSC.TEMP.PCBSCPD2.LOG
  DELETE GENTRAN.V6601.BSC.BATCH.LOAD
  DELETE GENTRAN.V6601.BSC.CICS.LOAD
  DELETE GENTRAN.V6601.BSC.UTILITY.SOURCE
  DELETE GENTRAN.V6601.BSC.README
  SET MAXCC=0
//*
//*********************************************************************
//*  BSC02 - ALLOCATE TEMPORARY DATA SET
//*********************************************************************
//*
//BSC02    EXEC PGM=IEFBR14,COND=(0,LT)
//PDS      DD DSN=GENTRAN.V6601.BSC.TEMP.PCBSCPD2.PDS,
//            DISP=(NEW,CATLG,CATLG),
//            UNIT=DISK,
//            SPACE=(CYL,(75,10,50)),
//            DCB=(RECFM=FB,LRECL=80,BLKSIZE=0),DSNTYPE=PDS
//*
//*********************************************************************
//*  BSC03 - UNCOMPRESS FILE FROM FTP UPLOAD
//*********************************************************************
//*
//BSC03    EXEC PGM=IKJEFT01,REGION=3M,DYNAMNBR=30,COND=(0,LT)
//SYSPROC  DD DSN=SYS1.LINKLIB,DISP=SHR
//SYSPRINT DD SYSOUT=*
//SYSTERM  DD SYSOUT=*
//SYSTSPRT DD SYSOUT=*
//INPUT    DD DSN=GENTRAN.V6601.BSC.UPLOAD.BSC6601,
//            DISP=SHR
//SYSTSIN  DD *
  PROFILE NOPREFIX
  RECEIVE INDDNAME(INPUT) +
  LOGDATASET('GENTRAN.V6601.BSC.TEMP.PCBSCPD2.LOG')
  DSNAME('GENTRAN.V6601.BSC.TEMP.PCBSCPD2.PDS')
//*
//*********************************************************************
//*  BSC04 - COPY BATCH LOAD LIBRARY
//*********************************************************************
//*
//BSC04    EXEC PGM=IKJEFT01,REGION=3M,DYNAMNBR=30,COND=(0,LT)
//SYSPROC  DD DSN=SYS1.LINKLIB,DISP=SHR
//SYSPRINT DD SYSOUT=*
//SYSTERM  DD SYSOUT=*
//SYSTSPRT DD SYSOUT=*
//INPUT    DD DSN=GENTRAN.V6601.BSC.TEMP.PCBSCPD2.PDS(BTCHLOD),
//            DISP=SHR
//SYSTSIN  DD *
  PROFILE NOPREFIX
  RECEIVE INDDNAME(INPUT) +
  LOGDATASET('GENTRAN.V6601.BSC.TEMP.PCBSCPD2.LOG')
  DSNAME('GENTRAN.V6601.BSC.BATCH.LOAD')
//*
//*********************************************************************
//*  BSC05 - COPY CICS LOAD LIBRARY
//*********************************************************************
//*
//BSC05    EXEC PGM=IKJEFT01,REGION=3M,DYNAMNBR=30,COND=(0,LT)
//SYSPROC  DD DSN=SYS1.LINKLIB,DISP=SHR
//SYSPRINT DD SYSOUT=*
//SYSTERM  DD SYSOUT=*
//SYSTSPRT DD SYSOUT=*
//INPUT    DD DSN=GENTRAN.V6601.BSC.TEMP.PCBSCPD2.PDS(CICSLOD),
//            DISP=SHR
//SYSTSIN  DD *
  PROFILE NOPREFIX
  RECEIVE INDDNAME(INPUT) +
  LOGDATASET('GENTRAN.V6601.BSC.TEMP.PCBSCPD2.LOG')
  DSNAME('GENTRAN.V6601.BSC.CICS.LOAD')
//*
//*********************************************************************
//*  BSC06 - COPY UTILITY SOURCE LIBRARY
//*********************************************************************
//*
//BSC06    EXEC PGM=IKJEFT01,REGION=3M,DYNAMNBR=30,COND=(0,LT)
//SYSPROC  DD DSN=SYS1.LINKLIB,DISP=SHR
//SYSPRINT DD SYSOUT=*
//SYSTERM  DD SYSOUT=*
//SYSTSPRT DD SYSOUT=*
//INPUT    DD DSN=GENTRAN.V6601.BSC.TEMP.PCBSCPD2.PDS(UTILSRC),
//            DISP=SHR
//SYSTSIN  DD *
  PROFILE NOPREFIX
  RECEIVE INDDNAME(INPUT) +
  LOGDATASET('GENTRAN.V6601.BSC.TEMP.PCBSCPD2.LOG')
  DSNAME('GENTRAN.V6601.BSC.UTILITY.SOURCE')
//*
//*********************************************************************
//*  BSC09 - COPY README
//*********************************************************************
//*
//BSC09    EXEC PGM=IKJEFT01,REGION=3M,DYNAMNBR=30,COND=(0,LT)
//SYSPROC  DD DSN=SYS1.LINKLIB,DISP=SHR
//SYSPRINT DD SYSOUT=*
//SYSTERM  DD SYSOUT=*
//SYSTSPRT DD SYSOUT=*
//INPUT    DD DSN=GENTRAN.V6601.BSC.TEMP.PCBSCPD2.PDS(README),
//            DISP=SHR
//SYSTSIN  DD *
  PROFILE NOPREFIX
  RECEIVE INDDNAME(INPUT) +
  LOGDATASET('GENTRAN.V6601.BSC.TEMP.PCBSCPD2.LOG')
  DSNAME('GENTRAN.V6601.BSC.README')
//*
//*********************************************************************
//*  BSC55 - DELETE TEMPORARY DATA SETS
//*********************************************************************
//*
//BSC55    EXEC PGM=IDCAMS,COND=(0,LT)
//SYSPRINT DD SYSOUT=*
//SYSIN    DD *
  DELETE GENTRAN.V6601.BSC.TEMP.PCBSCPD2.PDS
  DELETE GENTRAN.V6601.BSC.TEMP.PCBSCPD2.LOG
//