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

ADRDSSU ...restoring tape data to a flat file


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

New User


Joined: 12 Feb 2010
Posts: 10
Location: India

PostPosted: Fri Mar 05, 2010 9:52 am
Reply with quote

I have copied some data to a tape dataset.
Now i need is to restore that to a flat file.But while doing that i am getting RC 4 with the following error...

0ADR415W (001)-TDLOG(01), NO DATA SETS WERE COPIED, DUMPED, OR RESTORED FROM ANY VOLUME

My code is as follows

//STEP EXEC PGM=ADRDSSU
//TAPE1 DD DSN=TAPE.T1,
// DISP=SHR
//BKP DD DSN=BACKUP.T1,
// DISP=(NEW,CATLG,CATLG),
// DATACLAS=DSORGPSE,
// DCB=(BLKSIZE=0,LRECL=133,RECFM=FB),
// SPACE=(TRK,(1000,1000),RLSE),
// UNIT=SYSDA
//SYSIN DD *
RESTORE DATASET(INCLUDE (BACKUP.T1))-
INDDNAME (TAPE1) -
OUTDDNAME (BKP)
/*
//SYSPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*

Please someone tell me why i am getting RC4 and the tape data is not copying?
Back to top
View user's profile Send private message
Terry Heinze

JCL Moderator


Joined: 14 Jul 2008
Posts: 1248
Location: Richfield, MN, USA

PostPosted: Fri Mar 05, 2010 9:55 am
Reply with quote

What program/utility was used to create TAPE.T1?
Back to top
View user's profile Send private message
dick scherrer

Moderator Emeritus


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

PostPosted: Fri Mar 05, 2010 9:57 am
Reply with quote

Hello,

How do you know the tape has the expected file?

Suggest you post the informational output generated when the tape was created.
Back to top
View user's profile Send private message
Aaparna Vipin

New User


Joined: 12 Feb 2010
Posts: 10
Location: India

PostPosted: Fri Mar 05, 2010 10:13 am
Reply with quote

What program/utility was used to create TAPE.T1?

I used the same ADRDSSU utility for creating the tape also.
Back to top
View user's profile Send private message
dick scherrer

Moderator Emeritus


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

PostPosted: Fri Mar 05, 2010 10:16 am
Reply with quote

Hello,

To repeat:
Quote:
How do you know the tape has the expected file?

Suggest you post the informational output generated when the tape was created.
If the informational output from the original backup is not available, post the jcl and control statements used to create the backup.
Back to top
View user's profile Send private message
Aaparna Vipin

New User


Joined: 12 Feb 2010
Posts: 10
Location: India

PostPosted: Fri Mar 05, 2010 10:17 am
Reply with quote

Suggest you post the informational output generated when the tape was created.

PAGE 0001 5695-DF175 DFSMSDSS V1R09.0 DATA SET SERVICES 2010.063 23:36
DUMP DATASET(INCLUDE (GRT.INPUT.DAT))- 00020
OUTDDNAME (TAPEOUT) 00046
ADR101I (R/I)-RI01 (01), TASKID 001 HAS BEEN ASSIGNED TO COMMAND 'DUMP '
ADR109I (R/I)-RI01 (01), 2010.063 23:36:31 INITIAL SCAN OF USER CONTROL STATEMENT COMPLETED
ADR016I (001)-PRIME(01), RACF LOGGING OPTION IN EFFECT FOR THIS TASK
ADR006I (001)-STEND(01), 2010.063 23:36:31 EXECUTION BEGINS
ADR903I (001)-PSEDM(01), DUMP OF EXTENDED SEQUENTIAL DATA SET GRT.INPUT.DAT WAS SUCCESSFUL. SIZE OF DATA SET DUMPED WAS
0000000000000A64.
ADR801I (001)-DTDSC(01), DATA SET FILTERING IS COMPLETE. 1 OF 1 DATA SETS WERE SELECTED: 0 FAILED SERIALIZATION AND 0 FAILED FOR OTHER REASONS.
ADR454I (001)-DTDSC(01), THE FOLLOWING DATA SETS WERE SUCCESSFULLY PROCESSED
GRT.INPUT.DAT
ADR006I (001)-STEND(02), 2010.063 23:36:35 EXECUTION ENDS
ADR013I (001)-CLTSK(01), 2010.063 23:36:35 TASK COMPLETED WITH RETURN CODE 0000
ADR012I (SCH)-DSSU (01), 2010.063 23:36:35 DFSMSDSS PROCESSING COMPLETE. HIGHEST RETURN CODE IS 0000
Back to top
View user's profile Send private message
gcicchet

Senior Member


Joined: 28 Jul 2006
Posts: 1702
Location: Australia

PostPosted: Fri Mar 05, 2010 10:20 am
Reply with quote

Hi,

the dataset that was dumped is not the dataset you are restoring.


Gerry
Back to top
View user's profile Send private message
Aaparna Vipin

New User


Joined: 12 Feb 2010
Posts: 10
Location: India

PostPosted: Fri Mar 05, 2010 10:32 am
Reply with quote

yes it is ....i have used the same name...but in my qns its just to make it clear i have given like tape/backup etc

To make it clear,please find my belowJCL

000003 //STEP EXEC PGM=ADRDSSU
000004 //TAPE1 DD DSN=GRT.TAPE.T1,
000005 // DISP=SHR
000006 //BKP DD DSN=GRT.BACKUP.G813,
000007 // DISP=(NEW,CATLG,CATLG),
000008 // DATACLAS=DSORGPSE,
000009 // DCB=(BLKSIZE=0,LRECL=133,RECFM=FB),
000010 // SPACE=(TRK,(1000,1000),RLSE),
000011 // UNIT=SYSDA
000012 //SYSIN DD *
000013 RESTORE DATASET(INCLUDE (GRT.BACKUP.G813.**))-
000014 INDDNAME (TAPE1) -
000015 OUTDDNAME (BKP)
Back to top
View user's profile Send private message
enrico-sorichetti

Superior Member


Joined: 14 Mar 2007
Posts: 10888
Location: italy

PostPosted: Fri Mar 05, 2010 10:44 am
Reply with quote

Quote:
but in my qns its just to make it clear i have given like tape/backup etc

You are just waiting our time!
post the real job used for the dump and the real job used for restore!
anything different will be useless

from the starting post
ADR415W (001)-TDLOG(01), NO DATA SETS WERE COPIED, DUMPED, OR RESTORED FROM ANY VOLUME
it means that no dataset corresponding to the include pattern was found on the tape full stop
in these cases the system is to be trusted more than Your judgment

also the logic of the first jcl posted is wrong,
the include should use the dataset name to be restored, not the name od the dataset containing the <backup>
Back to top
View user's profile Send private message
Terry Heinze

JCL Moderator


Joined: 14 Jul 2008
Posts: 1248
Location: Richfield, MN, USA

PostPosted: Fri Mar 05, 2010 10:49 am
Reply with quote

Where does your JCL state that GRT.TAPE.T1 was the data set that was created when you ran your backup job? You've shown us your restore JCL twice now, but not your backup JCL.
Back to top
View user's profile Send private message
dick scherrer

Moderator Emeritus


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

PostPosted: Fri Mar 05, 2010 10:50 am
Reply with quote

Hello,

From the 2 posted jobs. . .
Code:
DUMP DATASET(INCLUDE (GRT.INPUT.DAT))-
000013 RESTORE DATASET(INCLUDE (GRT.BACKUP.G813.**))-


Quote:
....i have used the same name...
Ah, Umm, well. . . It surely does not look like they are the same. . .

Possibly, i'm missing something icon_confused.gif
Back to top
View user's profile Send private message
Aaparna Vipin

New User


Joined: 12 Feb 2010
Posts: 10
Location: India

PostPosted: Fri Mar 05, 2010 10:51 am
Reply with quote

For the job i posted ...for restoring i can show you the dump.....its showing the same ...Rc 4

Act I used the same output generated from the job(which uses ADRDSSU for copying data to tapefile).AS posted the dump of that job shows like it has copied all data to tape file.

ADR903I (001)-PSEDM(01), DUMP OF EXTENDED SEQUENTIAL DATA SET GRT.INPUT.DAT WAS SUCCESSFUL. SIZE OF DATA SET DUMPED WAS
0000000000000A64

Now when i am trying to restore the tape file(same o/p file generted) i am getting RC 4.

ADR415W (001)-TDLOG(01), NO DATA SETS WERE COPIED, DUMPED, OR RESTORED FROM ANY VOLUME

Sorry for the confusion...
Back to top
View user's profile Send private message
enrico-sorichetti

Superior Member


Joined: 14 Mar 2007
Posts: 10888
Location: italy

PostPosted: Fri Mar 05, 2010 10:55 am
Reply with quote

Quote:
Now when i am trying to restore the tape file(same o/p file generted) i am getting RC 4.

ADR415W (001)-TDLOG(01), NO DATA SETS WERE COPIED, DUMPED, OR RESTORED FROM ANY VOLUME

Sorry for the confusion...


just more confusion,
again, You are dumping something and restoring something else...
as Dick has already pointed out!

if You were restoring the same dataset You would not receive the ADR... message
Back to top
View user's profile Send private message
Aaparna Vipin

New User


Joined: 12 Feb 2010
Posts: 10
Location: India

PostPosted: Fri Mar 05, 2010 10:58 am
Reply with quote

Please find my JCLs

Copying from a file to tape file

000003 //STEP020 EXEC PGM=ADRDSSU
000004 //SYSPRINT DD SYSOUT=*
000005 //SYSUDUMP DD SYSOUT=*
000006 //TAPEOUT DD DSN=GRT.TAPE.T1,
000007 // DISP=(NEW,CATLG,DELETE),
000008 // DCB=(BLKSIZE=0,LRECL=133,RECFM=FB),
000009 // UNIT=VTS
000010 //SYSIN DD *
000011 DUMP DATASET(INCLUDE (GRT.INPUT.DAT))-
000012 OUTDDNAME (TAPEOUT)

Restoring the tape file

000003 //STEP EXEC PGM=ADRDSSU
000004 //TAPE1 DD DSN=GRT.TAPE.T1,
000005 // DISP=SHR
000006 //BKP DD DSN=GRT.BACKUP.G813,
000007 // DISP=(NEW,CATLG,CATLG),
000008 // DATACLAS=DSORGPSE,
000009 // DCB=(BLKSIZE=0,LRECL=133,RECFM=FB),
000010 // SPACE=(TRK,(1000,1000),RLSE),
000011 // UNIT=SYSDA
000012 //SYSIN DD *
000013 RESTORE DATASET(INCLUDE (GRT.BACKUP.G813.**))-
000014 INDDNAME (TAPE1) -
000015 OUTDDNAME (BKP)

Now i think this really makes everything clear....
Back to top
View user's profile Send private message
dick scherrer

Moderator Emeritus


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

PostPosted: Fri Mar 05, 2010 10:59 am
Reply with quote

Hello,

You really need to pay more careful attention to what you are being provided in these replies. What you are submitting to restore does not match what you successfully backed up.

Until you correct the restore job, there is nothing anyone can do. . .
Back to top
View user's profile Send private message
enrico-sorichetti

Superior Member


Joined: 14 Mar 2007
Posts: 10888
Location: italy

PostPosted: Fri Mar 05, 2010 11:03 am
Reply with quote

Quote:
Now i think this really makes everything clear....


it just makes clear for the umpteen time that You
are dumping... DUMP DATASET(INCLUDE (GRT.INPUT.DAT))-
and trying to restore ... RESTORE DATASET(INCLUDE (GRT.BACKUP.G813.**))-

what is that You do not understand!

Quote:
Hope this helps,

given the topic trend, I do not think so! icon_biggrin.gif
Back to top
View user's profile Send private message
Aaparna Vipin

New User


Joined: 12 Feb 2010
Posts: 10
Location: India

PostPosted: Fri Mar 05, 2010 11:12 am
Reply with quote

I have successfully backed out datset GRT.TAPE.T1

you mean to tell my restore job should be like


000012 //SYSIN DD *
000013 RESTORE DATASET(INCLUDE (GRT.TAPE.T1))-
000014 INDDNAME (TAPE1) -
000015 OUTDDNAME (BKP)

TAPE1-GRT.TAPE.T1
BKP-GRT.BACKUP.G813

Please correct me where i m wrong?
Back to top
View user's profile Send private message
enrico-sorichetti

Superior Member


Joined: 14 Mar 2007
Posts: 10888
Location: italy

PostPosted: Fri Mar 05, 2010 11:13 am
Reply with quote

Yes, that' s what we have been trying to tell from the beginning!

see for example :
Quote:
also the logic of the first jcl posted is wrong,
the include should use the dataset name to be restored, not the name od the dataset containing the <backup>
Back to top
View user's profile Send private message
Aaparna Vipin

New User


Joined: 12 Feb 2010
Posts: 10
Location: India

PostPosted: Fri Mar 05, 2010 11:26 am
Reply with quote

i did the same and got the below warning with RC 4

ADR415W (001)-TDLOG(01), NO DATA SETS WERE COPIED, DUMPED, OR RESTORED FROM ANY VOLUME
ADR487W (001)-TDLOG(01), DATA SET GRT.TAPE.T1 NOT ON LOGICALLY FORMATTED DUMP TAPE

JCL

000004 //TAPE1 DD DSN=GRT.TAPE.T1,
000005 // DISP=SHR
000006 //BKP DD DSN=GRT.BACKUP.G000,
000007 // DISP=(NEW,CATLG,CATLG),
000008 // DATACLAS=DSORGPSE,
000009 // DCB=(BLKSIZE=0,LRECL=133,RECFM=FB),
000010 // SPACE=(TRK,(1000,1000),RLSE),
000011 // UNIT=SYSDA
000012 //SYSIN DD *
000013 RESTORE DATASET(INCLUDE (GRT.TAPE.T1))- 000014 INDDNAME (TAPE1) -
000015 OUTDDNAME (BKP)
000016 /*
Back to top
View user's profile Send private message
enrico-sorichetti

Superior Member


Joined: 14 Mar 2007
Posts: 10888
Location: italy

PostPosted: Fri Mar 05, 2010 12:21 pm
Reply with quote

You keep on doing the same error over and over...
the include statement should use the name of the dataset which has been backed up, not the name of the dataset containing the backup

did You ever care to look at the dfdss manuals and the samples contained there?
looks like not!

also You keep confusing things
You say
Quote:
have successfully backed out datset GRT.TAPE.T1

the sentence means that You have somewhere a dataset called GRT.TAPE.T1
and You took a backup of it

but you jcl really implies that You took a backup of <some dataset> and You stored it in the <container> GRT.TAPE.T1

You confuse the <content> with the <container>

Code:

//tape dd dsn=<container>
...
dump ... include(<content>

//tape dd dsn=<container>
...
restore include(<content>)


You keep insisting on ....
Code:
//tape dd dsn=<container>
...
restore include(<container>)


and that is just plain wrong
Back to top
View user's profile Send private message
expat

Global Moderator


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

PostPosted: Fri Mar 05, 2010 12:23 pm
Reply with quote

What on earth do you think that you are doing here. Or at least trying to do.

Why do you have the DUMP dataset name as the restore name. You need to use the names of the datasets that were dumped to the tape and not the tape dataset name.

Do you know where they keep the manuals at your shop. If not, please find out quickly and spend the weekend curled up on the sofa with the DFdss manuals.
Back to top
View user's profile Send private message
Aaparna Vipin

New User


Joined: 12 Feb 2010
Posts: 10
Location: India

PostPosted: Fri Mar 05, 2010 12:45 pm
Reply with quote

Yes....let me....I did this before itself that time i got RC 8


ADR380E (001)-FRLBO(23), DATA SET GRT.INPUT.DAT NOT PROCESSED, 18
ADR415W (001)-TDLOG(01), NO DATA SETS WERE COPIED, DUMPED, OR RESTORED FROM ANY VOLUME
ADR480W (001)-TDLOG(01), THE FOLLOWING DATA SETS WERE NOT PROCESSED FROM THE LOGICALLY FORMATTED DUMP TAPE DUE TO ERRORS:
GRT.INPUT.DAT

JCL

000003 //STEP020 EXEC PGM=ADRDSSU
000004 //TAPE1 DD DSN=GRT.TAPE.T1,
000005 // DISP=SHR
000006 //BKP DD DSN=GRT.BACKUP.G007,
000007 // DISP=(NEW,CATLG,CATLG),
000008 // DATACLAS=DSORGPSE,
000009 // DCB=(BLKSIZE=0,LRECL=133,RECFM=FB),
000010 // SPACE=(TRK,(1000,1000),RLSE),
000011 // UNIT=SYSDA
000012 //SYSIN DD *
000013 RESTORE DATASET(INCLUDE (GRT.INPUT.DAT))-
000014 INDDNAME (TAPE1) -
000015 OUTDDNAME (BKP)
000016 /*

Thanks for all your quick and king reply...
Sorry for eating both ur time and brain... icon_sad.gif
Back to top
View user's profile Send private message
enrico-sorichetti

Superior Member


Joined: 14 Mar 2007
Posts: 10888
Location: italy

PostPosted: Fri Mar 05, 2010 12:56 pm
Reply with quote

to save everybody' s time why don' t You start looking at the manuals Yourself
and ask Your peers for working samples ???

the whole manual
publibz.boulder.ibm.com/cgi-bin/bookmgr_OS390/BOOKS/DGT2S261/CCONTENTS?SHELF=DGT2BK71&DN=SC26-7402-09&DT=20080128160125
for dfddss :
publibz.boulder.ibm.com/cgi-bin/bookmgr_OS390/BOOKS/DGT2S261/2.0?SHELF=DGT2BK71&DT=20080128160125

and the messages and codes

for the first message of the chain ( ADR380E )
publibz.boulder.ibm.com/cgi-bin/bookmgr_OS390/BOOKS/IEA2M181/SPTM000238

and here the manual itself for the ADR messages
publibz.boulder.ibm.com/cgi-bin/bookmgr_OS390/BOOKS/IEA2M181/CCONTENTS
Back to top
View user's profile Send private message
expat

Global Moderator


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

PostPosted: Fri Mar 05, 2010 1:01 pm
Reply with quote

If I were you I would try and see exactly what you do have on the tape by running the code below.
Note the PARM parameter - this job WILL NOT perform an actual restore.
Code:
//RESTORE  EXEC PGM=ADRDSSU,PARM='TYPRUN=NORUN'
//SYSOUT   DD SYSOUT=*                         
//SYSPRINT DD SYSOUT=*                         
//BACKUP   DD DSN=                             
//SYSIN    DD *                               
  RESTORE  INDD(BACKUP)             -         
           DATASET(INCLUDE(**))               
/*                                             
//
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

 


Similar Topics
Topic Forum Replies
No new posts Unable to interpret a hex value to De... COBOL Programming 7
No new posts db2 vs static data COBOL Programming 1
No new posts External data queue (changes?) CLIST & REXX 0
No new posts Pull data using date difference betwe... DB2 6
No new posts fast data scrambling PL/I & Assembler 10
Search our Forums:

Back to Top