MVSFORUMS.com Forum Index MVSFORUMS.com
A Community of and for MVS Professionals
 
 FAQFAQ   SearchSearch   Quick Manuals   RegisterRegister 
 ProfileProfile   Log in to check your private messagesLog in to check your private messages   Log inLog in 

Xpediter's Allocate Function - In Batch Mode

 
Post new topic   Reply to topic   printer-friendly view    MVSFORUMS.com Forum Index -> Utilities
View previous topic :: View next topic  
Author Message
tdevwm1
Beginner


Joined: 27 Mar 2008
Posts: 3
Topics: 2

PostPosted: Mon Nov 17, 2008 9:17 am    Post subject: Xpediter's Allocate Function - In Batch Mode Reply with quote

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
Back to top
View user's profile Send private message  
Display posts from previous:   
Post new topic   Reply to topic   printer-friendly view    MVSFORUMS.com Forum Index -> Utilities All times are GMT - 5 Hours
Page 1 of 1

 
Jump to:  
You cannot post new topics in this forum
You cannot reply to topics in this forum
You cannot edit your posts in this forum
You cannot delete your posts in this forum
You cannot vote in polls in this forum


MVSFORUMS
Powered by phpBB © 2001, 2005 phpBB Group