IBM Mainframe Forum Index
 
Log In
 
IBM Mainframe Forum Index Mainframe: Search IBM Mainframe Forum: FAQ Register
 

JCL in a Loop and Selcopy


IBM Mainframe Forums -> JCL & VSAM
Post new topic   Reply to topic
View previous topic :: View next topic  
Author Message
ideas

New User


Joined: 25 May 2005
Posts: 52
Location: India

PostPosted: Wed May 25, 2005 11:00 am
Reply with quote

Hi Frank & users,

I have 2 queries:
A) Is it possible to execute a JCL step in a Loop having some condition.
B) Do you have any info about a FTP Step with PGM=SELCOPY.

Thanks.
Back to top
View user's profile Send private message
MGIndaco

Active User


Joined: 10 Mar 2005
Posts: 432
Location: Milan, Italy

PostPosted: Wed May 25, 2005 2:35 pm
Reply with quote

a) I think that a logic loop in a JCL is possible but to help you with a sample I must study your case and I need more informations....
b) I don't think that SELCOPY belong to the family of systems or application utility(usually they begin with IEH* or IEB*)
Back to top
View user's profile Send private message
ideas

New User


Joined: 25 May 2005
Posts: 52
Location: India

PostPosted: Wed May 25, 2005 3:35 pm
Reply with quote

Its like this..

Let us assume that my program name is PGM1.
Now my JCL should execute the program 10 times,but i should not write 10 exec statements like this

//STEP1 EXEC PGM = PGM1
..

//STEP2 EXEC PGM = PGM1
..

//STEP3 EXEC PGM = PGM1..


Is it possible to put this in a loop....
Back to top
View user's profile Send private message
superk

Global Moderator


Joined: 26 Apr 2004
Posts: 4652
Location: Raleigh, NC, USA

PostPosted: Wed May 25, 2005 4:00 pm
Reply with quote

Sure. Your STEP2 step should run conditionally and simply submit the job again. After 10 iterations, your program PGM1 will have to change the condition code so that the STEP2 process will be bypassed.
Back to top
View user's profile Send private message
ideas

New User


Joined: 25 May 2005
Posts: 52
Location: India

PostPosted: Wed May 25, 2005 4:25 pm
Reply with quote

dear moderator, when you say "your program PGM1 will have to change the condition code so that the" does it implies that PGM1 needs to have a counter set(in PARM) in it which checks for the # of times its run?...and using the CC in the cobo, register it changes the value after certain # of runs...this would be intervening in the code..is there a way which avoids this way too.
Is there any way in JCL that a counter can be SET in a step.
Back to top
View user's profile Send private message
dneufarth

Active User


Joined: 27 Apr 2005
Posts: 420
Location: Inside the SPEW (Southwest Ohio, USA)

PostPosted: Wed May 25, 2005 6:30 pm
Reply with quote

No on looping in JCL

JCL is executed sequentially, but allows you to execute/skip steps conditionally (COND=).



Dave
Back to top
View user's profile Send private message
superk

Global Moderator


Joined: 26 Apr 2004
Posts: 4652
Location: Raleigh, NC, USA

PostPosted: Wed May 25, 2005 7:42 pm
Reply with quote

Ashutosh, basically, your process will need the following:

1. An external location to store the value of the iteration counter (database, VSAM, PDS, sequential file).

2. A program/utility that can retrieve the iteration counter, interrogate its value, perform the necessary calculation to increment it, and store the iteration counter back to its repository. Also, this program/utility should set it's return-code value based on the value of the counter.

It seems to me that a relatively simple solution is to append a record to a sequential dataset (with DISP=MOD) on each execution of the job and then check it for the total number of records. When the dataset contains 10 records, then the job will stop re-submitting itself. There are a couple of ways to handle this:
Code:

//MYJOB JOB (......)
//*
//STEP1    EXEC PGM=PGM1                                         
//*                                                             
//STEP2    EXEC PGM=IEBGENER                                     
//SYSUT1   DD   *                                               
NEW RECORD                                                       
//SYSUT2   DD   DSN=&SYSUID..COUNTER,DISP=(MOD,CATLG,DELETE),   
//         UNIT=SYSDA,SPACE=(TRK,(1,1),RLSE)                     
//SYSPRINT DD   SYSOUT=*                                         
//SYSIN    DD   DUMMY                                           
//*                                                             
//STEP3    EXEC PGM=IDCAMS                                       
//SYSUT1   DD   DSN=&SYSUID..COUNTER,DISP=SHR                   
//SYSPRINT DD   SYSOUT=*                                         
//SYSIN    DD   *                                               
  PRINT IFILE(SYSUT1) COUNT(10)                                 
//*                                                             
// IF (STEP3.RC > 0) THEN                                             
//STEP4    EXEC PGM=IKJEFT01,PARM='SUBMIT ''&SYSUID..JCL(MYJOB)'''
//SYSTSPRT DD   SYSOUT=*                                             
//SYSTSIN  DD   DUMMY                                                 
//*                                                                   
// ELSE                                                               
//STEP5    EXEC PGM=IEFBR14                                           
//DELETE   DD   DSN=&SYSUID..COUNTER,DISP=(MOD,DELETE,DELETE),       
//         UNIT=SYSDA,SPACE=(TRK,(1,0),RLSE)                         
// ENDIF                                                             
//*     


or

Code:

//MYJOB JOB (......)
//*
//STEP1    EXEC PGM=PGM1                                       
//*                                                             
//STEP2    EXEC PGM=IEBGENER                                   
//SYSUT1   DD   *                                               
NEW RECORD                                                     
//SYSUT2   DD   DSN=&SYSUID..COUNTER,DISP=(MOD,CATLG,DELETE),   
//         UNIT=SYSDA,SPACE=(TRK,(1,1),RLSE)                   
//SYSPRINT DD   SYSOUT=*                                       
//SYSIN    DD   DUMMY                                           
//*                                                             
//STEP3    EXEC PGM=ICETOOL                                     
//INFILE   DD   DSN=&SYSUID..COUNTER,DISP=SHR                   
//TOOLMSG  DD   SYSOUT=*                                       
//DFSMSG   DD   SYSOUT=*                                       
//TOOLIN   DD   *                                               
 COUNT FROM(INFILE) NOTEQUAL(10)                               
//*                                                             
//*                                                                   
// IF (STEP3.RC > 0) THEN                                             
//STEP4    EXEC PGM=IKJEFT01,PARM='SUBMIT ''&SYSUID..JCL(MYJOB)''' 
//SYSTSPRT DD   SYSOUT=*                                               
//SYSTSIN  DD   DUMMY                                                 
//*                                                                   
// ELSE                                                               
//STEP5    EXEC PGM=IEFBR14                                           
//DELETE   DD   DSN=&SYSUID..COUNTER,DISP=(MOD,DELETE,DELETE),         
//         UNIT=SYSDA,SPACE=(TRK,(1,0),RLSE)                           
// ENDIF                                                               
//*                                                                   
Back to top
View user's profile Send private message
dneufarth

Active User


Joined: 27 Apr 2005
Posts: 420
Location: Inside the SPEW (Southwest Ohio, USA)

PostPosted: Thu May 26, 2005 5:02 am
Reply with quote

SELCOPY info

www.cbl.com/selc.html

Dave
Back to top
View user's profile Send private message
ideas

New User


Joined: 25 May 2005
Posts: 52
Location: India

PostPosted: Thu May 26, 2005 9:48 am
Reply with quote

Thank you very much superK!
Back to top
View user's profile Send private message
MGIndaco

Active User


Joined: 10 Mar 2005
Posts: 432
Location: Milan, Italy

PostPosted: Thu May 26, 2005 4:53 pm
Reply with quote

If you want to execute 10 times the same program you can use a PROC as you can see below and so you don't need a jcl loop:
Code:
//MYJOB JOB (......)
//*--------------------------- begin of proc ------------------------*
//MYPROC PROC
//PRCSTP01 EXEC PGM=PGM1
// PEND
//*--------------------------- end of proc --------------------------*
//*------------------EXECUTION OF IN-STREAM PROC------------*
//STEP001P EXEC MYPROC
//STEP002P EXEC MYPROC
...other steps....
//STEP010P EXEC MYPROC
//*--------------------------- end of job -----------------------------*


In any way...if you don't want create a proc then you can use a loop jcl or as Superk's sample or as you can see below; U need 3 files:
1) 1 Counter
2) 1 member of partitioned to put there a simple source of REXX(Don't be afraid... It's easy and if you have some questions I will be here!)
3) 1 MainJcl
4) 1 SubJcl


Specific:
- (1)Counter: Sequential or member(is the same) and the length is not important but its record format must be FB; Put in this a zero '0'.

- (2) Put this rexx in a partitioned and name the program as you like but
be sure that from col 72 to 80 no number were specified and if it happen(usually they are formed when you paste your record in insert line mode):
Code:

/*% NOCOMMENT REXX         */                                     
/* PROGRAMMA: xxxxxxxx     */                                     
/* AUTORE   : MGIndaco     */                                     
/* ENV.     : BATCH        */                                     
Address TSO                                                       
Parse Arg Limit                                                   
 Say '-----------------------------------------'                 
 Say '- Begin ---------------------------------'                 
 Say '-----------------------------------------'                 
 /*---------------------------------------*/                     
 /*- Accept of dsname of DD JOB  ---------*/                     
 /*---------------------------------------*/                     
 List =   LISTDSI(JOB FILE)                                       
 Jcl  = sysdsname                                                 
 Say ' Path of JCL to submit : ' Jcl                             
 /*---------------------------------------*/                     
 /*- Open File Counter -------------------*/                     
 /*---------------------------------------*/                     
 "ExecIO 0 DiskR COUNTER(Open"                                   
 "ExecIO 1 DiskR COUNTER"                               
 Pull Record                                           
 /*---------------------------------------*/           
 /*- Close File Counter ------------------*/           
 /*---------------------------------------*/           
 "ExecIO 0 DiskR COUNTER(Finis"                         
 Record = Strip(SubStr(Record,1,10)) + 1               
 /*---------------------------------------*/           
 /*- Test of Limit -----------------------*/           
 /*---------------------------------------*/           
 If Record <= Limit  Then Do                           
    Say  Record                                         
    /*---------------------------------------*/         
    /*- Open file Counter for write new value*/         
    /*---------------------------------------*/         
    "ExecIO 0 DiskW COUNTER(Open"                       
    Push Record                                         
    "ExecIO 1 DiskW COUNTER"                           
    /*----------------------------------------*/       
    /*- Close file Counter for write new value*/       
    /*----------------------------------------*/     
    "ExecIO 0 DiskW COUNTER(FINIS"                   
    /*----------------------------------------*/     
    /*- Submit the job and get the message ---*/     
    /*----------------------------------------*/     
    X = OUTTRAP('SubTrap.')                           
    "SUBMIT '" !!Jcl!! "'"                           
    X = OUTTRAP('OFF')                               
    JobIx   = 0                                       
    JobIx   = index(SubTrap.1,'(')                   
    NomJob  = substr(SubTrap.1,15,JobIx-15)           
    NumJob  = substr(SubTrap.1,JobIx+1,8)             
    /*----------------------------------------*/     
    /*- Display of jobname and jobnumber -----*/     
    /*----------------------------------------*/     
    Say ' Job submitted: 'NomJob                     
    Say ' Job number   : 'NumJob                     
 End                                                 
 Else Do                                             
    /*----------------------------------------*/     
    /*- Limit reached.... reset of Counter ---*/     
    /*----------------------------------------*/     
    Say ' No more job will be submitted'             
    Say ' File Counter resetted        '             
    Push 0                                           
    "ExecIO 0 DiskW COUNTER(Open"                     
    "ExecIO 1 DiskW COUNTER"                         
    "ExecIO 0 DiskW COUNTER(FINIS"                   
 End                                                 
 Say '-----------------------------------------'     
 Say '- End -----------------------------------'     
 Say '-----------------------------------------'     
Exit Record                                           

- (3)MainJcl: as above... sequential or member is the same... code
Pay attention to substitute
NAMEofPGM - member name of rexx source
2 - Limit of loop:
MyRexxLib - where you have inserted the rexx source
MyCounter - File counter
MySubJcl - your jcl..
Code:
//*-------------------------------------------------------------------*
//STEPREXX EXEC PGM=IKJEFT01,PARM='NAMEofPGM 2'                         
//SYSEXEC  DD DISP=SHR,DSN=MyRexxLib                     
//COUNTER  DD DISP=SHR,DSN=MyCounter                         
//JOB      DD DISP=SHR,DSN=MySubJcl                         
//SYSTSPRT DD SYSOUT=B                                                 
//SYSPRINT DD SYSOUT=B                                                 
//SYSTSIN  DD DUMMY                                                   
//*-------------------------------------------------------------------*
//*--------------------- END OF JOB ----------------------------------*
//*-------------------------------------------------------------------*

- (4)SubJcl: as above... sequential or member is the same... and end of code must be:
Code:
//SUBMIT   EXEC PGM=IKJEFT01,PARM='',DYNAMNBR=50,
//             REGION=4096K                     
//SYSTSPRT DD SYSOUT=*                           
//SYSTSIN  DD *                                 
 PROF PREFIX(Myuserid)                           
 SUBMIT My.JCLMAIN'                   
Back to top
View user's profile Send private message
MGIndaco

Active User


Joined: 10 Mar 2005
Posts: 432
Location: Milan, Italy

PostPosted: Thu May 26, 2005 4:57 pm
Reply with quote

I have tried all and I want to assure you that it funtion very well.
The best in this way is that, if you want, you can read your subjcl before submit and change all you want and have in this way not only a loop but a full control of parameter, dataset names, program names, step names and so on...

If you look well and you need more info about rexx put your request in rexx forum... It's a great language.
Back to top
View user's profile Send private message
SteveConway

New User


Joined: 26 May 2005
Posts: 28
Location: Northern VA, USA

PostPosted: Thu May 26, 2005 6:04 pm
Reply with quote

Looping in a classic programming sense is not possible with batch JCL. It is a top-down flow.
About the closest you can come is to add steps to the end of your job to a) submit this same job again or b) submit another job, based on condition codes or abend status. The submit steps can be set up with IF-THEN or COND= parameters, whatever works in your particular case.

Cheers,,,Steve
Back to top
View user's profile Send private message
View previous topic :: :: View next topic  
Post new topic   Reply to topic View Bookmarks
All times are GMT + 6 Hours
Forum Index -> JCL & VSAM

 


Similar Topics
Topic Forum Replies
This topic is locked: you cannot edit posts or make replies. REXX - Do - Not able to LOOP CLIST & REXX 10
No new posts REXX - Dataset checking in a do forev... CLIST & REXX 6
No new posts Inserting records into the empty segm... IMS DB/DC 1
No new posts Need to read duplicate rows from tabl... DB2 3
This topic is locked: you cannot edit posts or make replies. Cobol db2 program going in loop COBOL Programming 4
Search our Forums:

Back to Top