Portal | Manuals | References | Downloads | Info | Programs | JCLs | Master the Mainframes
IBM Mainframe Computers Forums Index
 
Register
 
IBM Mainframe Computers Forums Index Mainframe: Search IBM Mainframe Forum: FAQ Memberlist Usergroups Profile Log in to check your private messages Log in
 

 

To get LRECL of a Tape file in CLIST

 
Post new topic   Reply to topic    IBMMAINFRAMES.com Support Forums -> CLIST & REXX
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    Post subject: To get LRECL of a Tape file in CLIST
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: 8593
Location: Back in jolly old England

PostPosted: Sat Jul 28, 2007 1:00 pm    Post subject:
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    Post subject:
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

Senior Member


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

PostPosted: Tue Jul 31, 2007 4:26 pm    Post subject:
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

Senior Member


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

PostPosted: Wed Aug 01, 2007 12:59 pm    Post subject:
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: 8593
Location: Back in jolly old England

PostPosted: Wed Aug 01, 2007 1:40 pm    Post subject:
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: 7
Location: Santiago de Chile

PostPosted: Thu Jan 22, 2009 10:04 pm    Post subject:
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: 8593
Location: Back in jolly old England

PostPosted: Thu Jan 22, 2009 10:33 pm    Post subject:
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    Post subject:
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: 7
Location: Santiago de Chile

PostPosted: Fri Jan 23, 2009 3:03 am    Post subject:
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: 1703
Location: Australia

PostPosted: Fri Jan 23, 2009 3:59 am    Post subject:
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: 8593
Location: Back in jolly old England

PostPosted: Fri Jan 23, 2009 12:14 pm    Post subject:
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    Post subject:
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    IBMMAINFRAMES.com Support Forums -> CLIST & REXX All times are GMT + 6 Hours
Page 1 of 1

 

Search our Forum:

Similar Topics
Topic Author Forum Replies Posted
No new posts Converting Variable block file to Fix... bhavana yalavarthi DFSORT/ICETOOL 10 Tue May 16, 2017 2:20 pm
No new posts Getting error while opening a variabl... apandey1 COBOL Programming 5 Fri May 05, 2017 12:22 pm
No new posts Issue with NDM process to transmit ES... chetanambi All Other Mainframe Topics 6 Wed May 03, 2017 10:52 am
No new posts WER247A incompatible lrecl Danielle.Filteau SYNCSORT 8 Tue May 02, 2017 4:04 am
No new posts File processing vishwakotin Mainframe Interview Questions 9 Fri Apr 28, 2017 11:38 am


Facebook
Back to Top
 
Mainframe Wiki | Forum Rules | Bookmarks | Subscriptions | FAQ | Tutorials | Contact Us