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

To get LRECL of a Tape file in CLIST


IBM Mainframe Forums -> CLIST & REXX
Post new topic   Reply to topic
View previous topic :: View next topic  
Author Message
toonmoon

New User


Joined: 27 Jul 2007
Posts: 2
Location: chennai

PostPosted: Fri Jul 27, 2007 9:45 pm
Reply with quote

Hi,

How can we get the tape LRECL through CLIST.

If we can get it thru REXX also it is fine. I have tried LISTDSI and LISTC
and could not get LRECL information. Is there any other way.
Back to top
View user's profile Send private message
expat

Global Moderator


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

PostPosted: Sat Jul 28, 2007 1:00 pm
Reply with quote

Take a look at the TMS software in use at your shop.
Back to top
View user's profile Send private message
toonmoon

New User


Joined: 27 Jul 2007
Posts: 2
Location: chennai

PostPosted: Tue Jul 31, 2007 3:29 pm
Reply with quote

What is TMS software and how can i get info. bout that.
Back to top
View user's profile Send private message
Anuj Dhawan

Superior Member


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

PostPosted: Tue Jul 31, 2007 4:26 pm
Reply with quote

Hi,

This may help:

Tape Management System(TMS): A program product or application that oversees tape operations. Tape management systems typically manage the enterprise's tape inventory, control user authorization to tape volumes, and request tape mounts on behalf of the user.

System people, at your site, can help you to find which TMS software is in use at your shop.
Back to top
View user's profile Send private message
Anuj Dhawan

Superior Member


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

PostPosted: Wed Aug 01, 2007 12:59 pm
Reply with quote

Hi,

Not sure how to do this in CLIST, but
Quote:
Is there any other way.
tells me to share this JCL
Code:
//*                               
//STEP010  EXEC PGM=SYNCTOOL       
//TOOLMSG  DD  SYSOUT=*           
//DFSMSG   DD  SYSOUT=*           
//DD01     DD  DSN=TAPE_FILE_NAME,
//             DISP=SHR           
//TOOLIN   DD  *                   
   COUNT FROM(DD01)               
/*                                 
//*                               

For characteristics of tape look
Code:
//TOOLMSG
//DFSMSG

You'll find something like:
Code:
WER108I  DD01     : RECFM=FB   ; LRECL=  2250; BLKSIZE= 31500


Hope this helps.
Back to top
View user's profile Send private message
expat

Global Moderator


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

PostPosted: Wed Aug 01, 2007 1:40 pm
Reply with quote

Or you could use REXX - the basic REXX code to invoke CSI is usually included in SYS1.SAMPLIB(IGGCSIRX)

But you will need to amend it to get the bits that you want rather than the output from the way it is coded there.

Here's a link to the manual too

http://publibz.boulder.ibm.com/cgi-bin/bookmgr_OS390/BOOKS/DGT2C130/B.0?DT=20040708120541
Back to top
View user's profile Send private message
tatasteed

New User


Joined: 18 Sep 2007
Posts: 8
Location: Santiago de Chile

PostPosted: Thu Jan 22, 2009 10:04 pm
Reply with quote

This posting matches exactly my requirement.
I have been trying to find the information outlined but I was unable.
Is there any code available as sample?
Back to top
View user's profile Send private message
expat

Global Moderator


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

PostPosted: Thu Jan 22, 2009 10:33 pm
Reply with quote

SYS1.SAMPLIB (IGGCSIRX) is a good place to start.

Click HERE for the documentation of CSI.
Back to top
View user's profile Send private message
Bill Dennis

Active Member


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

PostPosted: Thu Jan 22, 2009 11:47 pm
Reply with quote

I don't see how you'll get tape DCB info using IGGCSIRX.

Depending on the TMS installed at your site, there may be methods to query the tape management catalog to find the info without actually reading the tape (as in the SYNCTOOL example). I have done this with a program for CA-1 and made it work from 3.4 using a command 'T'.
Back to top
View user's profile Send private message
tatasteed

New User


Joined: 18 Sep 2007
Posts: 8
Location: Santiago de Chile

PostPosted: Fri Jan 23, 2009 3:03 am
Reply with quote

Hi,
I followed the link and the documents in SYS1.SAMPLIB (IGGCSIRX) but cannot see how to retrieve LRECL and Record Format from there.

I am afraid that I need an example.

Thanks!
Back to top
View user's profile Send private message
gcicchet

Senior Member


Joined: 28 Jul 2006
Posts: 1702
Location: Australia

PostPosted: Fri Jan 23, 2009 3:59 am
Reply with quote

Hi Anuj,

the only problem I see with your example is that entire file is going to be read, reading 1 record only sholud be sufficient.


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

Global Moderator


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

PostPosted: Fri Jan 23, 2009 12:14 pm
Reply with quote

Bill Dennis wrote:
I don't see how you'll get tape DCB info using IGGCSIRX.


tatasteed wrote:
Hi,
I followed the link and the documents in SYS1.SAMPLIB (IGGCSIRX) but cannot see how to retrieve LRECL and Record Format from there.


There is a field in the manual (catalog field names - C.6.1 ) called LRECL which contains the LRECL of the file in question. All that needs to be done is to amend the REXX to extract it.
Back to top
View user's profile Send private message
Bill Dennis

Active Member


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

PostPosted: Fri Jan 23, 2009 8:54 pm
Reply with quote

expat wrote:
There is a field in the manual (catalog field names - C.6.1 ) called LRECL which contains the LRECL of the file in question. All that needs to be done is to amend the REXX to extract it.

That field may be present for VSAM files but I would bet anything that the catalog entry won't return the LRECL for tapes and other non-VSAM files.
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 -> CLIST & REXX

 


Similar Topics
Topic Forum Replies
No new posts Unable to interpret a hex value to De... COBOL Programming 7
No new posts how to eliminate null indicator value... DB2 7
No new posts Format Binary file to EBCDIC JCL & VSAM 4
No new posts OpenPGP Decryption job getting LRECL ... IBM Tools 7
No new posts Binary File format getting change whi... All Other Mainframe Topics 7
Search our Forums:

Back to Top