//PCS6601B JOB (ACCOUNT,NUMBER),'NAME',
//         MSGCLASS=X,REGION=4M
//*-------------------------------------------------------------------*
//*                                                                   *
//* STERLING GENTRAN:STRUCTURE - 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. *
//*                                                                   *
//*-------------------------------------------------------------------*
//*                                                                   *
//* PCSTRPD2 - UNLOAD FILES FROM PRODUCT UPLOAD FILE                  *
//*                                                                   *
//*-------------------------------------------------------------------*
//*                                                                   *
//* THIS JOB IS TO BE USED WHEN INSTALLING THE PRODUCT FROM EITHER A  *
//* CD-ROM OR FROM THE INTERNET.                                      *
//*                                                                   *
//* PCSTRPD1 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.STR.*.*') 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.STR.UPLOAD" FOR THE UPLOAD FILE THAT
//*                                        CONTAINS THE PRODUCT FTP.
//*              "GENTRAN.V6601.STR.TEMP" FOR TEMPORARY FILES THAT
//*                                        ARE DELETED AT EOJ.
//*              "GENTRAN.V6601.STR"       FOR THE SEQUENTIAL FILES
//*                                        USED BY THE INSTALL JOBS.
//*
//*    INPUT FILE FROM FTP:
//*    GENTRAN.V6601.STR.UPLOAD.STR6601
//*
//*    IF YOU CHANGED THIS DATASET NAME IN PCR6601A, IT MUST ALSO BE
//*    CHANGED IN THIS JOB TO MATCH.
//*
//*    TEMPORARY FILES DELETED WHEN JOB FINISHES:
//*    GENTRAN.V6601.STR.TEMP.PCSTRPD2.LOG
//*    GENTRAN.V6601.STR.TEMP.PCSTRPD2.PDS
//*
//*    PRODUCT FILES USED BY LATER INSTALL JOBS:
//*    GENTRAN.V6601.STR.BATCH.LOAD
//*    GENTRAN.V6601.STR.CICS.LOAD
//*    GENTRAN.V6601.STR.README
//*
//*-------------------------------------------------------------------*
//*
//*********************************************************************
//*  STR01 - DELETE EXISTING FILES
//*********************************************************************
//*
//STR01    EXEC PGM=IDCAMS,COND=(0,LT)
//SYSPRINT DD SYSOUT=*
//SYSIN    DD *
  DELETE GENTRAN.V6601.STR.TEMP.PCSTRPD2.PDS
  DELETE GENTRAN.V6601.STR.TEMP.PCSTRPD2.LOG
  DELETE GENTRAN.V6601.STR.BATCH.LOAD
  DELETE GENTRAN.V6601.STR.CICS.LOAD
  DELETE GENTRAN.V6601.STR.README
  SET MAXCC=0
//*
//*********************************************************************
//*  STR02 - ALLOCATE TEMPORARY DATA SET
//*********************************************************************
//*
//STR02    EXEC PGM=IEFBR14,COND=(0,LT)
//PDS      DD DSN=GENTRAN.V6601.STR.TEMP.PCSTRPD2.PDS,
//            DISP=(NEW,CATLG,CATLG),
//            UNIT=DISK,
//            SPACE=(CYL,(100,10,50)),
//            DCB=(RECFM=FB,LRECL=80,BLKSIZE=0),DSNTYPE=PDS
//*
//*********************************************************************
//*  STR03 - UNCOMPRESS FILE FROM FTP UPLOAD
//*********************************************************************
//*
//STR03    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.STR.UPLOAD.STR6601,
//            DISP=SHR
//SYSTSIN  DD *
  PROFILE NOPREFIX
  RECEIVE INDDNAME(INPUT) +
  LOGDATASET('GENTRAN.V6601.STR.TEMP.PCSTRPD2.LOG')
  DSNAME('GENTRAN.V6601.STR.TEMP.PCSTRPD2.PDS')
//*
//*********************************************************************
//*  STR04 - COPY BATCH LOAD LIBRARY
//*********************************************************************
//*
//STR04    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.STR.TEMP.PCSTRPD2.PDS(BTCHLOD),
//            DISP=SHR
//SYSTSIN  DD *
  PROFILE NOPREFIX
  RECEIVE INDDNAME(INPUT) +
  LOGDATASET('GENTRAN.V6601.STR.TEMP.PCSTRPD2.LOG')
  DSNAME('GENTRAN.V6601.STR.BATCH.LOAD')
//*
//*********************************************************************
//*  STR05 - COPY CICS LOAD LIBRARY
//*********************************************************************
//*
//STR05    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.STR.TEMP.PCSTRPD2.PDS(CICSLOD),
//            DISP=SHR
//SYSTSIN  DD *
  PROFILE NOPREFIX
  RECEIVE INDDNAME(INPUT) +
  LOGDATASET('GENTRAN.V6601.STR.TEMP.PCSTRPD2.LOG')
  DSNAME('GENTRAN.V6601.STR.CICS.LOAD')
//*
//*********************************************************************
//*  STR08 - COPY README FILE
//*********************************************************************
//*
//STR08    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.STR.TEMP.PCSTRPD2.PDS(README),
//            DISP=SHR
//SYSTSIN  DD *
  PROFILE NOPREFIX
  RECEIVE INDDNAME(INPUT) +
  LOGDATASET('GENTRAN.V6601.STR.TEMP.PCSTRPD2.LOG')
  DSNAME('GENTRAN.V6601.STR.README')
//*
//*********************************************************************
//*  STR66 - DELETE TEMPORARY DATA SETS
//*********************************************************************
//*
//STR66    EXEC PGM=IDCAMS,COND=(0,LT)
//SYSPRINT DD SYSOUT=*
//SYSIN    DD *
  DELETE GENTRAN.V6601.STR.TEMP.PCSTRPD2.PDS
  DELETE GENTRAN.V6601.STR.TEMP.PCSTRPD2.LOG
//