View previous topic :: View next topic
|
Author |
Message |
Alexis Sebastian
New User
Joined: 04 Mar 2010 Posts: 38 Location: DC
|
|
|
|
Hi All,
There is a tape file created as GDG. Tape File Name : WCD.ATRX134.CASE
Code: |
GDG dataset limit: 10
Active generations: 10
Owner:
Expiration date:
Uncatalog options: NOEMPTY
Scratch options: NOSCRATCH |
Currently I could find only 10 active generations from 700 to 709. But I would like to restore the 689th generation to a flat file. There is no backup for the tape file.
Is it possible to restore the 689th generation of that tape file? If so, please help me. |
|
Back to top |
|
|
dick scherrer
Moderator Emeritus
Joined: 23 Nov 2006 Posts: 19244 Location: Inside the Matrix
|
|
|
|
Hello,
If this was only created on tape, and the tape has been scratched and written on, the file is gone. . .
If the tape was scratched but not yet written on, the file should still be on the tape. Suggest you put a hold on the tape and then work with your storage management people to recover the file if it has not alreadt been written over. |
|
Back to top |
|
|
Alexis Sebastian
New User
Joined: 04 Mar 2010 Posts: 38 Location: DC
|
|
|
|
Thanks alot for your quick reply.
I would like to clarify one thing if i am not wrong.
As you said,
Quote: |
If this was only created on tape, and the tape has been scratched and written on, the file is gone. . . |
But that GDG tape file is created with the option as 'NOSCRATCH' ...Will it still make the same effect as you mentioned above? |
|
Back to top |
|
|
dick scherrer
Moderator Emeritus
Joined: 23 Nov 2006 Posts: 19244 Location: Inside the Matrix
|
|
|
|
Hello,
The best answer is with your storage management people. . .
What happens with the tape should be under control of the tape management system, not the GDG definition.
As i mentioned earlier, suggest you get the tape out of circulaton while this research is going on. . . |
|
Back to top |
|
|
Alexis Sebastian
New User
Joined: 04 Mar 2010 Posts: 38 Location: DC
|
|
|
|
Thank you for timed help!!!
I will catch the storage management team and get the things sorted out until then i will put that tape on hold.
Once again Thanks. |
|
Back to top |
|
|
Alexis Sebastian
New User
Joined: 04 Mar 2010 Posts: 38 Location: DC
|
|
|
|
Hi Dick scherrer,
I have one more query regarding the tape file.
what do i have to do if I would like to know the attributes of particular tape file. ( LRECL, retention period etc..)? |
|
Back to top |
|
|
dick scherrer
Moderator Emeritus
Joined: 23 Nov 2006 Posts: 19244 Location: Inside the Matrix
|
|
|
|
Hello,
Again, talk with your storage management people - they have ways to do this.
Your system may also have a job set up that prints the "header" information which you could look at. Most systems have this, but not everyone is permitted to run them. . . |
|
Back to top |
|
|
expat
Global Moderator
Joined: 14 Mar 2007 Posts: 8797 Location: Welsh Wales
|
|
|
|
dick scherrer wrote: |
If the tape was scratched but not yet written on, the file should still be on the tape. Suggest you put a hold on the tape and then work with your storage management people to recover the file if it has not alreadt been written over. |
Dick,
Unfortunately this may no longer be the case. If the tape volume was a virtual volume, the header info stored in the library may have been reset thus making the tape unavaulable - S813 abends if a read attempt is made.
The price of progress I suppose. The virtual tape concept is great in some ways but a step backwards in others. |
|
Back to top |
|
|
Anuj Dhawan
Superior Member
Joined: 22 Apr 2006 Posts: 6250 Location: Mumbai, India
|
|
|
|
Alexis Sebastian wrote: |
what do i have to do if I would like to know the attributes of particular tape file. ( LRECL, retention period etc..)? |
If you have access to TMS tools at your shop - you can make use of that. Other way can be, use the SORT to copy just the first record and see what it shows in SYSOUT - LRECL and BLKSIZE will be shown, however, things like retention-period etc. will not be available there in SYSOUT. |
|
Back to top |
|
|
Alexis Sebastian
New User
Joined: 04 Mar 2010 Posts: 38 Location: DC
|
|
|
|
Thanks everyone!!!
Anuj,
TMS is not available here. Hence i have tried using sort to copy the first record alone in order to find its LRECL but ends up with abend.
Code: |
OPTION COPY,STOPAFT=1
ICE043A 3 INVALID DATA SET ATTRIBUTES SPECIFIED SORTIN RECFM
ICE751I 0 C5-K90013 C6-K90013 C7-K90000 C8-K42135 E7-K24705
ICE052I 3 END OF DFSORT |
Code: |
//STEP01 EXEC PGM=SORT
//SYSPRINT DD SYSOUT=*
//SYSOUT DD SYSOUT=*
//SORTIN DD DSN=Tape file,DISP=SHR
//SORTOUT DD SYSOUT=*
//SYSIN DD *
OPTION COPY,STOPAFT=1
/* |
|
|
Back to top |
|
|
Anuj Dhawan
Superior Member
Joined: 22 Apr 2006 Posts: 6250 Location: Mumbai, India
|
|
|
|
Alex - this message has some clue:
Code: |
ICE043A 3 INVALID DATA SET ATTRIBUTES SPECIFIED SORTIN RECFM |
Please check what you have coded at SORTIN or show us the exact code, you've used.
Have a look at this thread too, might help: www.ibmmainframes.com/viewtopic.php?t=30023&highlight=tms |
|
Back to top |
|
|
Anuj Dhawan
Superior Member
Joined: 22 Apr 2006 Posts: 6250 Location: Mumbai, India
|
|
Back to top |
|
|
expat
Global Moderator
Joined: 14 Mar 2007 Posts: 8797 Location: Welsh Wales
|
|
|
|
The first thing I would find out is if the volume is real or virtual.
If it is real, then you can get information by printing the label. If it is virtual, move on and forget about it. |
|
Back to top |
|
|
Alexis Sebastian
New User
Joined: 04 Mar 2010 Posts: 38 Location: DC
|
|
|
|
Anuj,
Quote: |
Please check what you have coded at SORTIN or show us the exact code, you've used. |
Code: |
//TAPETST JOB (1,999999,1A),'CSVTEST',CLASS=1,
// MSGCLASS=X,NOTIFY=&SYSUID
//*
//STEP01 EXEC PGM=SORT
//SYSPRINT DD SYSOUT=*
//SYSOUT DD SYSOUT=*
//SORTIN DD DSN=tape file,DISP=SHR
//SORTOUT DD SYSOUT=*
//SYSIN DD *
OPTION COPY,STOPAFT=1
/* |
Error Msg:-
Code: |
1ICE143I 0 BLOCKSET COPY TECHNIQUE SELECTED
ICE250I 0 VISIT http://www.ibm.com/storage/dfsort FOR DFSORT PAPERS, EXAMPLES
ICE000I 1 - CONTROL STATEMENTS FOR 5694-A01, Z/OS DFSORT V1R5 - 11:40 ON WED
0 OPTION COPY,STOPAFT=1
ICE043A 3 INVALID DATA SET ATTRIBUTES SPECIFIED SORTIN RECFM
ICE751I 0 C5-K90013 C6-K90013 C7-K90000 C8-K42135 E7-K24705
ICE052I 3 END OF DFSORT |
This is the one i have used....
Expat,
Quote: |
The first thing I would find out is if the volume is real or virtual. |
Can you please help me, how to find out whether volume is real or virtual?
I have tried so many options to get the LRECL but everytime i am getting error related to input tape file only. As you mentioned, if its virtual, we cant find anything...thats why i like to find out that first?
Please help me. |
|
Back to top |
|
|
expat
Global Moderator
Joined: 14 Mar 2007 Posts: 8797 Location: Welsh Wales
|
|
|
|
This will print off the tape label information for the given volser.
If the tape is physical and has not been overwritten then the info you require will be shown. If it is physical or logical and the tape has been overwritten the output will show the current dataset name (17). If it is logical and not been overwritten then maybe the label will print as a single line of zeros, or whatever your VTS is set up to use.
As for it being physical or logical you will need to ask the storage management people to tell you that.
Code: |
//*
//READLABL EXEC PGM=IEBGENER
//SYSOUT DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//SYSUT1 DD DSN=Data_Set_Name,
// DISP=SHR,
// UNIT=(KSET,1,DEFER),
// LABEL=(1,BLP),EXPDT=98000,
// RECFM=FB,LRECL=80,BLKSIZE=80,
// VOL=SER=volser
//SYSUT2 DD SYSOUT=*,DCB=BLKSIZE=80
//SYSIN DD DUMMY |
|
|
Back to top |
|
|
dick scherrer
Moderator Emeritus
Joined: 23 Nov 2006 Posts: 19244 Location: Inside the Matrix
|
|
|
|
Hi Expat,
Yup, i probably should have pushed to find out if the tape was actually a tape. . . Foolish me. . .
Quote: |
This will print off the tape label information for the given volser. |
It will if the system still permits BLP processing. Several of my clients no longer permit people to use BLP in their jcl. Of course, the storage management people are exempt fro the rule
After this many iterations, i'm not sure just why the tape management people have not been involved. . . |
|
Back to top |
|
|
expat
Global Moderator
Joined: 14 Mar 2007 Posts: 8797 Location: Welsh Wales
|
|
|
|
dick scherrer wrote: |
After this many iterations, i'm not sure just why the tape management people have not been involved. . . |
Dick, us storage people like long tea breaks, usually Monday through Thursday |
|
Back to top |
|
|
Alexis Sebastian
New User
Joined: 04 Mar 2010 Posts: 38 Location: DC
|
|
|
|
Hi Dick scherrer,
As you all told, i contacted the storage management people, they have given me the volume serial numbers thru which i can restore that dataset...
Can you please help me how to restore that dataset through that volume serial number?
Thanks in advance!!! |
|
Back to top |
|
|
expat
Global Moderator
Joined: 14 Mar 2007 Posts: 8797 Location: Welsh Wales
|
|
|
|
How do you mean restore the dataset ?
Do you catalog it, use it to create another file(s). Which program was used to create the file. |
|
Back to top |
|
|
dneufarth
Active User
Joined: 27 Apr 2005 Posts: 419 Location: Inside the SPEW (Southwest Ohio, USA)
|
|
|
|
As it's part of a GDG, you may want to look at other jcl and program that creates the generations to get the BLKSIZE, LRECL et al.
Along with Expats info request above, someone will guide you.
Remember, specifying volser and BLP may be secured or controlled in your shop. |
|
Back to top |
|
|
dick scherrer
Moderator Emeritus
Joined: 23 Nov 2006 Posts: 19244 Location: Inside the Matrix
|
|
|
|
Hello,
Suggest you make a copy.
Then use the original or the copy to do whatever you need to do.
Someone will probably need to determine if this should be re-cataloged (possibly not as it has already cycled out, or just what should become of the salvaged data) or there is a one-tme need, etc . . .
From the dialog so far, i believe this is a single-volume file as well as a single-file volume. If not, there are other considerations. . . |
|
Back to top |
|
|
dneufarth
Active User
Joined: 27 Apr 2005 Posts: 419 Location: Inside the SPEW (Southwest Ohio, USA)
|
|
|
|
Dick,
Good point!! |
|
Back to top |
|
|
Alexis Sebastian
New User
Joined: 04 Mar 2010 Posts: 38 Location: DC
|
|
|
|
Dick,
Storage Management People gave me a information like the required generation(G0688V00) of the tape file is on 2 tapes and they have given 2 volume serial numbers.
Also they told that I need to code the volsers in the restore job as they are no longer part of the GDG base.
Please guide to proceed further... |
|
Back to top |
|
|
dneufarth
Active User
Joined: 27 Apr 2005 Posts: 419 Location: Inside the SPEW (Southwest Ohio, USA)
|
|
|
|
Alexis,
see my previous post. you need the RECFM, BLKSIZE, LRECL from some JCL or program that create the generations that exist. |
|
Back to top |
|
|
dick scherrer
Moderator Emeritus
Joined: 23 Nov 2006 Posts: 19244 Location: Inside the Matrix
|
|
|
|
Hello,
The first thing i would do is to set up some jcl to make a copy (i would make the copy using my sort product) - the input would specify both volume serial numbers as the file is no longer cataloged. I'd use some other dataset name for the copy - not the original gdg name. The copy dsn would be cataloged so it can be directly referenced without having to specify volsers to use the data.
Once you have a new dataset name that is cataloged, run whatever processes that need this data using the newly made copy. |
|
Back to top |
|
|
|