Portal | Manuals | References | Downloads | Info | Programs | JCLs | Master the Mainframes
IBM Mainframe Computers Forums Index
 
Register
 
IBM Mainframe Computers Forums Index Mainframe: Search IBM Mainframe Forum: FAQ Memberlist Usergroups Profile Log in to check your private messages Log in
 

 

How to have an IDCAMS Abend

 
Post new topic   Reply to topic    IBMMAINFRAMES.com Support Forums -> DFSORT/ICETOOL
View previous topic :: :: View next topic  
Author Message
MGIndaco

Active User


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

PostPosted: Thu Oct 13, 2005 9:45 pm    Post subject: How to have an IDCAMS Abend
Reply with quote

Hi members, I've a doubt and I hope that your various knowledge may help me to solve it.
All of us know that in a JCL we can code as disposition for an abnormal termination the DELETE but when we use IDCAMS utility to do a repro and for various case(except a Jcl Error) happen an error for a wrong blocksize or a duplicate key(etc.) we can only have as Max Rc 12/16, so my question is: how can we terminate abnormally the step avoiding(i.e. the allocation) the allocation of the file?
In this moment the only solution I can see is a SB37 caused with a test on the MaxCc but I'd like to know if another method exist to do the same.

I hope in your help and suggest.

P.S.= Only using IDCAMS
Back to top
View user's profile Send private message

Sridevi_C

Active User


Joined: 22 Sep 2005
Posts: 104
Location: Concord, New Hampshire, USA.

PostPosted: Fri Oct 14, 2005 6:03 am    Post subject:
Reply with quote

Hi,
Do you need to avoid allocation of output file(if it can't accomodate all records from input file) on REPRO? If yes, go for MODAL command IF-THEN-ELSE and check the return code of REPRO using LASTCC and DELETE the output file,if necessary. Job may be terminated immediately by setting MAXCC/LASTCC = 16.
Regards,
Sridevi.
Back to top
View user's profile Send private message
MGIndaco

Active User


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

PostPosted: Fri Oct 14, 2005 2:22 pm    Post subject:
Reply with quote

Hi Sridevi, thanks to your reply I know the MCD but this method work only for Non GDG dataset(in my case I try to save 18 gdg... and you can uderstand that I cannot insert the correct level every time).
I apologize to you but I miss this detail. icon_sad.gif

I hope in another idea.
Back to top
View user's profile Send private message
Sridevi_C

Active User


Joined: 22 Sep 2005
Posts: 104
Location: Concord, New Hampshire, USA.

PostPosted: Fri Oct 14, 2005 6:30 pm    Post subject:
Reply with quote

Hi Mgindaco,
Your prior mail talks about avoiding the allocation of dataset and the current mail is about saving the 18 gdg.What do you want to convey from "I cannot insert the correct level every time"?Please let us know your JCL code and brief explanation on what you are looking for in it.
Regards,
Sridevi.
Back to top
View user's profile Send private message
MGIndaco

Active User


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

PostPosted: Fri Oct 14, 2005 7:45 pm    Post subject:
Reply with quote

Dear Sridevi, what I want to do is avoid the allocation of a set of file
if one of this allocation has a condition code of IDCAMS greater than 0,
and for this I thought to a form of abend(as the title suggest).

This means, as you suggested, that surely I must test the Last Condition
code to check the outcome of IDCAMS statement.

I think that both for GDG that for other kind of file your method function
but particularly for GDG an exception is done for the generation/level number.

To clarify my question this is a sample:

Code:

//STEP010R EXEC PGM=IDCAMS
//SYSPRINT DD SYSOUT=*
//IN01     DD DISP=SHR,DSN=......Dataset 1 sequential
......
//IN0n     DD DISP=SHR,DSN=......Dataset n sequential
//OU01     DD DISP=(,CATLG,DELETE),LRECL=x,RECFM=x,
//            SPACE=x,DSN=myoutput_non_gdg
......
//OU0n     DD DISP=(,CATLG,DELETE),LRECL=x,RECFM=x,
//            SPACE=x,DSN=myoutput(+1)
//SYSIN    DD *
  REPRO INFILE(IN01) OUTFILE(OU01)
  ...............
  REPRO INFILE(IN0n) OUTFILE(OU0n)


Now, if an error happen in the first repro, using an if-then-else I can solve the problem.
But in the other case? What can I do to avoid the allocation of GDG?
It's for this reason that I'm looking for an Abend or a kind of user exit of IDCAMS to
solve my problem.

I must apologize for my confused explanation, and if is still not clear I hope in your patience.
Back to top
View user's profile Send private message
View previous topic :: :: View next topic  
Post new topic   Reply to topic    IBMMAINFRAMES.com Support Forums -> DFSORT/ICETOOL All times are GMT + 6 Hours
Page 1 of 1

 

Search our Forum:

Similar Topics
Topic Author Forum Replies Posted
No new posts IMS BMP program causes 878 system abend Artemk IMS DB/DC 7 Tue Nov 22, 2016 8:26 pm
No new posts abend sort based on count records in ... anatol DFSORT/ICETOOL 5 Mon Oct 17, 2016 10:10 pm
No new posts hot to get details when "EXEC CI... Andi1982 CICS 11 Tue Sep 20, 2016 5:01 pm
No new posts S213-14 ABEND explantion Apurva Mehta JCL & VSAM 5 Thu Jul 07, 2016 10:56 pm
No new posts How to determine where is error in ab... jackzhang75 PL/I & Assembler 13 Fri Apr 15, 2016 2:01 am


Facebook
Back to Top
 
Mainframe Wiki | Forum Rules | Bookmarks | Subscriptions | FAQ | Tutorials | Contact Us