Portal | IBM Manuals | Downloads | Products | Refer | Info | Programs | JCLs | Forum Rules*| Site Map | Mainframe CD 
IBMMAINFRAMES.com - IBM Mainframe Support Forums Index
 
Register
 
IBMMAINFRAMES.com - IBM Mainframe Support Forums Index FAQ Search Memberlist Usergroups Profile Log in to check your private messages Log in
 
Setting return code in idcams

 
Post new topic   Reply to topic    IBMMAINFRAMES.com Support Forums -> DFSORT/ICETOOL
Author Message
Fizu

New User


Joined: 15 Jul 2005
Posts: 6
Location: Argentina

PostPosted: Sat Nov 19, 2005 1:54 am    Post subject: Setting return code in idcams
Reply with quote

hi
in IDCAMS I use a list of commands.
REPRO INFILE(INDD1) OUTFILE(OUTDD1)
REPRO INFILE(HSTDD1) OUTFILE(BACKUP)
is there any way to set that when 1 of the command return > 0 don't follow with the rest?

that is: if the first repro ends with 12, i need the job to stop and don't exec the second repro

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

Moderator Team Head


Joined: 26 Apr 2004
Posts: 3314
Location: Charlotte,NC USA

PostPosted: Sat Nov 19, 2005 2:04 am    Post subject: Re: RC in idcams
Reply with quote

Use some IF/THEN/ELSE logic:

Code:

//STEP0001 EXEC PGM=IDCAMS                       
//SYSPRINT DD   SYSOUT=*                         
//SYSIN    DD   *                                 
  REPRO INFILE(INDD1) OUTFILE(OUTDD1)             
  IF MAXCC = 0 THEN DO                           
    REPRO INFILE(HSTDD1) OUTFILE(BACKUP)         
  END                                             
  ELSE SET MAXCC = 4                             
/*                                               
Back to top
View user's profile Send private message
Fizu

New User


Joined: 15 Jul 2005
Posts: 6
Location: Argentina

PostPosted: Thu Nov 24, 2005 12:26 am    Post subject:
Reply with quote

I used that but like this:
REPRO INFILE(INDD1) OUTFILE(OUTDD1)
IF MAXCC = 0 THEN DO
REPRO INFILE(HSTDD1) OUTFILE(BACKUP)
END
ELSE
DELETE 'TDSD.TEMP'

and when the MAXCC is 0 makes the repro and deletes the TEMP file. I made something wrong?
Back to top
View user's profile Send private message
Display posts from previous:   
Post new topic   Reply to topic    IBMMAINFRAMES.com Support Forums -> DFSORT/ICETOOL All times are GMT + 6 Hours
Page 1 of 1