How to browse the contents of a tape file

kavisuresh · New User Joined: 22 May 2007 Posts: 7 Location: chennai

Hi,

you cant browse the contents of a tape file,but you can know the space occupied by the files using the below TSO Command

TSO TIQ -enter on the command line ,will prompt for the password
Passsword===inquire

enter the tape vol ser for the file (which you can identify using 3.4 option)which will display the volume occupied and all other related information for the same.

enter 'C' to exit the tape inquiry,but your system should support the same.

Regards,
Kavisuresh

ratheesh_1983 · New User Joined: 11 Apr 2007 Posts: 19 Location: hyderabad

Try putting UNIT=(SYSDA,20) . SEE HOW THAT GOES..........
If that it is still the same increase the number specified with sysda...

by the way i wud request u to slash down the records and put to dasd if possible ....is there a strict requirement for using all the records in the tape??

if u r using the data set as a test input then i think anyway u will have to use the external sort before putting accross the records to the test region .

regards,
ratheesh.

dick scherrer · Posted: Tue Jul 10, 2007 10:29 pm

Hello,

Please post the actual number of records on the tape(s) and the actual lrecl if fixed or the average lrecl if variable.

If you cannot get the record counts from your tape management system, you can get them using the sort (do not sort the records, just count them).

Once you post the numbers, we can help with size estimates.

Just to get you thinking, you may need to "partition" the input file into multiple smaller files, sort the smaller files, and then merge them into the actual file you need (writing it back out on tape if necessary).

Anuj Dhawan · Posted: Thu Jul 12, 2007 3:53 pm

0d311 · Guest

Well... it does work in our site... however, this does not display the number of records contained in the tape file. Here's how the output looks:

XXXXXX.TEST.DATA.TAPE
DSN=XXXXXX.TEST.DATA.TAPE,36-TRK,FS=001
VOLSER=JK1107
VOLSER=JK1107 DSN=XXXXXX.TEST.DATA.TAPE
EXPDT=2007/197 ACCT=HEXZEROS
SMSMC=MCVTS FLAG1=41=(CLO,RDS)
HOOKID=FD=SMF 83 FLAG2=C0=(CAT,OUT) CTLGCNT=001
BATCHID=00 FLAG3=04=(DEF) FLAG5=00
USERID=CATALOG FLAG4=08=(OSC) DSN17=2.TEST.DATA.TAPE
LJOB=IEBGENER LDATE=2007/190 LPGM=IEBGENER LUNIT=1FC5 LTIME=0531
CJOB=IEBGENER CDATE=2007/190 CPGM=IEBGENER CUNIT=1FC5 CTIME=0531
CSTEP=IEBGENER CDDNAME=SYSUT2 BLKCNT=0000000001 ROBTY=81=VIBM MPRES=000
LABEL=SL DEN=38KC TRTCH=36X2 ROBID=068 TRERRC=00000
RECFM=FB LRECL=000080 BLKSIZE=032720 EDMID=BLANKS TWERRC=00000
NUMDSNB=0000 1STDSNB=0000000 LSTDSNB=0000000 ACTVOL= PRERRC=00000
1STVOL= NEXTVOL= PREVVOL= VOLSEQ=0001 PWERRC=00000
COUNT=00143 VENDOR=BLANKS BTHDATE=2003/185 VOLPERC=000 TRERRI=00000
USECLN=00000 CLNCNT=000 DATECLN=ZEROS FILPERC=000 TWERRI=00000
OUTCODE=BLANKS SLOT=0000000 OUTDATE=ZEROS CPUID=SM9A PRERRI=00000
AUTIME=0531 AUCODE=02 AUDATE=2007/190 AUFLAG1=00 PWERRI=00000
WWID= WMC=00000 BESKEY=00000
INQUIRY COMPLETE
IEETMS1 AWAITING REQUEST/REPLY (ENTER C TO EXIT CA-1 INQ/UPD SESSION)

krisprems · Posted: Thu Jul 12, 2007 7:20 pm

0d311
Use this SORT JCL to count the num of rec's in your tape file

mmwife · Super Moderator Joined: 30 May 2003 Posts: 1592

madlui56,

Before you go around asking for huge amounts of DA space, keep in mind that most installations opt for tape to save on DA usage.

You may be better served if you select the group of records that you need (may contain those you need) and copy them to disk.

Asking and using that amount of disk space can make you very unpopular.

Anuj Dhawan · Posted: Thu Jul 12, 2007 7:49 pm

Hi,

It shows a lot of information, what to look for?

By the way, to get the contents of TAPE file on DASD, I usually make use of FILEAID or MULTIGEN. Try to use below JCL, may work for you.

ani_nitd · New User Joined: 11 Jul 2007 Posts: 1 Location: hyderabad

Hi Madlui,
first try to convert in DASD file and after that u can easily browse/edit.
please see the bellow job.

STEP010 EXEC PGM=IEBGENER
//SYSUT1 DD DSN=TAPE FILE,
// DISP=SHR
//SYSUT2 DD DSN=NEW DASD FILE,
// DISP=(NEW,CATLG),
// UNIT=SYSDA,
// DCB=*.SYSUT1,
// SPACE=(CYL,(100,100),RLSE)
//SYSIN DD DUMMY

plz correct me if i went wrong.
Anindya S jana.

madlui56 · Posted: Wed Jul 25, 2007 1:39 pm

Code:
//*******************************************************
//STEP1 EXEC PGM=ICEMAN
//SYSOUT DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//SORTIN DD DSN=i/p Tape file,DISP=SHR
//SORTOUT DD SYSOUT=*
//SYSIN DD *
OPTION COPY
OUTFIL NODETAIL,REMOVECC,
TRAILER1=(COUNT=(M11,LENGTH=8))
/*

outfil syntax error results to s00016

madlui56 · Posted: Wed Jul 25, 2007 1:43 pm

Code:
//*******************************************************
//STEP1 EXEC PGM=ICEMAN
//SYSOUT DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//SORTIN DD DSN=i/p Tape file,DISP=SHR
//SORTOUT DD SYSOUT=*
//SYSIN DD *
OPTION COPY
OUTFIL NODETAIL,REMOVECC,
TRAILER1=(COUNT=(M11,LENGTH=8))
/*

outfil syntax error results to s00016

krisprems · Posted: Wed Jul 25, 2007 2:17 pm

madlui56

Give your SYSOUT details.

prakash.ammasi · New User Joined: 04 Apr 2007 Posts: 8 Location: chennai

give tdisc / <jobid>
eg: tdisc / fmet06 tmb.sample.file
infront of the tape file...
that tape file will be extracted to the the local test area as the prefix
eg: tng.tmb.sample.file

dick scherrer · Posted: Thu Aug 09, 2007 10:36 pm

Hello,

I believe that is site-specific and will not run on every system. . . .

Anuj Dhawan · Posted: Fri Aug 10, 2007 4:36 pm

expat · Posted: Fri Aug 10, 2007 5:23 pm

Anuj Dhawan · Posted: Mon Aug 13, 2007 1:28 pm

Hi,

Hopefully below link will explain what expat has suggested:
www.ibmmainframes.com/viewtopic.php?t=23225&highlight=