//PCB6601A JOB (ACCOUNT,NUMBER),'NAME',
//         MSGCLASS=X,REGION=1024K
//*-------------------------------------------------------------------*
//*                                                                   *
//* 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. *
//*                                                                   *
//*-------------------------------------------------------------------*
//*                                                                   *
//* PCB6601A - ALLOCATE PRODUCT UPLOAD FILE ON MAINFRAME              *
//*                                                                   *
//*-------------------------------------------------------------------*
//*                                                                   *
//* ONCE THIS JOB IS RUN, YOU MAY PROCEED WITH THE UPLOAD FROM THE    *
//* PC. NOTE THAT AFTER THE UPLOAD, YOU MUST STILL RUN PCB6601B TO    *
//* COMPLETE THE 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. CHANGE THE TEXT STRING "XXXXXX" TO AN APPROPRIATE
//*              VOLUME SERIAL NUMBER USED AT YOUR INSTALLATION
//*           4. CHANGE THE DATA SET NAME 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 SEQUENTIAL FILE
//*
//*    FILES USED:
//*    GENTRAN.V6601.BSC.UPLOAD.BSC6601
//*
//*    IF YOU CHANGE THIS DATASET NAME, IT MUST ALSO BE CHANGED
//*    IN THE PCB6601B JOB TO MATCH.
//*
//*-------------------------------------------------------------------*
//*
//*********************************************************************
//*  DELETE - DELETE EXISTING DATA SET
//*********************************************************************
//*
//DELETE  EXEC PGM=IDCAMS
//SYSPRINT DD  SYSOUT=*
//SYSIN    DD  *
  DELETE GENTRAN.V6601.BSC.UPLOAD.BSC6601
  SET MAXCC=0
//*
//*********************************************************************
//*  ALLOC - ALLOCATE NEW DATA SET
//*********************************************************************
//*
//ALLOC   EXEC PGM=IEFBR14
//SEQPRD   DD  DSN=GENTRAN.V6601.BSC.UPLOAD.BSC6601,
//             DISP=(NEW,CATLG,CATLG),
//             UNIT=DISK,
//             SPACE=(CYL,(75,10)),
//             DCB=(RECFM=FB,LRECL=80,BLKSIZE=0,DSORG=PS)
//