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 

Problem with gdg

 
Post new topic   Reply to topic   printer-friendly view    MVSFORUMS.com Forum Index -> Job Control Language(JCL)
View previous topic :: View next topic  
Author Message
jajularamesh
Beginner


Joined: 14 Apr 2006
Posts: 87
Topics: 33

PostPosted: Tue Jul 03, 2007 11:41 pm    Post subject: Problem with gdg Reply with quote

Hi,

I am trying to run this using ice tool
Code:

//SORTIN1  DD  DSN=TPLAN01.FEDS.ACCOUNT.DAILY(+1),DISP=SHR
//         DD  DSN=TPLAN01.FEDS.ACCOUNT.BACKUP(+0),DISP=SHR
//SORTOUT1 DD  DSN=TPLAN01.FEDS.ACCOUNT.BACKUP(+1),       
//            DISP=(NEW,CATLG,DELETE),                     
//            SPACE=(1990,(20,20),RLSE),AVGREC=K,         
//            LRECL=900,                                   
//            DATACLAS=DATAF                               
//TOOLIN DD *                                             
  COPY FROM(SORTIN1) TO(SORTOU1)                           
*/     

i intensionally gave the DD name wrongly so that the job will be abended and expecting the new version for the ACCOUNT.BACKUP will not be created but new GDG is getting created

Required info on this what exactly will happen when a gdg is abended.

Regards,
Ramesh
Back to top
View user's profile Send private message
dbzTHEdinosauer
Supermod


Joined: 20 Oct 2006
Posts: 1411
Topics: 26
Location: germany

PostPosted: Wed Jul 04, 2007 5:54 am    Post subject: Reply with quote

What exactly are the completion codes for this step?
Please use BBCode to enclose your code lines. It makes for much easier reading; the spaces are preserved.
_________________
Dick Brenholtz
American living in Varel, Germany
Back to top
View user's profile Send private message
jajularamesh
Beginner


Joined: 14 Apr 2006
Posts: 87
Topics: 33

PostPosted: Wed Jul 04, 2007 6:09 am    Post subject: Reply with quote

Actually job is getting abended but still new GDG version getting created which is empty
Is there any option which enable us not to create new GDG version when job get abended (When we are using ICETOOL).Please find the Toolin messages below
Code:


SYT000I  SYNCTOOL RELEASE 1.5.1 - COPYRIGHT 2004  SYNCSORT INC.               
SYT001I  INITIAL PROCESSING MODE IS "STOP"                                     
SYT002I  "TOOLIN" INTERFACE BEING USED                                         
                                                                               
           COPY FROM(SORTIN) TO(ORTOUT)                                       
SYT025E  NO DD STATEMENT FOUND WITH "TO" DDNAME: ORTOUT                       
SYT030I  OPERATION COMPLETED WITH RETURN CODE 12                               
                                                                               
SYT015I  PROCESSING MODE CHANGED FROM "STOP" TO "SCAN" DUE TO OPERATION FAILURE
                                                                               
         */                                                                   
SYT004I  SYNCTOOL PROCESSING COMPLETED WITH RETURN CODE 12                     



Regards
Ramesh
Back to top
View user's profile Send private message
dbzTHEdinosauer
Supermod


Joined: 20 Oct 2006
Posts: 1411
Topics: 26
Location: germany

PostPosted: Wed Jul 04, 2007 6:54 am    Post subject: Reply with quote

Ramesh, I appreciate you attempting to use the BBCode. What I had in mind what using the
Code:
[code][/code] 
blocks.

Quote:
SYT030I OPERATION COMPLETED WITH RETURN CODE 12

SYT015I PROCESSING MODE CHANGED FROM "STOP" TO "SCAN" DUE TO OPERATION FAILURE


unfortunately, a return code of 12 is not an abend. I do not know syncsort, so I don't know how to tell syncsort to abend. But a possible solution would be to have a STEP following the sort step that would un-catalogue and delete the (+1) in the event of a non-zero return code.

there are others on this board with greater experience than mine in this area; i am sure that they will respond with a less primitive solution.
_________________
Dick Brenholtz
American living in Varel, Germany
Back to top
View user's profile Send private message
jajularamesh
Beginner


Joined: 14 Apr 2006
Posts: 87
Topics: 33

PostPosted: Wed Jul 04, 2007 7:43 am    Post subject: Reply with quote

Thanks dbzTHEdinosauer.
Back to top
View user's profile Send private message
kolusu
Site Admin
Site Admin


Joined: 26 Nov 2002
Posts: 12378
Topics: 75
Location: San Jose

PostPosted: Wed Jul 04, 2007 8:10 am    Post subject: Reply with quote

Quote:

COPY FROM(SORTIN) TO(ORTOUT)
SYT025E NO DD STATEMENT FOUND WITH "TO" DDNAME: ORTOUT


jajularamesh,

your output DD name is wrong. In your TOOLIN statement you have the output name as ORTOUT instead of SORTOUT1.

As DBZ mentioned return code of 12 is not an abend and hence the new version is created .

Btw why do you need ICETOOL for a such simple copy step? A simple sort step would have solved your porblem. You don't have to code the LRECL and other DCB parameters for a sort step. Sort automatically calucaltes them from the input file.

Code:


//STEP0100 DD PGM=SORT
//SORTIN   DD DSN=TPLAN01.FEDS.ACCOUNT.DAILY(+1),
//            DISP=SHR
//         DD DSN=TPLAN01.FEDS.ACCOUNT.BACKUP(+0),
//            DISP=SHR
//SORTOUT  DD DSN=TPLAN01.FEDS.ACCOUNT.BACKUP(+1),       
//            DISP=(NEW,CATLG,DELETE),                     
//            SPACE=(1990,(20,20),RLSE),                   
//            DATACLAS=DATAF                               
//SYSIN    DD *                                             
  SORT FIELDS=COPY
/*

_________________
Kolusu
www.linkedin.com/in/kolusu
Back to top
View user's profile Send private message Send e-mail Visit poster's website
jajularamesh
Beginner


Joined: 14 Apr 2006
Posts: 87
Topics: 33

PostPosted: Wed Jul 04, 2007 8:57 am    Post subject: Reply with quote

Kolusu actually my requirement is not a simple sort.so i am using ICETOOL.

while i was testing i found that a new GDG version getting created but i was expecting that a new version will be created if the step is succesful

Kolusu can you tell me how reliable ICETOOL is ?

Regards,
Ramesh
Back to top
View user's profile Send private message
kolusu
Site Admin
Site Admin


Joined: 26 Nov 2002
Posts: 12378
Topics: 75
Location: San Jose

PostPosted: Wed Jul 04, 2007 9:21 am    Post subject: Reply with quote

Quote:

Kolusu actually my requirement is not a simple sort.so i am using ICETOOL. Kolusu can you tell me how reliable ICETOOL is ?


jajularamesh,

lemme clarify something. You are NOT running ICETOOL. ICETOOL is from DFSORT and your shop has Syncsort which has Synctool. Read this link for a better understanding of icetool vs synctool

http://www.mvsforums.com/helpboards/viewtopic.php?t=2504&highlight=alias+synctool

ICETOOL is a pretty reliable, fully documented, fully supported free utility shipped with IBM's DFSORT. Some of the features of ICETOOL are not supported by synctool.

Keeping the complexity of the problem aside , running multiple passes of data in
ICETOOL/SYNCTOOL step is same as running multiple steps using sort unless you are using icetool's specific features like splice,select...

Quote:

while i was testing i found that a new GDG version getting created but i was expecting that a new version will be created if the step is succesful


your JCL disp parameters are designed to differentiate between an abend vs successful run. Just because a program issues RC > 0 does not mean that it has to abend. in this case Synctool issued a RC of 12 and does not abend. So as far JCL disp parameters are concerned the job completed successfully,hence the gdg is created.

Btw post your actual requirement and let us see if you really need an Icetool step

Kolusu
_________________
Kolusu
www.linkedin.com/in/kolusu
Back to top
View user's profile Send private message Send e-mail Visit poster's website
Cogito-Ergo-Sum
Advanced


Joined: 15 Dec 2002
Posts: 637
Topics: 43
Location: Bengaluru, INDIA

PostPosted: Tue Aug 07, 2007 11:48 am    Post subject: Reply with quote

er....sorry for the late entry.

Isn't this discussion a digression from OP's statement that
Quote:
found that a new GDG version getting created but i was expecting that a new version will be created if the step is succesful
?

The allocation of the dataset has not got anything to do with the program that is being executed in that step. The allocation/delete is done by MVS for any job step depending on the DISP parameter. And, yes, it is true that, RC=12 is not an abend from MVS' point of view.
_________________
ALL opinions are welcome.

Debugging tip:
When you have eliminated all which is impossible, then whatever remains, however improbable, must be the truth.
-- Sherlock Holmes.
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 -> Job Control Language(JCL) 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