Re: EXTERNAL: Re: CORRUPT PDS - I/O ERROR

2011-07-27 Thread esmie moo


Paul,
 
I tried your suggestion,  here is a sample of what I received:
 
** VERIFY   ADBTS 
BLOCK LENGTH OF 20,960 EXCEEDS THE DATA SET DCB BLKSIZE   
BLOCK LENGTH OF 20,960 IS NOT DIVISIBLE BY THE DCB LRECL  
  
** VERIFY   ALTERTS   
BLOCK LENGTH OF 21,360 EXCEEDS THE DATA SET DCB BLKSIZE   
BLOCK LENGTH OF 21,360 IS NOT DIVISIBLE BY THE DCB LRECL  

** VERIFY   ALTABLE  
BLOCK LENGTH OF 27,920 EXCEEDS THE DATA SET DCB BLKSIZE  
BLOCK LENGTH OF 27,920 IS NOT DIVISIBLE BY THE DCB LRECL 
 
** VERIFY   GRANT    
BLOCK LENGTH OF  8,240 EXCEEDS THE DATA SET DCB BLKSIZE  
BLOCK LENGTH OF  8,240 IS NOT DIVISIBLE BY THE DCB LRECL 

Could you tell me what I should do?
 
 
From: Paul Strauss strau...@us.ibm.com
To: IBM-MAIN@bama.ua.edu
Sent: Tuesday, July 26, 2011 3:15:35 PM
Subject: Re: EXTERNAL: Re: CORRUPT PDS - I/O ERROR

If you have PDS or PDS85 on the system it may help.  You can run it in
batch like this:

//TSO  EXEC PGM=IKJEFT01
//* STEPLIB  DD DISP=SHR,DSN=  load library where PDS is
//SYSPRINT DD SYSOUT=*
//SYSTSPRT DD SYSOUT=*
//SYSTSIN  DD *
PDS  ' put bad pds here '
VERIFY :                                This command with
the : says to read all members and list the bad ones.
END
//

I'm not sure what you'll get if the dataset looks like a flat file if the
directory was written over, but it may tell you something.

If any members can be read, it will tell you which ones are the bad ones
and you can then create an IEBCOPY job with an Exclude for all the bad
members and copy the good members to a new dataset..

Thank You,

Paul Strauss

Integrated Technology Delivery, Global Services, IBM
L0DB z/OS MVS/Program Products/Security
150 Kettletown Rd.
Southbury, CT 06488
(203) 272-2758
strau...@us.ibm.com


|
| From:      |
|
  
--|
  |Binyamin Dissen bdis...@dissensoftware.com                                 
                                                                     |
  
--|
|
| To:        |
|
  
--|
  |IBM-MAIN@bama.ua.edu                                                         
                                                                     |
  
--|
|
| Date:      |
|
  
--|
  |07/26/2011 02:50 PM                                                          
                                                                    |
  
--|
|
| Subject:  |
|
  
--|
  |Re: EXTERNAL: Re: CORRUPT PDS - I/O ERROR                                    
                                                                    |
  
--|
|
| Sent by:  |
|
  
--|
  |IBM Mainframe Discussion List IBM-MAIN@bama.ua.edu                         
                                                                     |
  
--|





The DCB can be changed to RECFM=U,BLKSIZE=32760. That will guarantee that
members can be read. After looking at a few members, the correct values can
be
determined.

On Tue, 26 Jul 2011 17:59:04 + Mingee, David
david.min...@libertymutual.com wrote:

:Also, RECFM could have been changed to RECFM=U  vs. FB  if an
inappropriate task was executed against this file.
:
:-Original Message-
:From: IBM Mainframe Discussion List [mailto:IBM-MAIN@bama.ua.edu] On
Behalf Of Roach, Dennis (N-GHG CORP.)
:Sent

Re: EXTERNAL: Re: CORRUPT PDS - I/O ERROR

2011-07-27 Thread esmie moo
Binyamin,
 
Your suggestion worked by using RECFM=U,BLKSIZE=32760.  Thanks a million.
 
Thanks to all my Gentle Readers for your contribution.  Great group you all are.

From: Binyamin Dissen bdis...@dissensoftware.com
To: IBM-MAIN@bama.ua.edu
Sent: Tuesday, July 26, 2011 2:49:35 PM
Subject: Re: EXTERNAL: Re: CORRUPT PDS - I/O ERROR

The DCB can be changed to RECFM=U,BLKSIZE=32760. That will guarantee that
members can be read. After looking at a few members, the correct values can be
determined.

On Tue, 26 Jul 2011 17:59:04 + Mingee, David
david.min...@libertymutual.com wrote:

:Also, RECFM could have been changed to RECFM=U  vs. FB  if an inappropriate 
task was executed against this file.
:
:-Original Message-
:From: IBM Mainframe Discussion List [mailto:IBM-MAIN@bama.ua.edu] On Behalf 
Of Roach, Dennis (N-GHG CORP.)
:Sent: Tuesday, July 26, 2011 1:49 PM
:To: IBM-MAIN@bama.ua.edu
:Subject: Re: EXTERNAL: Re: CORRUPT PDS - I/O ERROR
:
:Do you know what the LRECL is/should be?
:Can you read any members?
:
:Dennis Roach
:GHG Corporation
:Lockheed Martin Mission Services
:Facilities Design and Operations Contract Strategic Technical Engineering 
NASA/JSC
:Address:
:  2100 Space Park Drive 
:  LM-15-4BH
:  Houston, Texas 77058
:Mail:
:  P.O. Box 58487
:  Mail Code H4C
:  Houston, Texas 77258-8487
:Phone:
:  Voice:  (281)336-5027
:  Cell:  (713)591-1059
:  Fax:    (281)336-5410
:E-Mail:  dennis.ro...@lmco.com
:
:All opinions expressed by me are mine and may not agree with my employer or 
any person, company, or thing, living or dead, on or near this or any other 
planet, moon, asteroid, or other spatial object, natural or manufactured, since 
the beginning of time.
:
:-Original Message-
:From: IBM Mainframe Discussion List [mailto:IBM-MAIN@bama.ua.edu] On Behalf 
Of esmie moo
:Sent: Tuesday, July 26, 2011 12:41 PM
:To: IBM-MAIN@bama.ua.edu
:Subject: EXTERNAL: Re: CORRUPT PDS - I/O ERROR
:
:John,
: 
:I followed  your example it add the member JUNK to the pds and I was able to 
browse the member JUNK which has the X in it.  However, the rest of the members 
still give the I/O error.  I know that am sounding thick however I am not sure 
as to what I should do for the other members.  Could you give me an example? 
:
:From: McKown, John john.mck...@healthmarkets.com
:To: IBM-MAIN@bama.ua.edu
:Sent: Tuesday, July 26, 2011 1:22:20 PM
:Subject: Re: CORRUPT PDS - I/O ERROR
:
:The X is just junk instream data to put into the member JUNK. What it is 
doesn't matter. I just put it there for completeness.

--
Binyamin Dissen bdis...@dissensoftware.com
http://www.dissensoftware.com

Director, Dissen Software, Bar  Grill - Israel


Should you use the mailblocks package and expect a response from me,
you should preauthorize the dissensoftware.com domain.

I very rarely bother responding to challenge/response systems,
especially those from irresponsible companies.

--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to lists...@bama.ua.edu with the message: GET IBM-MAIN INFO
Search the archives at http://bama.ua.edu/archives/ibm-main.html

--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to lists...@bama.ua.edu with the message: GET IBM-MAIN INFO
Search the archives at http://bama.ua.edu/archives/ibm-main.html


Re: EXTERNAL: Re: CORRUPT PDS - I/O ERROR

2011-07-27 Thread John P Kalinich
I would issue the PDS FIXPDS subcommand to change the DCB attributes,
followed by a VERIFY subcommand.  Assuming the LRECL is 80 based on the
block lengths from your previous VERIFY.

  pds 'name.of.dsname'
  fixpds recfm(fb) lrecl(80) blksize(27920)
  verify :
  end

Regards,
John K



   
  From:   esmie moo esmie_...@yahoo.ca
   

   
  To: IBM-MAIN@bama.ua.edu  
   

   
  Date:   07/27/2011 07:01 AM   
   

   
  Subject:Re: EXTERNAL: Re: CORRUPT PDS - I/O ERROR 
   

   



Paul,

I tried your suggestion,  here is a sample of what I received:

** VERIFY   ADBTS
BLOCK LENGTH OF 20,960 EXCEEDS THE DATA SET DCB BLKSIZE
BLOCK LENGTH OF 20,960 IS NOT DIVISIBLE BY THE DCB LRECL

** VERIFY   ALTERTS
BLOCK LENGTH OF 21,360 EXCEEDS THE DATA SET DCB BLKSIZE
BLOCK LENGTH OF 21,360 IS NOT DIVISIBLE BY THE DCB LRECL

** VERIFY   ALTABLE
BLOCK LENGTH OF 27,920 EXCEEDS THE DATA SET DCB BLKSIZE
BLOCK LENGTH OF 27,920 IS NOT DIVISIBLE BY THE DCB LRECL

** VERIFY   GRANT
BLOCK LENGTH OF  8,240 EXCEEDS THE DATA SET DCB BLKSIZE
BLOCK LENGTH OF  8,240 IS NOT DIVISIBLE BY THE DCB LRECL

Could you tell me what I should do?


From: Paul Strauss strau...@us.ibm.com
To: IBM-MAIN@bama.ua.edu
Sent: Tuesday, July 26, 2011 3:15:35 PM
Subject: Re: EXTERNAL: Re: CORRUPT PDS - I/O ERROR

If you have PDS or PDS85 on the system it may help.  You can run it in
batch like this:

//TSO  EXEC PGM=IKJEFT01
//* STEPLIB  DD DISP=SHR,DSN=  load library where PDS is
//SYSPRINT DD SYSOUT=*
//SYSTSPRT DD SYSOUT=*
//SYSTSIN  DD *
PDS  ' put bad pds here '
VERIFY :                                This command with
the : says to read all members and list the bad ones.
END
//

I'm not sure what you'll get if the dataset looks like a flat file if the
directory was written over, but it may tell you something.

If any members can be read, it will tell you which ones are the bad ones
and you can then create an IEBCOPY job with an Exclude for all the bad
members and copy the good members to a new dataset..

Thank You,

Paul Strauss

Integrated Technology Delivery, Global Services, IBM
L0DB z/OS MVS/Program Products/Security
150 Kettletown Rd.
Southbury, CT 06488
(203) 272-2758
strau...@us.ibm.com

--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to lists...@bama.ua.edu with the message: GET IBM-MAIN INFO
Search the archives at http://bama.ua.edu/archives/ibm-main.html


Re: EXTERNAL: Re: CORRUPT PDS - I/O ERROR

2011-07-27 Thread esmie moo
John,
 
Thanks.  I tried out your suggestion and it worked like a charm.  Thanks again.

From: John P Kalinich jkali...@csc.com
To: IBM-MAIN@bama.ua.edu
Sent: Wednesday, July 27, 2011 8:22:36 AM
Subject: Re: EXTERNAL: Re: CORRUPT PDS - I/O ERROR

I would issue the PDS FIXPDS subcommand to change the DCB attributes,
followed by a VERIFY subcommand.  Assuming the LRECL is 80 based on the
block lengths from your previous VERIFY.

  pds 'name.of.dsname'
  fixpds recfm(fb) lrecl(80) blksize(27920)
  verify :
  end

Regards,
John K


                                                                                
                                      
  From:      esmie moo esmie_...@yahoo.ca                                     
                                     
                                                                                
                                      
  To:        IBM-MAIN@bama.ua.edu                                               
                                     
                                                                                
                                      
  Date:      07/27/2011 07:01 AM                                                
                                      
                                                                                
                                      
  Subject:    Re: EXTERNAL: Re: CORRUPT PDS - I/O ERROR                         
                                       
                                                                                
                                      



Paul,

I tried your suggestion,  here is a sample of what I received:

** VERIFY   ADBTS
BLOCK LENGTH OF 20,960 EXCEEDS THE DATA SET DCB BLKSIZE
BLOCK LENGTH OF 20,960 IS NOT DIVISIBLE BY THE DCB LRECL

** VERIFY   ALTERTS
BLOCK LENGTH OF 21,360 EXCEEDS THE DATA SET DCB BLKSIZE
BLOCK LENGTH OF 21,360 IS NOT DIVISIBLE BY THE DCB LRECL

** VERIFY   ALTABLE
BLOCK LENGTH OF 27,920 EXCEEDS THE DATA SET DCB BLKSIZE
BLOCK LENGTH OF 27,920 IS NOT DIVISIBLE BY THE DCB LRECL

** VERIFY   GRANT
BLOCK LENGTH OF  8,240 EXCEEDS THE DATA SET DCB BLKSIZE
BLOCK LENGTH OF  8,240 IS NOT DIVISIBLE BY THE DCB LRECL

Could you tell me what I should do?


From: Paul Strauss strau...@us.ibm.com
To: IBM-MAIN@bama.ua.edu
Sent: Tuesday, July 26, 2011 3:15:35 PM
Subject: Re: EXTERNAL: Re: CORRUPT PDS - I/O ERROR

If you have PDS or PDS85 on the system it may help.  You can run it in
batch like this:

//TSO  EXEC PGM=IKJEFT01
//* STEPLIB  DD DISP=SHR,DSN=  load library where PDS is
//SYSPRINT DD SYSOUT=*
//SYSTSPRT DD SYSOUT=*
//SYSTSIN  DD *
PDS  ' put bad pds here '
VERIFY :                                This command with
the : says to read all members and list the bad ones.
END
//

I'm not sure what you'll get if the dataset looks like a flat file if the
directory was written over, but it may tell you something.

If any members can be read, it will tell you which ones are the bad ones
and you can then create an IEBCOPY job with an Exclude for all the bad
members and copy the good members to a new dataset..

Thank You,

Paul Strauss

Integrated Technology Delivery, Global Services, IBM
L0DB z/OS MVS/Program Products/Security
150 Kettletown Rd.
Southbury, CT 06488
(203) 272-2758
strau...@us.ibm.com

--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to lists...@bama.ua.edu with the message: GET IBM-MAIN INFO
Search the archives at http://bama.ua.edu/archives/ibm-main.html

--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to lists...@bama.ua.edu with the message: GET IBM-MAIN INFO
Search the archives at http://bama.ua.edu/archives/ibm-main.html


Re: EXTERNAL: Re: CORRUPT PDS - I/O ERROR

2011-07-27 Thread Rick Fochtman

---snip


Paul,

I tried your suggestion,  here is a sample of what I received:

** VERIFY   ADBTS 
BLOCK LENGTH OF 20,960 EXCEEDS THE DATA SET DCB BLKSIZE   
BLOCK LENGTH OF 20,960 IS NOT DIVISIBLE BY THE DCB LRECL  
 
** VERIFY   ALTERTS   
BLOCK LENGTH OF 21,360 EXCEEDS THE DATA SET DCB BLKSIZE   
BLOCK LENGTH OF 21,360 IS NOT DIVISIBLE BY THE DCB LRECL  

** VERIFY   ALTABLE  
BLOCK LENGTH OF 27,920 EXCEEDS THE DATA SET DCB BLKSIZE  
BLOCK LENGTH OF 27,920 IS NOT DIVISIBLE BY THE DCB LRECL 

** VERIFY   GRANT
BLOCK LENGTH OF  8,240 EXCEEDS THE DATA SET DCB BLKSIZE  
BLOCK LENGTH OF  8,240 IS NOT DIVISIBLE BY THE DCB LRECL 


Could you tell me what I should do?
 


-unsnip---
Those values all indicate, to me, that the correct attributes are 
RECFM=FB,LRECL=80,BLKSIZE=27920. Try setting them thusly and see what 
transpires. Here's one way to do it:


//RUN  EXEC  PGM=IEBGENER
//SYSPRINT DD DUMMY
//SYSIN DD DUMMY
//SYSUT1 DD DUMMY,RECFN=FB,LRECL=80,BLKSIZE=80
//SYSUT2 DD DSN=pds-name(GARBAGE),DISP=SHR,
//  RECFM=FB,LRECL=80,BLKSIZE=27920

Member GARBAGE can be deleted at your leisure.

Rick

--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to lists...@bama.ua.edu with the message: GET IBM-MAIN INFO
Search the archives at http://bama.ua.edu/archives/ibm-main.html


Re: EXTERNAL: Re: CORRUPT PDS - I/O ERROR

2011-07-26 Thread Roach, Dennis (N-GHG CORP.)
Do you know what the LRECL is/should be?
Can you read any members?

Dennis Roach
GHG Corporation
Lockheed Martin Mission Services
Facilities Design and Operations Contract
Strategic Technical Engineering
NASA/JSC
Address:
   2100 Space Park Drive 
   LM-15-4BH
   Houston, Texas 77058
Mail:
   P.O. Box 58487
   Mail Code H4C
   Houston, Texas 77258-8487
Phone:
   Voice:  (281)336-5027
   Cell:   (713)591-1059
   Fax:(281)336-5410
E-Mail:  dennis.ro...@lmco.com

All opinions expressed by me are mine and may not agree with my employer or any 
person, company, or thing, living or dead, on or near this or any other planet, 
moon, asteroid, or other spatial object, natural or manufactured, since the 
beginning of time.

-Original Message-
From: IBM Mainframe Discussion List [mailto:IBM-MAIN@bama.ua.edu] On Behalf Of 
esmie moo
Sent: Tuesday, July 26, 2011 12:41 PM
To: IBM-MAIN@bama.ua.edu
Subject: EXTERNAL: Re: CORRUPT PDS - I/O ERROR

John,
 
I followed  your example it add the member JUNK to the pds and I was able to 
browse the member JUNK which has the X in it.  However, the rest of the members 
still give the I/O error.  I know that am sounding thick however I am not sure 
as to what I should do for the other members.  Could you give me an example? 

From: McKown, John john.mck...@healthmarkets.com
To: IBM-MAIN@bama.ua.edu
Sent: Tuesday, July 26, 2011 1:22:20 PM
Subject: Re: CORRUPT PDS - I/O ERROR

The X is just junk instream data to put into the member JUNK. What it is 
doesn't matter. I just put it there for completeness.

--
John McKown 
Systems Engineer IV
IT

Administrative Services Group

HealthMarkets®

9151 Boulevard 26 . N. Richland Hills . TX 76010
(817) 255-3225 phone . 
john.mck...@healthmarkets.com . www.HealthMarkets.com

Confidentiality Notice: This e-mail message may contain confidential or 
proprietary information. If you are not the intended recipient, please contact 
the sender by reply e-mail and destroy all copies of the original message. 
HealthMarkets® is the brand name for products underwritten and issued by the 
insurance subsidiaries of HealthMarkets, Inc. -The Chesapeake Life Insurance 
Company®, Mid-West National Life Insurance Company of TennesseeSM and The MEGA 
Life and Health Insurance Company.SM



 -Original Message-
 From: IBM Mainframe Discussion List 
 [mailto:IBM-MAIN@bama.ua.edu] On Behalf Of esmie moo
 Sent: Tuesday, July 26, 2011 12:17 PM
 To: IBM-MAIN@bama.ua.edu
 Subject: Re: CORRUPT PDS - I/O ERROR
 
 John,
  
 Just to clarify, you have an X do I include it?  Also, I 
 noticed that you the SYSUT2 has the PDS name as well as the 
 member name (JUNK).  Could you tell me what it is for?
 
 From: McKown, John john.mck...@healthmarkets.com
 To: IBM-MAIN@bama.ua.edu
 Sent: Tuesday, July 26, 2011 1:13:12 PM
 Subject: Re: CORRUPT PDS - I/O ERROR
 
 I had this happen in the past. A programmer modified the DCB 
 attributes on the DSCB. If you know what they are supposed to 
 be, then run an IEBGENER to set them to something good. For a 
 card image (source) type library, I do:
 
 //GENER EXEC PGM=IEBGENER
 //SYSPRINT DD SYSOUT=*
 //SYSIN DD DUMMY
 //SYSUT1 DD *
 X
 //SYSUT2 DD DSN=MY.SOURCE.PDS(JUNK),DISP=OLD,
 // DCB=(LRECL=80,RECFM=FB,BLKSIZE=27920,DSORG=PO)
 //
 
 this is only an example! You need to know what the DCB 
 characters really are (too large a BLKSIZE is usually OK).
 
 --
 John McKown 
 Systems Engineer IV
 IT
 
 Administrative Services Group
 
 HealthMarkets®
 
 9151 Boulevard 26 . N. Richland Hills . TX 76010
 (817) 255-3225 phone . 
 john.mck...@healthmarkets.com . www.HealthMarkets.com
 
 Confidentiality Notice: This e-mail message may contain 
 confidential or proprietary information. If you are not the 
 intended recipient, please contact the sender by reply e-mail 
 and destroy all copies of the original message. 
 HealthMarkets® is the brand name for products underwritten 
 and issued by the insurance subsidiaries of HealthMarkets, 
 Inc. -The Chesapeake Life Insurance Company®, Mid-West 
 National Life Insurance Company of TennesseeSM and The MEGA 
 Life and Health Insurance Company.SM
 
 
 
  -Original Message-
  From: IBM Mainframe Discussion List 
  [mailto:IBM-MAIN@bama.ua.edu] On Behalf Of esmie moo
  Sent: Tuesday, July 26, 2011 12:03 PM
  To: IBM-MAIN@bama.ua.edu
  Subject: CORRUPT PDS - I/O ERROR
  
  Good Morning Gentle Readers,
   
  When I try to browse a member of  my pds I get a I/O error.  
  I tried browsing several members but I get the same error 
  message.  Is there a way of fixing it?  For some reason the 
  storage group is NOT backed up so I cannot restore it from an 
  old backup.  I recovered the PDS from a DFHSM backup but when 
  I try to browse any members I still get the I/O error.  Is 
  there a work around to this problem or should I consider it lost?
   
  Thanks. 
  
  
 --
  For IBM-MAIN subscribe / signoff / archive

Re: EXTERNAL: Re: CORRUPT PDS - I/O ERROR

2011-07-26 Thread Mingee, David
Also, RECFM could have been changed to RECFM=U  vs. FB  if an inappropriate 
task was executed against this file.

-Original Message-
From: IBM Mainframe Discussion List [mailto:IBM-MAIN@bama.ua.edu] On Behalf Of 
Roach, Dennis (N-GHG CORP.)
Sent: Tuesday, July 26, 2011 1:49 PM
To: IBM-MAIN@bama.ua.edu
Subject: Re: EXTERNAL: Re: CORRUPT PDS - I/O ERROR

Do you know what the LRECL is/should be?
Can you read any members?

Dennis Roach
GHG Corporation
Lockheed Martin Mission Services
Facilities Design and Operations Contract Strategic Technical Engineering 
NASA/JSC
Address:
   2100 Space Park Drive 
   LM-15-4BH
   Houston, Texas 77058
Mail:
   P.O. Box 58487
   Mail Code H4C
   Houston, Texas 77258-8487
Phone:
   Voice:  (281)336-5027
   Cell:   (713)591-1059
   Fax:(281)336-5410
E-Mail:  dennis.ro...@lmco.com

All opinions expressed by me are mine and may not agree with my employer or any 
person, company, or thing, living or dead, on or near this or any other planet, 
moon, asteroid, or other spatial object, natural or manufactured, since the 
beginning of time.

-Original Message-
From: IBM Mainframe Discussion List [mailto:IBM-MAIN@bama.ua.edu] On Behalf Of 
esmie moo
Sent: Tuesday, July 26, 2011 12:41 PM
To: IBM-MAIN@bama.ua.edu
Subject: EXTERNAL: Re: CORRUPT PDS - I/O ERROR

John,
 
I followed  your example it add the member JUNK to the pds and I was able to 
browse the member JUNK which has the X in it.  However, the rest of the members 
still give the I/O error.  I know that am sounding thick however I am not sure 
as to what I should do for the other members.  Could you give me an example? 

From: McKown, John john.mck...@healthmarkets.com
To: IBM-MAIN@bama.ua.edu
Sent: Tuesday, July 26, 2011 1:22:20 PM
Subject: Re: CORRUPT PDS - I/O ERROR

The X is just junk instream data to put into the member JUNK. What it is 
doesn't matter. I just put it there for completeness.

--
John McKown
Systems Engineer IV
IT

Administrative Services Group

HealthMarkets®

9151 Boulevard 26 . N. Richland Hills . TX 76010
(817) 255-3225 phone . 
john.mck...@healthmarkets.com . www.HealthMarkets.com

Confidentiality Notice: This e-mail message may contain confidential or 
proprietary information. If you are not the intended recipient, please contact 
the sender by reply e-mail and destroy all copies of the original message. 
HealthMarkets® is the brand name for products underwritten and issued by the 
insurance subsidiaries of HealthMarkets, Inc. -The Chesapeake Life Insurance 
Company®, Mid-West National Life Insurance Company of TennesseeSM and The MEGA 
Life and Health Insurance Company.SM



 -Original Message-
 From: IBM Mainframe Discussion List
 [mailto:IBM-MAIN@bama.ua.edu] On Behalf Of esmie moo
 Sent: Tuesday, July 26, 2011 12:17 PM
 To: IBM-MAIN@bama.ua.edu
 Subject: Re: CORRUPT PDS - I/O ERROR
 
 John,
  
 Just to clarify, you have an X do I include it?  Also, I noticed that 
 you the SYSUT2 has the PDS name as well as the member name (JUNK).  
 Could you tell me what it is for?
 
 From: McKown, John john.mck...@healthmarkets.com
 To: IBM-MAIN@bama.ua.edu
 Sent: Tuesday, July 26, 2011 1:13:12 PM
 Subject: Re: CORRUPT PDS - I/O ERROR
 
 I had this happen in the past. A programmer modified the DCB 
 attributes on the DSCB. If you know what they are supposed to be, then 
 run an IEBGENER to set them to something good. For a card image 
 (source) type library, I do:
 
 //GENER EXEC PGM=IEBGENER
 //SYSPRINT DD SYSOUT=*
 //SYSIN DD DUMMY
 //SYSUT1 DD *
 X
 //SYSUT2 DD DSN=MY.SOURCE.PDS(JUNK),DISP=OLD, // 
 DCB=(LRECL=80,RECFM=FB,BLKSIZE=27920,DSORG=PO)
 //
 
 this is only an example! You need to know what the DCB characters 
 really are (too large a BLKSIZE is usually OK).
 
 --
 John McKown
 Systems Engineer IV
 IT
 
 Administrative Services Group
 
 HealthMarkets®
 
 9151 Boulevard 26 . N. Richland Hills . TX 76010
 (817) 255-3225 phone . 
 john.mck...@healthmarkets.com . www.HealthMarkets.com
 
 Confidentiality Notice: This e-mail message may contain confidential 
 or proprietary information. If you are not the intended recipient, 
 please contact the sender by reply e-mail and destroy all copies of 
 the original message.
 HealthMarkets® is the brand name for products underwritten and issued 
 by the insurance subsidiaries of HealthMarkets, Inc. -The Chesapeake 
 Life Insurance Company®, Mid-West National Life Insurance Company of 
 TennesseeSM and The MEGA Life and Health Insurance Company.SM
 
 
 
  -Original Message-
  From: IBM Mainframe Discussion List [mailto:IBM-MAIN@bama.ua.edu] On 
  Behalf Of esmie moo
  Sent: Tuesday, July 26, 2011 12:03 PM
  To: IBM-MAIN@bama.ua.edu
  Subject: CORRUPT PDS - I/O ERROR
  
  Good Morning Gentle Readers,
   
  When I try to browse a member of  my pds I get a I/O error. I tried 
  browsing several members but I get the same error message.  Is there 
  a way of fixing it?  For some reason the storage group is NOT backed 
  up so I

Re: EXTERNAL: Re: CORRUPT PDS - I/O ERROR

2011-07-26 Thread Binyamin Dissen
The DCB can be changed to RECFM=U,BLKSIZE=32760. That will guarantee that
members can be read. After looking at a few members, the correct values can be
determined.

On Tue, 26 Jul 2011 17:59:04 + Mingee, David
david.min...@libertymutual.com wrote:

:Also, RECFM could have been changed to RECFM=U  vs. FB  if an inappropriate 
task was executed against this file.
:
:-Original Message-
:From: IBM Mainframe Discussion List [mailto:IBM-MAIN@bama.ua.edu] On Behalf 
Of Roach, Dennis (N-GHG CORP.)
:Sent: Tuesday, July 26, 2011 1:49 PM
:To: IBM-MAIN@bama.ua.edu
:Subject: Re: EXTERNAL: Re: CORRUPT PDS - I/O ERROR
:
:Do you know what the LRECL is/should be?
:Can you read any members?
:
:Dennis Roach
:GHG Corporation
:Lockheed Martin Mission Services
:Facilities Design and Operations Contract Strategic Technical Engineering 
NASA/JSC
:Address:
:   2100 Space Park Drive 
:   LM-15-4BH
:   Houston, Texas 77058
:Mail:
:   P.O. Box 58487
:   Mail Code H4C
:   Houston, Texas 77258-8487
:Phone:
:   Voice:  (281)336-5027
:   Cell:   (713)591-1059
:   Fax:(281)336-5410
:E-Mail:  dennis.ro...@lmco.com
:
:All opinions expressed by me are mine and may not agree with my employer or 
any person, company, or thing, living or dead, on or near this or any other 
planet, moon, asteroid, or other spatial object, natural or manufactured, since 
the beginning of time.
:
:-Original Message-
:From: IBM Mainframe Discussion List [mailto:IBM-MAIN@bama.ua.edu] On Behalf 
Of esmie moo
:Sent: Tuesday, July 26, 2011 12:41 PM
:To: IBM-MAIN@bama.ua.edu
:Subject: EXTERNAL: Re: CORRUPT PDS - I/O ERROR
:
:John,
: 
:I followed  your example it add the member JUNK to the pds and I was able to 
browse the member JUNK which has the X in it.  However, the rest of the members 
still give the I/O error.  I know that am sounding thick however I am not sure 
as to what I should do for the other members.  Could you give me an example? 
:
:From: McKown, John john.mck...@healthmarkets.com
:To: IBM-MAIN@bama.ua.edu
:Sent: Tuesday, July 26, 2011 1:22:20 PM
:Subject: Re: CORRUPT PDS - I/O ERROR
:
:The X is just junk instream data to put into the member JUNK. What it is 
doesn't matter. I just put it there for completeness.

--
Binyamin Dissen bdis...@dissensoftware.com
http://www.dissensoftware.com

Director, Dissen Software, Bar  Grill - Israel


Should you use the mailblocks package and expect a response from me,
you should preauthorize the dissensoftware.com domain.

I very rarely bother responding to challenge/response systems,
especially those from irresponsible companies.

--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to lists...@bama.ua.edu with the message: GET IBM-MAIN INFO
Search the archives at http://bama.ua.edu/archives/ibm-main.html


Re: EXTERNAL: Re: CORRUPT PDS - I/O ERROR

2011-07-26 Thread Paul Strauss
If you have PDS or PDS85 on the system it may help.  You can run it in
batch like this:

//TSO  EXEC PGM=IKJEFT01
//* STEPLIB   DD DISP=SHR,DSN=  load library where PDS is
//SYSPRINT DD SYSOUT=*
//SYSTSPRT DD SYSOUT=*
//SYSTSIN  DD *
 PDS   ' put bad pds here '
 VERIFY :   This 
command with
the : says to read all members and list the bad ones.
 END
//

I'm not sure what you'll get if the dataset looks like a flat file if the
directory was written over, but it may tell you something.

If any members can be read, it will tell you which ones are the bad ones
and you can then create an IEBCOPY job with an Exclude for all the bad
members and copy the good members to a new dataset..

Thank You,

Paul Strauss

Integrated Technology Delivery, Global Services, IBM
L0DB z/OS MVS/Program Products/Security
150 Kettletown Rd.
Southbury, CT 06488
(203) 272-2758
strau...@us.ibm.com


|
| From:  |
|
  
--|
  |Binyamin Dissen bdis...@dissensoftware.com 
 |
  
--|
|
| To:|
|
  
--|
  |IBM-MAIN@bama.ua.edu 
 |
  
--|
|
| Date:  |
|
  
--|
  |07/26/2011 02:50 PM  
 |
  
--|
|
| Subject:   |
|
  
--|
  |Re: EXTERNAL: Re: CORRUPT PDS - I/O ERROR
 |
  
--|
|
| Sent by:   |
|
  
--|
  |IBM Mainframe Discussion List IBM-MAIN@bama.ua.edu 
 |
  
--|





The DCB can be changed to RECFM=U,BLKSIZE=32760. That will guarantee that
members can be read. After looking at a few members, the correct values can
be
determined.

On Tue, 26 Jul 2011 17:59:04 + Mingee, David
david.min...@libertymutual.com wrote:

:Also, RECFM could have been changed to RECFM=U  vs. FB  if an
inappropriate task was executed against this file.
:
:-Original Message-
:From: IBM Mainframe Discussion List [mailto:IBM-MAIN@bama.ua.edu] On
Behalf Of Roach, Dennis (N-GHG CORP.)
:Sent: Tuesday, July 26, 2011 1:49 PM
:To: IBM-MAIN@bama.ua.edu
:Subject: Re: EXTERNAL: Re: CORRUPT PDS - I/O ERROR
:
:Do you know what the LRECL is/should be?
:Can you read any members?
:
:Dennis Roach
:GHG Corporation
:Lockheed Martin Mission Services
:Facilities Design and Operations Contract Strategic Technical Engineering
NASA/JSC
:Address:
:   2100 Space Park Drive
:   LM-15-4BH
:   Houston, Texas 77058
:Mail:
:   P.O. Box 58487
:   Mail Code H4C
:   Houston, Texas 77258-8487
:Phone:
:   Voice:  (281)336-5027
:   Cell:   (713)591-1059
:   Fax:(281)336-5410
:E-Mail:  dennis.ro...@lmco.com
:
:All opinions expressed by me are mine and may not agree with my employer
or any person, company, or thing, living or dead, on or near this or any
other planet, moon, asteroid, or other spatial object, natural or
manufactured, since the beginning of time.
:
:-Original Message-
:From: IBM Mainframe Discussion List [mailto:IBM-MAIN@bama.ua.edu] On
Behalf Of esmie moo
:Sent: Tuesday, July 26, 2011 12:41 PM
:To: IBM-MAIN@bama.ua.edu
:Subject