Portal | Manuals | References | Downloads | Info | Programs | JCLs | Master the Mainframes
IBM Mainframe Computers Forums Index
 
Register
 
IBM Mainframe Computers Forums Index Mainframe: Search IBM Mainframe Forum: FAQ Memberlist Usergroups Profile Log in to check your private messages Log in
 

 

Restore the tape file
Goto page 1, 2  Next
 
Post new topic   Reply to topic    IBMMAINFRAMES.com Support Forums -> JCL & VSAM
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    Post subject: Restore the tape file
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

Site Director


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

PostPosted: Tue Aug 17, 2010 9:25 pm    Post subject:
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    Post subject:
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

Site Director


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

PostPosted: Tue Aug 17, 2010 9:46 pm    Post subject:
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    Post subject:
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    Post subject:
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

Site Director


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

PostPosted: Wed Aug 18, 2010 12:15 am    Post subject:
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: 8593
Location: Back in jolly old England

PostPosted: Wed Aug 18, 2010 11:31 am    Post subject:
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

Senior Member


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

PostPosted: Wed Aug 18, 2010 2:12 pm    Post subject:
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    Post subject:
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

Senior Member


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

PostPosted: Wed Aug 18, 2010 5:05 pm    Post subject:
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: http://www.ibmmainframes.com/viewtopic.php?t=30023&highlight=tms
Back to top
View user's profile Send private message
Anuj Dhawan

Senior Member


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

PostPosted: Wed Aug 18, 2010 5:09 pm    Post subject:
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:

http://www.ibmmainframes.com/viewtopic.php?t=22729&highlight=tms
http://www.ibmmainframes.com/viewtopic.php?t=3255&highlight=tms
http://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: 8593
Location: Back in jolly old England

PostPosted: Wed Aug 18, 2010 5:19 pm    Post subject:
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    Post subject:
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: 8593
Location: Back in jolly old England

PostPosted: Wed Aug 18, 2010 7:49 pm    Post subject:
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

Site Director


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

PostPosted: Wed Aug 18, 2010 7:58 pm    Post subject:
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: 8593
Location: Back in jolly old England

PostPosted: Wed Aug 18, 2010 7:59 pm    Post subject:
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    Post subject:
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: 8593
Location: Back in jolly old England

PostPosted: Thu Aug 19, 2010 3:51 pm    Post subject:
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: 236
Location: Cincinnati OH USA

PostPosted: Thu Aug 19, 2010 6:47 pm    Post subject:
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
View previous topic :: :: View next topic  
Post new topic   Reply to topic    IBMMAINFRAMES.com Support Forums -> JCL & VSAM All times are GMT + 6 Hours
Goto page 1, 2  Next
Page 1 of 2

 

Search our Forum:

Similar Topics
Topic Author Forum Replies Posted
No new posts Add PD field from 2nd file to PD in 1st Sushant Garje DFSORT/ICETOOL 6 Thu Dec 01, 2016 4:32 pm
No new posts File Aid to File Manager conversion murali3955 IBM Tools 4 Thu Nov 24, 2016 3:41 pm
No new posts How to convert the VBM file to VB or... Sulabh Agrawal JCL & VSAM 4 Fri Nov 18, 2016 1:04 pm
No new posts CICS Roll back partially - Need to re... dwijadas CICS 4 Wed Nov 16, 2016 4:30 pm
No new posts Problem in writing Output file vickey_dw COBOL Programming 5 Mon Nov 14, 2016 11:14 pm


Facebook
Back to Top
 
Mainframe Wiki | Forum Rules | Bookmarks | Subscriptions | FAQ | Tutorials | Contact Us