tdevwm1 Beginner
Joined: 27 Mar 2008 Posts: 3 Topics: 2
|
Posted: Mon Nov 17, 2008 9:17 am Post subject: Xpediter's Allocate Function - In Batch Mode |
|
|
Hi,
Is anyone familiar with using a batch method for XPEDITER's 'Allocate' feature of expanding JCL?
What I am trying to accomplish is dumping hundreds of job's JCL into an excel spreadsheet. I may have to do this quarterly, so my goal is to automate much of the work.
I copied selected production jobs from a PDS to a sequential file. I tried to bring the sequential file into the online XPEDITER 'as is', but XPEDITER ABENDS because it is overloaded space/memory-wise.
As a result, I have to cut the sequential file down to about 30 jobs at a time. XPEDITER will expand the JCL perfectly. However, I have to do this for several hundred jobs. It works, but is time consuming.
I have poked around for an automated (batch) solution, but no luck so far.
Below is what I have automated:
Code: |
//Job boilierplate
//JS005 EXEC CABRMS,PARM=F
//* - - - - - - - - - - - - - - - - - - - - - - - - - - - -
//* FIRST COPY SELECTED MEMBERS FROM ONE PDS TO ANOTHER.
//* - - - - - - - - - - - - - - - - - - - - - - - - - - - -
//JS010 EXEC PGM=FILEAID
//SYSPRINT DD SYSOUT=*
//SYSLIST DD SYSOUT=*
//DD01 DD DSN=PMNTAPL.LPSSORZZ.JOBLIB00,DISP=SHR
//DD01O DD DSN=TDEVWM1.UPSSORZZ.RETJOBS,DISP=SHR
//SYSIN DD *
$$DD01 COPY MEMBERS=PRET*
/*
//*********************************************************
//* DUMP THE PDS MEMBERS TO A SEQUENTIAL FILE OR SYSOUT.
//*********************************************************
//JS020 EXEC PGM=IEBPTPCH
//SYSPRINT DD SYSOUT=*
//SYSUT1 DD DSN=TDEVWM1.UPSSORZZ.RETJOBS,DISP=SHR
//*SYSUT2 DD SYSOUT=*
//SYSUT2 DD DSN=TDEVWM1.SSSSORZZ.DATA01,
// DISP=(NEW,CATLG,DELETE),
// UNIT=SYSDA,
// SPACE=(CYL,(60,30),RLSE),
// DCB=(RECFM=FB,LRECL=132)
//SYSIN DD *
PUNCH TYPORG=PO
/*
//
|
Now I wanted to have a step that takes TDEVWM1.SSSSORZZ.DATA01 through XPEDITER to another sequential file with all the JCL expanded. I was thinking that a batch-allocate solution was possible since one can debug interactively under batch. However, I am resigned to the 'allocate' function being reserved as an online function only.
Any help is appreciated.
Regards,
tdevwm1 |
|