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 

IEBGENER - Concatenation Permanent & Temporary Datasets

 
Post new topic   Reply to topic   printer-friendly view    MVSFORUMS.com Forum Index -> Utilities
View previous topic :: View next topic  
Author Message
Siddheart22
Beginner


Joined: 11 Apr 2005
Posts: 42
Topics: 19
Location: India
PostPosted: Tue Jun 06, 2006 5:35 am    Post subject: IEBGENER - Concatenation Permanent & Temporary Datasets Reply with quote
Hi,

I am using IEBGENER to concatenate one permanent dataset & one temporary dataset.
When temporary dataset is empty, I am getting an error which says that the LRECL of the two datasets in concatenation is not same.

Please advice.

Thanks,
Siddheart22.
Back to top
View user's profile Send private message
Siddheart22
Beginner


Joined: 11 Apr 2005
Posts: 42
Topics: 19
Location: India
PostPosted: Tue Jun 06, 2006 6:00 am    Post subject: IEBGENER - Concatenation Permanent & Temporary Datasets Reply with quote
I'd like to rephrase my query:

Hi,

I am using IEBGENER wherein there are two inputs [concatenated] one of them is a permanent dataset & other is temporary dataset.

When temporary dataset is empty, I am getting an error which says that the LRECL of the two datasets in concatenation is not same.

Please advice.

Thanks,
Siddheart22.
Back to top
View user's profile Send private message
shekar123
Advanced


Joined: 22 Jul 2005
Posts: 528
Topics: 90
Location: Bangalore India
PostPosted: Tue Jun 06, 2006 7:41 am    Post subject: Reply with quote
Siddheart22,

If you are trying to refer this kind of problem ,then try this code:
Code:

//STEP010  EXEC PGM=IEBGENER                                           
//SYSUT1   DD   DSN=SHEKAR.TEST.IN,DISP=SHR                             
//         DD   DSN=&&TEMP,DISP=(NEW,PASS),SPACE=(TRK,(1,1),RLSE)       
//SYSUT2   DD   DSN=SHEKAR.TEST.OUT,                                   
//         DISP=(NEW,CATLG,CATLG),UNIT=(SYSDA),                         
//         SPACE=(TRK,(1,1),RLSE),                                     
//         DCB=(LRECL=80,RECFM=FB,BLKSIZE=800)                         
//SYSPRINT DD   SYSOUT=*                                               
//SYSOUT   DD   SYSOUT=*                                               
//SYSIN    DD   DUMMY   

If the properties of the input dataset SHEKAR.TEST.IN has LRECL same to the LRECL mentioned for SHEKAR.TEST.OUT then your job will not fail and you will be getting
OUTPUT
Code:

DATA SET UTILITY - GENERATE
                           
PROCESSING ENDED AT EOD 

If the properties of the input dataset SHEKAR.TEST.IN has LRECL not equal to the LRECL mentioned for SHEKAR.TEST.OUT LRECL = 80 FOR SYSUT1 and LRECL = 50 for SYSUT2) then your job will fail and you will be getting
Code:

//STEP010  EXEC PGM=IEBGENER                                           
//SYSUT1   DD   DSN=SHEKAR.TEST.IN,DISP=SHR                             
//         DD   DSN=&&TEMP,DISP=(NEW,PASS),SPACE=(TRK,(1,1),RLSE)       
//SYSUT2   DD   DSN=SHEKAR.TEST.OUT,                                   
//         DISP=(NEW,CATLG,CATLG),UNIT=(SYSDA),                         
//         SPACE=(TRK,(1,1),RLSE),                                     
//         DCB=(LRECL=50,RECFM=FB,BLKSIZE=800)                         
//SYSPRINT DD   SYSOUT=*                                               
//SYSOUT   DD   SYSOUT=*                                               
//SYSIN    DD   DUMMY   

OUTPUT
Code:

DATA SET UTILITY - GENERATE       
IEB311I CONFLICTING DCB PARAMETERS

So give the LRECL same for SYSUT1 and SYSUT2 and your job will not fail.
_________________
Shekar
Grow Technically
Back to top
View user's profile Send private message
Siddheart22
Beginner


Joined: 11 Apr 2005
Posts: 42
Topics: 19
Location: India
PostPosted: Tue Jun 06, 2006 9:39 am    Post subject: Reply with quote
Thanks Shekar for your response.

The problem I am facing is that the &&TEMP file you've mentioned in your JCL is empty. In this case, my job fails with RC=12.

ALso, note that the LRECL of SYSUT1 [permanent dataset] is same as SYSUT2.

Thanks,
Siddheart22
Back to top
View user's profile Send private message
kolusu
Site Admin
Site Admin


Joined: 26 Nov 2002
Posts: 12367
Topics: 75
Location: San Jose
PostPosted: Tue Jun 06, 2006 9:31 pm    Post subject: Reply with quote
Siddheart22,

When the temp dataset is created make sure that the dcb properties are filled even when a empty file is created. Let us say there is a cobol Pgm which creates the temp dataset and on certain conditions it does not write to the dataset. So if the dataset is not opened there is no DCB information in such cases for the temp dataset.

So hard code the lrecl and recfm parameters in the JCL in the step where this temp dataset is being created. If you do so you will not have any errors.

Hope this helps....

Cheers

Kolusu
_________________
Kolusu - DFSORT Development Team (IBM)
DFSORT is on the Web at:
www.ibm.com/storage/dfsort

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


Joined: 14 May 2003
Posts: 25
Topics: 0
Location: Mission Viejo, California
PostPosted: Fri Jun 09, 2006 8:57 pm    Post subject: Reply with quote
I believe it is better to change the creating program to force an OPEN/CLOSE for every file so that the DCB entry in the catalog is correct thereby eliminating the problem for ALL future files and applications.

Bad coding leads to bad results.
Back to top
View user's profile Send private message
German Castillo
Beginner


Joined: 23 Dec 2005
Posts: 83
Topics: 2
Location: Caracas, Venezuela
PostPosted: Fri Jun 09, 2006 11:42 pm    Post subject: Reply with quote
First it all, please, check it out:

http://www.mvsforums.com/helpboards/viewtopic.php?t=2566&highlight=verify

Finally, while it is not the best solution, but a rather practical one, using Shekar123 JCL:

Code:

//** Use your favorite method of checking the existance
//** of data inside a dataset, and check for the proper
//** RC thereafter! ISRSUPC is as good as any!
//CHECKSTEP EXEC PGM=ISRSUPC                     
//SYSPRINT DD SYSOUT=*                 
//OUTDD    DD SYSOUT=*                 
//OLDDD    DD DUMMY
//NEWDD    DD DSN=&&TEMP,DISP=(OLD,PASS)
//SYSIN    DD DUMMY
// IF CHECKSTEP.RC EQ 1 THEN
//STEP010  EXEC PGM=IEBGENER                                           
//SYSUT1   DD   DSN=SHEKAR.TEST.IN,DISP=SHR                             
//         DD   DSN=&&TEMP,DISP=(NEW,PASS),SPACE=(TRK,(1,1),RLSE)       
//SYSUT2   DD   DSN=SHEKAR.TEST.OUT,                                   
//         DISP=(NEW,CATLG,CATLG),UNIT=(SYSDA),                         
//         SPACE=(TRK,(1,1),RLSE),                                     
//         DCB=(LRECL=80,RECFM=FB,BLKSIZE=800)                         
//SYSPRINT DD   SYSOUT=*                                               
//SYSOUT   DD   SYSOUT=*                                               
//SYSIN    DD   DUMMY   
// ELSE
/STEP011  EXEC PGM=IEBGENER                                           
//SYSUT1   DD   DSN=SHEKAR.TEST.IN,DISP=SHR                             
//SYSUT2   DD   DSN=SHEKAR.TEST.OUT,                                   
//         DISP=(NEW,CATLG,CATLG),UNIT=(SYSDA),                         
//         SPACE=(TRK,(1,1),RLSE),                                     
//         DCB=(LRECL=80,RECFM=FB,BLKSIZE=800)                         
//SYSPRINT DD   SYSOUT=*                                               
//SYSOUT   DD   SYSOUT=*                                               
//SYSIN    DD   DUMMY   
// ENDIF

_________________
Best wishes,

German Castillo
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 -> Utilities 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