Portal | Manuals | References | Downloads | Info | Programs | JCLs | Mainframe wiki | Quick Ref
IBM Mainframe Forum Index
 
Register
 
IBM Mainframe Forum Index Mainframe: Search IBM Mainframe Forum: FAQ Memberlist Profile Log in to check your private messages Log in
 
How to browse the contents of a tape file
Goto page Previous  1, 2, 3  Next
 
Post new topic   Reply to topic    IBMMAINFRAMES.com Support Forums -> JCL & VSAM
View previous topic :: :: View next topic  
Author Message
murmohk1

Senior Member


Joined: 29 Jun 2006
Posts: 1439
Location: Bangalore,India

PostPosted: Tue Jul 10, 2007 2:15 pm    Post subject:
Reply with quote

Louielee ,

Taken from QW -

Quote:
vol count

Specifies the maximum number of volumes that an OUTPUT data
set requires. This is a decimal number in the range 1
through 255, inclusive - the total number of output volumes
for a DD statement may not exceed 4,096 volumes, however.

You should code this parameter when an output data set will
require more than 6 volumes. If the volume count is omitted
or 1 through 5 is specified, the maximum allowed is 5
volumes. If 6 through 20 is specified, the maximum allowed
is 20 volumes. If the specified is greater than 20, the
maximum allowed is a multiple of 15 plus 5, up to 255.


Please refer quick refernce for this kind of stuff.
Back to top
View user's profile Send private message

madlui56
Currently Banned

New User


Joined: 08 Aug 2006
Posts: 61
Location: Philippines

PostPosted: Tue Jul 10, 2007 2:15 pm    Post subject: sd37 still..
Reply with quote

Here is my Job wherein it issue SD37

//STEP0012 EXEC PGM=SORT
//SORTIN DD DSN=WXX220.ECL2.R1.DEMOIA.FOUND.PAF,
// DISP=SHR
//SORTOUT DD DSN=PU1659A.ECL2.R1.DEMOIA.FOUND.PAF.DASD,
// DISP=(NEW,CATLG,DELETE),
// UNIT=SYSDA,VOL=(,,,20),
// SPACE=(CYL,(4000,4000),RLSE),
// DCB=(RECFM=FB,LRECL=409,DSORG=PS)
//SORTWK01 DD SPACE=(CYL,(4000,4000),RLSE)
//SORTWK02 DD SPACE=(CYL,(4000,4000),RLSE)
//SORTWK03 DD SPACE=(CYL,(4000,4000),RLSE)
//SORTWK04 DD SPACE=(CYL,(4000,4000),RLSE)
//SORTWK05 DD SPACE=(CYL,(4000,4000),RLSE)
//SORTWK06 DD SPACE=(CYL,(4000,4000),RLSE)
//SORTWK07 DD SPACE=(CYL,(4000,4000),RLSE)
//SORTWK08 DD SPACE=(CYL,(4000,4000),RLSE)
//SORTWK09 DD SPACE=(CYL,(4000,4000),RLSE)
//SORTWK10 DD SPACE=(CYL,(4000,4000),RLSE)

What are the ways to increase or to solve the space error?
thanks.
Back to top
View user's profile Send private message
0d311

Guest





PostPosted: Tue Jul 10, 2007 2:33 pm    Post subject:
Reply with quote

Hi Lui,

CYL,(4000,4000) is a huge amount icon_eek.gif

Does your site have SMS? maybe you can remove the space parameter and just allow the system to set the space automatically.

I'm not sure but I think it's not necessary to have all the SORTWKNN there... I think 1 sortwk will be just fine... (BTW, in our site, we can run SYNCSORT and not define SORTWKNN)
Back to top
murmohk1

Senior Member


Joined: 29 Jun 2006
Posts: 1439
Location: Bangalore,India

PostPosted: Tue Jul 10, 2007 2:34 pm    Post subject:
Reply with quote

Louielee ,

Please remember you will get error if the system fails to allocates the space you had defined. From your JCL, I could see you had used 4000 for primary and secondary for 12 dd statements. Are sure you have that much space available in DASD. Reduce the 4000 to number 1000 and below. Do some permutation and combination excercise (with the numbers) to get the job successful.
Back to top
View user's profile Send private message
expat

Global Moderator


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

PostPosted: Tue Jul 10, 2007 2:57 pm    Post subject:
Reply with quote

I would guess that you space abend occurs on the SORTOUT DD name, so as previously said, I am not sure that you need any SORTWK DD statements in your JCL when you use COPY.
Back to top
View user's profile Send private message
kavisuresh

New User


Joined: 22 May 2007
Posts: 7
Location: chennai

PostPosted: Tue Jul 10, 2007 4:31 pm    Post subject: Re: TAPE files?
Reply with quote

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
Back to top
View user's profile Send private message
ratheesh_1983

New User


Joined: 11 Apr 2007
Posts: 19
Location: hyderabad

PostPosted: Tue Jul 10, 2007 9:28 pm    Post subject:
Reply with quote

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 .

icon_rolleyes.gif
regards,
ratheesh.
Back to top
View user's profile Send private message
dick scherrer

Site Director


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

PostPosted: Tue Jul 10, 2007 10:29 pm    Post subject:
Reply with quote

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).
Back to top
View user's profile Send private message
Anuj Dhawan

Senior Member


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

PostPosted: Thu Jul 12, 2007 3:53 pm    Post subject: Re: TAPE files?
Reply with quote

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

I think, this command is site-specific. It's not working for me.
Back to top
View user's profile Send private message
0d311

Guest





PostPosted: Thu Jul 12, 2007 6:42 pm    Post subject:
Reply with quote

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)
Back to top
krisprems

Active Member


Joined: 27 Nov 2006
Posts: 649
Location: India

PostPosted: Thu Jul 12, 2007 7:20 pm    Post subject:
Reply with quote

0d311
Use this SORT JCL to count the num of rec's in your tape file
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))               
/*                                                       

The sortout will contain only the count of rec's.
Back to top
View user's profile Send private message
mmwife

Super Moderator


Joined: 30 May 2003
Posts: 1592

PostPosted: Thu Jul 12, 2007 7:34 pm    Post subject:
Reply with quote

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.
Back to top
View user's profile Send private message
Anuj Dhawan

Senior Member


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

PostPosted: Thu Jul 12, 2007 7:49 pm    Post subject:
Reply with quote

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.
Code:

//FASTEP   EXEC PGM=FILEAID,REGION=6M                     
//STEPLIB  DD  DISP=SHR,DSN=SYS1.NSMP.LINKLIB             
//SYSPRINT DD  SYSOUT=*                                   
//SYSLIST  DD  SYSOUT=*                                   
//DD01     DD  DSN=HLQ.TAPE.FILE,
//             DISP=SHR                                   
//DD01O    DD  DSN=HLQ.TAPE.FILE.ON DASD,
//             DISP=(NEW,CATLG,CATLG),                   
//             UNIT=SYSDA,DATACLAS=HUGE,                 
//*                                                       
//                                                       


Use DISP=(NEW,CATLG,CATLG), so that if it abends, you may know what is written to DASD till JCL get ABENDed.
Back to top
View user's profile Send private message
ani_nitd

New User


Joined: 11 Jul 2007
Posts: 1
Location: hyderabad

PostPosted: Mon Jul 16, 2007 7:39 pm    Post subject: How to browse the contents of a tape file? or Is there a com
Reply with quote

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.
Back to top
View user's profile Send private message
madlui56
Currently Banned

New User


Joined: 08 Aug 2006
Posts: 61
Location: Philippines

PostPosted: Wed Jul 25, 2007 1:39 pm    Post subject: having problem with this code
Reply with quote

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
Back to top
View user's profile Send private message
madlui56
Currently Banned

New User


Joined: 08 Aug 2006
Posts: 61
Location: Philippines

PostPosted: Wed Jul 25, 2007 1:43 pm    Post subject: having problem with this code
Reply with quote

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
Back to top
View user's profile Send private message
krisprems

Active Member


Joined: 27 Nov 2006
Posts: 649
Location: India

PostPosted: Wed Jul 25, 2007 2:17 pm    Post subject:
Reply with quote

madlui56

Give your SYSOUT details.
Back to top
View user's profile Send private message
prakash.ammasi

New User


Joined: 04 Apr 2007
Posts: 8
Location: chennai

PostPosted: Thu Aug 09, 2007 11:29 am    Post subject:
Reply with quote

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
Back to top
View user's profile Send private message
dick scherrer

Site Director


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

PostPosted: Thu Aug 09, 2007 10:36 pm    Post subject:
Reply with quote

Hello,

I believe that is site-specific and will not run on every system. . . .
Back to top
View user's profile Send private message
Anuj Dhawan

Senior Member


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

PostPosted: Fri Aug 10, 2007 4:36 pm    Post subject:
Reply with quote

dick scherrer wrote:
I believe that is site-specific and will not run on every system. . . .
Yeah..It should be site specific, not working for me.
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 Previous  1, 2, 3  Next
Page 2 of 3

 

Search our Forum:

Similar Topics
Topic Author Forum Replies Posted
No new posts Problem getting record length of a re... amitc23 COBOL Programming 2 Thu Jul 02, 2020 10:52 pm
No new posts Want to check if trailer count is 0 a... rohanthengal JCL & VSAM 10 Fri Jun 26, 2020 10:47 am
No new posts File transfer to remote system using ... kalyan.lc5 TSO/ISPF 2 Wed Jun 24, 2020 1:24 pm
No new posts How to remove remote file older than ... ssuthagar All Other Mainframe Topics 4 Thu Jun 04, 2020 6:26 am
No new posts How to fetch the latest record from a... Dinesh Mani DFSORT/ICETOOL 8 Tue Jun 02, 2020 5:34 pm

Facebook
Back to Top
 
Job Vacancies | Forum Rules | Bookmarks | Subscriptions | FAQ | Polls | Contact Us