View previous topic :: View next topic  

Author Message
saujanya_2831

New User

Joined: 09 May 2007
Posts: 27
Location: pune

PostPosted: Thu Aug 09, 2007 12:08 pm
Reply with quote

Hi ,

when iam trying to view ,browse or copy a gdg version iam getting

GDG base or tape entry

and when iam trying to recall iam getting

recall failed

ARC1102I DATA SET IS NOT MIGRATED/BACKED UP

its happening with all the input gdg versions of step where as iam able to browse output gdg version .

can anyone suggest.

thanks

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 09, 2007 1:18 pm
Reply with quote

Assuming from your title that the dataset is on tape, then you can not browse it.

Need to copy it to DASD first.

Post your code and your output and we can see more details to be able to help.

Back to top
View user's profile Send private message
saujanya_2831

New User

Joined: 09 May 2007
Posts: 27
Location: pune

PostPosted: Thu Aug 09, 2007 2:30 pm
Reply with quote

expat wrote:
Assuming from your title that the dataset is on tape, then you can not browse it.

Need to copy it to DASD first.

Post your code and your output and we can see more details to be able to help.

//AN21b160 EXEC PGM=COMPAREX,COND=(05,LT)

//SYSUT1 DD DSN=AN27.Ar157T3(+1),DISP=OLD,DCB=BUFNO=15

//SYSUT2 DD DSN=AN27.Ar156T3(0),DISP=OLD,DCB=BUFNO=15

//SYSUT3 DD DSN=AN28.Ar160T3(+1),DISP=OLD

//SYSPRINT DD SYSOUT=t

//SYSIN DD DSN=testlib.aaa(UN21X159),DISP=SHR

iam able to browse output but not input files.

Back to top
View user's profile Send private message
ksk

Active User

Joined: 08 Jun 2006
Posts: 355
Location: New York

PostPosted: Thu Aug 09, 2007 2:39 pm
Reply with quote

Use the following step in JCL to view the Tape dataset.

[//COPYREC EXEC PGM=SORT

//SYSUDUMP DD SYSOUT=*

//SYSABEND DD SYSOUT=*

//SYSDBOUT DD SYSOUT=*

//SYSABOUT DD SYSOUT=*

//SYSPRINT DD SYSOUT=*

//SYSOUT DD SYSOUT=*

/*

//SORTIN DD DSN=ABCDFGR.JS6XXXT.PS0XXXX,DISP=SHR

//SORTOUT DD DSN=ABCDEFG.SAMPCB1.SORTOUT3,

// DISP=(NEW,CATLG,DELETE),

// DCB=(LRECL=80,RECFM=FB),

// SPACE=(CYL,(10,15),RLSE)

//SYSIN DD *

SORT FIELDS=COPY

/*

This will copy the INPUT tape dataset into the DASD and you can view the output dataset as usual.

Regards,

ksk

Back to top
View user's profile Send private message
Aaru

Senior Member

Joined: 03 Jul 2007
Posts: 1287
Location: Chennai, India

PostPosted: Thu Aug 09, 2007 2:47 pm
Reply with quote

As he said bring the TAPE dataset to DASD and then Browse/View the dataset.

You can use IEBGENER to copy the dataset from TAPE to DASD

Code:
//STEP01   EXEC PGM=IEBGENER                                       

//SYSPRINT DD SYSOUT=A                                             

//SYSUT1   DD DSN=J.TAPE.UST.A,                               

//            DISP=SHR                                             

//SYSUT2   DD DSN=PQHL.DASD.UST.A,                       

//         DISP=(NEW,CATLG,DELETE),                               

//         UNIT=TEST80,SPACE=(CYL,(1000,1000),RLSE),DCB=*.SYSUT1   

//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: Thu Aug 09, 2007 10:40 pm
Reply with quote

Hello,

If the tape file contains many, many records, i’d suggest copying the specific records that you want to look at to dasd.

Depending on the volume of data, you may not be able to copy it to “test” dasd and even if you do, it may be too large to work with online until you create a subset of the full volume.

Back to top
View user's profile Send private message
ujraju

New User

Joined: 17 Sep 2005
Posts: 1
Location: chennai

PostPosted: Thu Aug 30, 2007 6:41 pm
Reply with quote

HI,

You can see the inforation of the tape data set by giving

Ti dataset name (and enter).

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 30, 2007 7:05 pm
Reply with quote

Hello ujraju and welcome to the forums,

Thank you for joining and sharing.

Do keep in mind that your suggestion is site specific and may not work for every system.

Back to top
View user's profile Send private message
Anuj Dhawan

Superior Member

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

PostPosted: Mon Sep 03, 2007 10:22 pm
Reply with quote

Aaru,

I would suggest not to use above parameter, this’ll eat a lot of amount of DASD.

ujraju wrote:
Ti dataset name (and enter).

Yup, it should be site specific, not working for me.

Back to top
View user's profile Send private message
dkalyan_c

New User

Joined: 06 Apr 2006
Posts: 17

PostPosted: Tue Sep 11, 2007 12:58 pm
Reply with quote

hi,

u can convert tape file using fileaid.

//DD01 DD DISP=SHR,DSN=TAPE DATASET

//DD01O DD DSN=DASD DATASET,

// DISP=(NEW,CATLG,DELETE),

// SPACE=(CYL,(20,20),RLSE),

// DCB=(LRECL=4096,RECFM=FB,BLKSIZE=20480),

// UNIT=SYSDA

//*

//SYSPRINT DD SYSOUT=*

//SYSLIST DD SYSOUT=*

//SYSTOTAL DD SYSOUT=*

//SYSIN DD *

$$DD01 COPY IF=(127,EQ,C’15’),

IF=(129,EQ,C’04’,129,EQ,C’05’)

/*

ABOVE COND IN COPY STATEMENT IS JUST AN EXAMPLE. U CAN GIVE ANY COND LIKE THIS AND CONVERT TO DASD

Back to top
View user's profile Send private message
UmeySan

Active Member

Joined: 22 Aug 2006
Posts: 771
Location: Germany

PostPosted: Wed Sep 12, 2007 5:53 pm
Reply with quote

Hi !

For direct browsing a TapeFile you could use the DITTO Utility.

With that, you also could inspect the tape-headers. There you could get the informations Lrecl, Blksize and also the numers of records/blocks.

Ditto could be executed online via TSO or as a Batchjob.

Ask your system-people for more informations.

Regards, UmeySan

Back to top
View user's profile Send private message
logeswarank
Warnings : 1

New User

Joined: 15 Oct 2006
Posts: 22
Location: Chennai

PostPosted: Mon Sep 17, 2007 5:39 pm
Reply with quote

Hi,

Try this code.

Code:
//STEP01 EXEC PGM=SORT

//SORTIN DD DSN=AXCC.FILE!.TAPE,DISP=SHR

//SORTOUT DD DSN=AXCC.FILE2.DISK,DISP=(NEW,CATLG,DELETE),

//                SPACE=(CYL,(25,25)),UNIT=SYSDA,

//                 DCB=*.SORTIN

//

/*

 



If its wrong correct me.

Back to top
View user's profile Send private message



Please enable JavaScript!

By Luakit_