TWO JOB PARMS IN ONE JCL



JES, JES2, JCL utilities, IDCAMS, Compile & Run JCLs, PROCs etc...

TWO JOB PARMS IN ONE JCL

Postby suresh_83 » Mon Feb 16, 2009 8:17 pm

Hi All,

Is that possible to give two job parms in same JCL such that i want one step to run in one region and other step to run other region.
suresh_83
 
Posts: 2
Joined: Sun Feb 15, 2009 5:27 pm
Has thanked: 0 time
Been thanked: 0 time

Re: TWO JOB PARMS IN ONE JCL

 

Re: TWO JOB PARMS IN ONE JCL

Postby MrSpock » Mon Feb 16, 2009 9:22 pm

could you elaborate on what you mean by "TWO JOB PARMS"?
User avatar
MrSpock
Global moderator
 
Posts: 810
Joined: Wed Jun 06, 2007 9:37 pm
Location: Raleigh NC USA
Has thanked: 0 time
Been thanked: 2 times

Re: TWO JOB PARMS IN ONE JCL

Postby suresh_83 » Mon Feb 16, 2009 9:55 pm

Pls find the below example
                                                   
//*****************************************************************     
//*CREATES AN EMPTY FILE-01                                             
//*****************************************************************     
//STEP001  EXEC PGM=IEFBR14                                             
//GDGVERSN DD DSN=HLQ.MLQ.FILENAME,                                     
//         SPACE=(TRK,(1,0)),                                           
//         LRECL=604,RECFM=FB,
//         DISP=(,CATLG,DELETE)                                         
//*                                                                     
//*****************************************************************     
//*CREATES AN EMPTY FILE-01                                             
//*****************************************************************     
//   EXEC PGM=IEFBR14                                             
//GDGVERS1 DD DSN=HLQ.MLQ.FILENAME2,                                   
//         SPACE=(TRK,(1,0)),                                           
//         LRECL=604,RECFM=FB,
//         DISP=(,CATLG,DELETE)                                         
//*                                                                     

In the above STEP001 should execute in SYS2 and STEP002 should execute in SYS4.

Is that possible. If so pls help me in this

Thanks,
Suresh.D
suresh_83
 
Posts: 2
Joined: Sun Feb 15, 2009 5:27 pm
Has thanked: 0 time
Been thanked: 0 time

Re: TWO JOB PARMS IN ONE JCL

Postby MrSpock » Tue Feb 17, 2009 5:03 pm

I'm not sure what I can tell you. Obviously, you need to include something in your job to indicate which step it needs to execute. Is this job processed by your job scheduling system? If so, I would think that your job scheduling system could make the determination as to which system the job will be initiated on, and then modify the job as-needed before it initiates it.

Otherwise, the only option I see is for you to add a step and use a program or utility that can determine the active system and set the Return-Code value based on which system the running job is active on. Then you'll have to include some IF/THEN/ELSE logic in your job to guide it through which step to run and which one to skip.

If you have DFSORT, something like this should work:

//STEP0000 EXEC PGM=ICETOOL                     
//TOOLMSG  DD   SYSOUT=*                         
//DFSMSG   DD   SYSOUT=*                         
//SYMNAMES DD   *                               
SYSID,S'&SYSNAME'                               
/*                                               
//IN       DD   *                               
                                                 
/*                                               
//T1       DD   UNIT=VIO                         
//OUT      DD   SYSOUT=*                         
//TOOLIN   DD   *                               
COPY FROM(IN) USING(CTL1)                       
COUNT FROM(T1) EMPTY RC4                         
/*                                               
//CTL1CNTL DD   *                               
  INREC FIELDS=(1:SYSID,80:X)                   
  OUTFIL FNAMES=T1,INCLUDE=(1,4,CH,EQ,C'SYS2')   
/*                                               
//*                                             
// IF (STEP0000.RC = 0) THEN                                       
//*****************************************************************
//*CREATES AN EMPTY FILE-01                                       
//*****************************************************************
//STEP001A EXEC PGM=IEFBR14                                       
//GDGVERSN DD DSN=HLQ.MLQ.FILENAME,                               
//         SPACE=(TRK,(1,0)),                                     
//         LRECL=604,RECFM=FB,                                     
//         DISP=(,CATLG,DELETE)                                   
//*                                                               
// ELSE         
//*                                                   
//*****************************************************************
//*CREATES AN EMPTY FILE-01                                       
//*****************************************************************
//STEP001B EXEC PGM=IEFBR14                                       
//GDGVERS1 DD DSN=HLQ.MLQ.FILENAME2,                               
//         SPACE=(TRK,(1,0)),                                     
//         LRECL=604,RECFM=FB,                                     
//         DISP=(,CATLG,DELETE)                                   
// ENDIF                                                           
//*                                                               
User avatar
MrSpock
Global moderator
 
Posts: 810
Joined: Wed Jun 06, 2007 9:37 pm
Location: Raleigh NC USA
Has thanked: 0 time
Been thanked: 2 times


Return to JCL

 


  • Related topics
    Replies
    Views
    Last post