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 

Dataset record Length

 
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
schintala
Beginner


Joined: 18 May 2005
Posts: 108
Topics: 31
Location: USA

PostPosted: Thu May 27, 2010 11:29 am    Post subject: Dataset record Length Reply with quote

Hi Friends,
I need your help in identifying the error. We have a job that creates GDG file. When there is no records to write, the file is created with record length and block size is zero. It should be created with record length of 114 and block size of 27930 irrespective of the file contents. It has been running like that since many years. It changed recently in this way. Any clue to identify this error is a great help. Below are the code



Code:

//SYSDISC  DD DSN=IPD.IEBGENER.IPSRPTPR.RPTSLDT(+1),
//             DISP=(,CATLG,DELETE),               
//             UNIT=SYSDA,                         
//             DCB=(GDG,RECFM=FB),                 
//             SPACE=(CYL,(10,10),RLSE)         
 

Code:

Data Set Name . . . . : IPD.IEBGENER.IPSRPTPR.RPTSLDT.G2219V00           
                                                                         
General Data                           Current Allocation               
 Management class . . : MCIPSP          Allocated cylinders : 10         
 Storage class  . . . : IPSGDG          Allocated extents . : 1         
  Volume serial . . . : PIPG1J                                           
  Device type . . . . : 3390                                             
 Data class . . . . . : DASDGDG        Current Utilization               
  Organization  . . . : PS              Used cylinders  . . : 0         
  Record format . . . : FB              Used extents  . . . : 0         
  Record length . . . : 0                                               
  Block size  . . . . : 0                                               
  1st extent cylinders: 10                                               
  Secondary cylinders : 10                                               
  Data set name type  :                 SMS Compressible  :   NO         
                                                                         
  Creation date . . . : 2010/05/27      Referenced date . . : ***None***
  Expiration date . . : ***None***                                       


Code:

Data Set Name . . . . : IPD.IEBGENER.IPSRPTPR.RPTSLDT.G2216V00         
                                                                       
General Data                           Current Allocation               
 Management class . . : MCIPSP          Allocated cylinders : 1         
 Storage class  . . . : IPSGDG          Allocated extents . : 1         
  Volume serial . . . : PIPG4Z                                         
  Device type . . . . : 3390                                           
 Data class . . . . . : DASDGDG        Current Utilization             
  Organization  . . . : PS              Used cylinders  . . : 0         
  Record format . . . : FB              Used extents  . . . : 0         
  Record length . . . : 114                                             
  Block size  . . . . : 27930                                           
  1st extent cylinders: 1                                               
  Secondary cylinders : 10                                             
  Data set name type  :                 SMS Compressible  :   NO       
                                                                       
  Creation date . . . : 2010/05/24      Referenced date . . : 2010/05/27
Back to top
View user's profile Send private message
kolusu
Site Admin
Site Admin


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

PostPosted: Thu May 27, 2010 11:39 am    Post subject: Reply with quote

schintala,

Are you running a DB2 utility?

Kolusu
Back to top
View user's profile Send private message Send e-mail Visit poster's website
schintala
Beginner


Joined: 18 May 2005
Posts: 108
Topics: 31
Location: USA

PostPosted: Thu May 27, 2010 11:50 am    Post subject: Reply with quote

Kolusu,
Thank you for the reply. Yes, I was running the load util using platinum fast load and any error reocrds go to this file. We have another job that reads this error file and it goes abend with s0c4 in batch cycle.
Back to top
View user's profile Send private message
kolusu
Site Admin
Site Admin


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

PostPosted: Thu May 27, 2010 11:57 am    Post subject: Reply with quote

schintala,

Was there a DD dummy statement for the SYSREC?

Kolusu
Back to top
View user's profile Send private message Send e-mail Visit poster's website
schintala
Beginner


Joined: 18 May 2005
Posts: 108
Topics: 31
Location: USA

PostPosted: Thu May 27, 2010 12:02 pm    Post subject: Reply with quote

Kolusu,
No. SYSREC DD is not dummy. It has defined as below
Code:

//SYSREC   DD DSN=IPD.SYSREC.IPSRPTPR.RPTSLDT,
//             DISP=(MOD,CATLG,CATLG),         
//             UNIT=(CKPTDA,3),               
//             DCB=(GDG,RECFM=VB),             
//             SPACE=(CYL,(100,100),RLSE)     
Back to top
View user's profile Send private message
kolusu
Site Admin
Site Admin


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

PostPosted: Thu May 27, 2010 12:05 pm    Post subject: Reply with quote

schintala,

Oh well I am guessing that the utility might have changed NOT to open the SYSDISC dataset unless there are discarded records and hence the dataset was created with 0 LRECL and 0 blocksize.

You might wanna check if the documentation mentions this change

Kolusu
Back to top
View user's profile Send private message Send e-mail Visit poster's website
schintala
Beginner


Joined: 18 May 2005
Posts: 108
Topics: 31
Location: USA

PostPosted: Thu May 27, 2010 1:01 pm    Post subject: Reply with quote

Kolusu,
Thank you for your time. I'll check with system personal and see if there is any software upgrades at their end.

Have a nice week end.
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