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
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: 420
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: 420
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
mmwife

Super Moderator


Joined: 30 May 2003
Posts: 1592

PostPosted: Sun Aug 22, 2010 8:05 am
Reply with quote

And if you're using Syncsort or DFSort (and there may be others that do this) you don't have to specify the DCB info for the O/P file; the Sort product will use the I/P DCB info to create your O/P tape(s).

However, since your I/P file is no longer cataloged, you may have to provide its DCB info (not sure if Sort will use the LABLE info).
Back to top
View user's profile Send private message
gcicchet

Senior Member


Joined: 28 Jul 2006
Posts: 1702
Location: Australia

PostPosted: Mon Aug 23, 2010 5:48 am
Reply with quote

Hi,

i'm pretty sure that SORT will obtain it's DCB from the LABEL information.

The DCB information is not contained in the catalog entry.


Gerry
Back to top
View user's profile Send private message
Alexis Sebastian

New User


Joined: 04 Mar 2010
Posts: 38
Location: DC

PostPosted: Mon Aug 23, 2010 5:19 pm
Reply with quote

Hi All,

I have used the below JCL to create a new tape file thru the given volume serial numbers and it has been created.
Code:

//STEP01     EXEC PGM=IEBGENER                 
//SYSPRINT   DD SYSOUT=*                       
//SYSOUT     DD SYSOUT=*                       
//SYSUT1     DD DSN=TAPE FILE.G0688V00,DISP=SHR,
//             UNIT=CART,VOL=SER=(557959,577170)
//SYSUT2     DD DSN=NEW TAPE FILE,             
//           DISP=(NEW,CATLG,DELETE),UNIT=CART,
//           SPACE=(CYL,(200,200),RLSE),       
//           DCB=(BLKSIZE=32760,LRECL=32760)   
//SYSIN      DD DUMMY                           


If the above process is correct then i can go ahead to copy the newly created tape file into a DASD file.

Please guide me if i am wrong!!!
Back to top
View user's profile Send private message
Bill Dennis

Active Member


Joined: 17 Aug 2007
Posts: 562
Location: Iowa, USA

PostPosted: Mon Aug 23, 2010 7:01 pm
Reply with quote

Alex,
If you have a new tape, go ahead and create your disk copy.

The LRECL and BLKSIZE of 32760 on the output file seem odd. Are these correct? If you omit them, IEBGENER will mimic the input file attributes.
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 24, 2010 12:55 pm
Reply with quote

Hi Bill Dennis,

Quote:
The LRECL and BLKSIZE of 32760 on the output file seem odd. Are these correct? If you omit them, IEBGENER will mimic the input file attributes.


I have omitted that dd statement as below.
Code:

//STEP01     EXEC PGM=IEBGENER                 
//SYSPRINT   DD SYSOUT=*                       
//SYSOUT     DD SYSOUT=*                       
//SYSUT1     DD DSN=TAPE FILE.G0688V00,DISP=SHR,
//             UNIT=CART,VOL=SER=(557959,577170)
//SYSUT2     DD DSN=NEW TAPE FILE,             
//           DISP=(NEW,CATLG,DELETE),UNIT=CART,
//           SPACE=(CYL,(200,200),RLSE)         
//SYSIN      DD DUMMY                           


are these correct now???
If so, please help me to copy this to DASD.
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 24, 2010 1:54 pm
Reply with quote

Hi,

I have tried coping single record from the newly copied tape file using the below code but its not successfull.
Code:
//RESTOR1  EXEC PGM=SORT                         
//SYSPRINT DD SYSOUT=*                           
//SYSOUT   DD SYSOUT=*                           
//SORTIN   DD DSN=NEWLY COPIED TAPE FILE,         
//           DISP=OLD,UNIT=CART,                 
//           VOL=SER=(939637,940392)             
//SORTOUT  DD DSN=DASD FILE,                     
//           DISP=(NEW,CATLG,CATLG),             
//           DCB=(BLKSIZE=0,LRECL=32760,RECFM=FB),
//           SPACE=(TRK,(1000,1000),RLSE),       
//           UNIT=SYSDA                           
//SYSIN    DD *                                   
  OPTION COPY,STOPAFT=1                           
/*                                               


Error Message:-

Code:
ICE143I 0 BLOCKSET     COPY  TECHNIQUE SELECTED                                 
ICE250I 0 VISIT http://www.ibm.com/storage/dfsort FOR DFSORT PAPERS, EXAMPLES AN
ICE000I 1 - CONTROL STATEMENTS FOR 5694-A01, Z/OS DFSORT V1R5 - 09:19 ON TUE AUG
            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                                                         


Please let me know what did i do wrong?
Back to top
View user's profile Send private message
expat

Global Moderator


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

PostPosted: Tue Aug 24, 2010 2:01 pm
Reply with quote

Do you know which program / utility created the original take, from which it seems that you have since produced a copy of by using IEBGENER.

Does the ouput from the IEBGENER copy show any details of the DCB attributes.

Did you dump the label as I had suggested earlier using IEBGENER
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 24, 2010 3:49 pm
Reply with quote

Hi Expat,

Quote:
Do you know which program / utility created the original take, from which it seems that you have since produced a copy of by using IEBGENER.


It was created by the program 'ARCMAIN' but I am not aware what it is?

Quote:
Does the ouput from the IEBGENER copy show any details of the DCB attributes.


No...It didnt show the DCB attributes.

Quote:
Did you dump the label as I had suggested earlier using IEBGENER


I have tried but getting authorization problem, stating that tape can not be accessed!!!

Please guide me what do i have to do next in order to make a copy into DASD?
Back to top
View user's profile Send private message
expat

Global Moderator


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

PostPosted: Tue Aug 24, 2010 4:07 pm
Reply with quote

From a quick google - it appears that ARCMAIN is some sort of a Teradata utility, so not using that product here, there's not a lot of manual reading that I can do for you.
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 24, 2010 7:54 pm
Reply with quote

Hello,

What did printing the tape header show?

What about using ARCMAIN to copy the file to dasd?
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 Compare 2 files and retrive records f... DFSORT/ICETOOL 3
No new posts FTP VB File from Mainframe retaining ... JCL & VSAM 8
No new posts Extract the file name from another fi... DFSORT/ICETOOL 6
No new posts How to split large record length file... DFSORT/ICETOOL 10
No new posts Extracting Variable decimal numbers f... DFSORT/ICETOOL 17
Search our Forums:

Back to Top