//PCH6601A JOB (ACCOUNT,NUMBER),'NAME', // MSGCLASS=X,REGION=1024K //*-------------------------------------------------------------------* //* * //* STERLING GENTRAN:BASIC - HIPAA 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. * //* * //*-------------------------------------------------------------------* //* * //* PCHPLPD1 - ALLOCATE PRODUCT UPLOAD FILE ON MAINFRAME * //* * //*-------------------------------------------------------------------* //* * //* THIS JOB IS TO BE USED WHEN UPDATING THE LOAD LIBRARIES WITH PDSE * //* ITEMS FROM THE RE-COMPILE WITH THE 6.2 COMPILER. * //* * //* ONCE THIS JOB IS RUN, YOU MAY PROCEED WITH THE UPLOAD FROM THE * //* PC. NOTE THAT AFTER THE UPLOAD, YOU MUST STILL RUN PCH6601B 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.GPL.UPLOAD" FOR THE SEQUENTIAL FILE //* //* FILES USED: //* GENTRAN.V6601.HPA.UPLOAD.HPA6601 //* //* IF YOU CHANGE THIS DATASET NAME, IT MUST ALSO BE CHANGED //* IN THE PCGPLPD2 JOB TO MATCH. //* //*-------------------------------------------------------------------* //* //********************************************************************* //* DELETE - DELETE EXISTING DATA SET //********************************************************************* //* //DELETE EXEC PGM=IDCAMS //SYSPRINT DD SYSOUT=* //SYSIN DD * DELETE GENTRAN.V6601.HPA.UPLOAD.HPA6601 SET MAXCC=0 //* //********************************************************************* //* ALLOC - ALLOCATE NEW DATA SET //********************************************************************* //* //ALLOC EXEC PGM=IEFBR14 //SEQPRD DD DSN=GENTRAN.V6601.HPA.UPLOAD.HPA6601, // DISP=(NEW,CATLG,CATLG), // UNIT=DISK, // SPACE=(CYL,(75,10)), // DCB=(RECFM=FB,LRECL=80,BLKSIZE=0,DSORG=PS) //