IBM Mainframe Forum Index
 
Log In
 
IBM Mainframe Forum Index Mainframe: Search IBM Mainframe Forum: FAQ Register
 

Restore the tape file


IBM Mainframe Forums -> JCL & VSAM
Post new topic   Reply to topic
View previous topic :: View next topic  
Author Message
Alexis Sebastian

New User


Joined: 04 Mar 2010
Posts: 38
Location: DC

PostPosted: Tue Aug 17, 2010 9:18 pm
Reply with quote

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
View user's profile Send private message
dick scherrer

Moderator Emeritus


Joined: 23 Nov 2006
Posts: 19244
Location: Inside the Matrix

PostPosted: Tue Aug 17, 2010 9:25 pm
Reply with quote

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
View user's profile Send private message
Alexis Sebastian

New User


Joined: 04 Mar 2010
Posts: 38
Location: DC

PostPosted: Tue Aug 17, 2010 9:39 pm
Reply with quote

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
View user's profile Send private message
dick scherrer

Moderator Emeritus


Joined: 23 Nov 2006
Posts: 19244
Location: Inside the Matrix

PostPosted: Tue Aug 17, 2010 9:46 pm
Reply with quote

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
View user's profile Send private message
Alexis Sebastian

New User


Joined: 04 Mar 2010
Posts: 38
Location: DC

PostPosted: Tue Aug 17, 2010 9:56 pm
Reply with quote

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
View user's profile Send private message
Alexis Sebastian

New User


Joined: 04 Mar 2010
Posts: 38
Location: DC

PostPosted: Tue Aug 17, 2010 9:59 pm
Reply with quote

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
View user's profile Send private message
dick scherrer

Moderator Emeritus


Joined: 23 Nov 2006
Posts: 19244
Location: Inside the Matrix

PostPosted: Wed Aug 18, 2010 12:15 am
Reply with quote

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
View user's profile Send private message
expat

Global Moderator


Joined: 14 Mar 2007
Posts: 8797
Location: Welsh Wales

PostPosted: Wed Aug 18, 2010 11:31 am
Reply with quote

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
View user's profile Send private message
Anuj Dhawan

Superior Member


Joined: 22 Apr 2006
Posts: 6250
Location: Mumbai, India

PostPosted: Wed Aug 18, 2010 2:12 pm
Reply with quote

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
View user's profile Send private message
Alexis Sebastian

New User


Joined: 04 Mar 2010
Posts: 38
Location: DC

PostPosted: Wed Aug 18, 2010 4:13 pm
Reply with quote

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
View user's profile Send private message
Anuj Dhawan

Superior Member


Joined: 22 Apr 2006
Posts: 6250
Location: Mumbai, India

PostPosted: Wed Aug 18, 2010 5:05 pm
Reply with quote

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
View user's profile Send private message
Anuj Dhawan

Superior Member


Joined: 22 Apr 2006
Posts: 6250
Location: Mumbai, India

PostPosted: Wed Aug 18, 2010 5:09 pm
Reply with quote

Also, suggest you search the Forums on "TMS" and you will get enough links to give you a go. Some of the links, which might interest you, are:

www.ibmmainframes.com/viewtopic.php?t=22729&highlight=tms
www.ibmmainframes.com/viewtopic.php?t=3255&highlight=tms
www.ibmmainframes.com/viewtopic.php?t=20982&highlight=tms
Back to top
View user's profile Send private message
expat

Global Moderator


Joined: 14 Mar 2007
Posts: 8797
Location: Welsh Wales

PostPosted: Wed Aug 18, 2010 5:19 pm
Reply with quote

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
View user's profile Send private message
Alexis Sebastian

New User


Joined: 04 Mar 2010
Posts: 38
Location: DC

PostPosted: Wed Aug 18, 2010 7:38 pm
Reply with quote

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
View user's profile Send private message
expat

Global Moderator


Joined: 14 Mar 2007
Posts: 8797
Location: Welsh Wales

PostPosted: Wed Aug 18, 2010 7:49 pm
Reply with quote

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
View user's profile Send private message
dick scherrer

Moderator Emeritus


Joined: 23 Nov 2006
Posts: 19244
Location: Inside the Matrix

PostPosted: Wed Aug 18, 2010 7:58 pm
Reply with quote

Hi Expat,

Yup, i probably should have pushed to find out if the tape was actually a tape. . . Foolish me. . . icon_confused.gif

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 icon_cool.gif

After this many iterations, i'm not sure just why the tape management people have not been involved. . .
Back to top
View user's profile Send private message
expat

Global Moderator


Joined: 14 Mar 2007
Posts: 8797
Location: Welsh Wales

PostPosted: Wed Aug 18, 2010 7:59 pm
Reply with quote

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 icon_biggrin.gif
Back to top
View user's profile Send private message
Alexis Sebastian

New User


Joined: 04 Mar 2010
Posts: 38
Location: DC

PostPosted: Thu Aug 19, 2010 3:42 pm
Reply with quote

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
View user's profile Send private message
expat

Global Moderator


Joined: 14 Mar 2007
Posts: 8797
Location: Welsh Wales

PostPosted: Thu Aug 19, 2010 3:51 pm
Reply with quote

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
View user's profile Send private message
dneufarth

Active User


Joined: 27 Apr 2005
Posts: 419
Location: Inside the SPEW (Southwest Ohio, USA)

PostPosted: Thu Aug 19, 2010 6:47 pm
Reply with quote

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
View user's profile Send private message
dick scherrer

Moderator Emeritus


Joined: 23 Nov 2006
Posts: 19244
Location: Inside the Matrix

PostPosted: Thu Aug 19, 2010 7:21 pm
Reply with quote

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
View user's profile Send private message
dneufarth

Active User


Joined: 27 Apr 2005
Posts: 419
Location: Inside the SPEW (Southwest Ohio, USA)

PostPosted: Thu Aug 19, 2010 7:29 pm
Reply with quote

Dick,

Good point!!
Back to top
View user's profile Send private message
Alexis Sebastian

New User


Joined: 04 Mar 2010
Posts: 38
Location: DC

PostPosted: Thu Aug 19, 2010 7:38 pm
Reply with quote

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
View user's profile Send private message
dneufarth

Active User


Joined: 27 Apr 2005
Posts: 419
Location: Inside the SPEW (Southwest Ohio, USA)

PostPosted: Thu Aug 19, 2010 9:29 pm
Reply with quote

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
View user's profile Send private message
dick scherrer

Moderator Emeritus


Joined: 23 Nov 2006
Posts: 19244
Location: Inside the Matrix

PostPosted: Thu Aug 19, 2010 9:35 pm
Reply with quote

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
View user's profile Send private message
View previous topic :: :: View next topic  
Post new topic   Reply to topic View Bookmarks
All times are GMT + 6 Hours
Forum Index -> JCL & VSAM Goto page 1, 2  Next

 


Similar Topics
Topic Forum Replies
No new posts How to split large record length file... DFSORT/ICETOOL 10
No new posts Extracting Variable decimal numbers f... DFSORT/ICETOOL 17
No new posts SFTP Issue - destination file record ... All Other Mainframe Topics 2
No new posts Access to non cataloged VSAM file JCL & VSAM 18
No new posts Need help for File Aid JCL to extract... Compuware & Other Tools 23
Search our Forums:

Back to Top