MVSFORUMS.com Forum Index MVSFORUMS.com
A Community of and for MVS Professionals
 
 FAQFAQ   SearchSearch   Quick Manuals   RegisterRegister 
 ProfileProfile   Log in to check your private messagesLog in to check your private messages   Log inLog in 

variable length record sequential files

 
Post new topic   Reply to topic   printer-friendly view    MVSFORUMS.com Forum Index -> Application Programming
View previous topic :: View next topic  
Author Message
butta_mvs
Beginner


Joined: 17 Aug 2003
Posts: 22
Topics: 18

PostPosted: Sun Aug 17, 2003 5:11 am    Post subject: variable length record sequential files Reply with quote

I want to work on vb sequential files(non vsam) , i know how to access in cobol program , but i dont know how to create vb files neither thru jcl or tso options.It would be great favour if any one can help me.
Back to top
View user's profile Send private message
ofer71
Intermediate


Joined: 12 Feb 2003
Posts: 358
Topics: 4
Location: Israel

PostPosted: Sun Aug 17, 2003 6:00 am    Post subject: Reply with quote

Hi

In TSO: Take a look at the RECFM parameter of ALLOCATE command.

Example:
Code:
 TSO ALLOC FI(TEMP) DA('MY.DATA.SET') LRECL(80) RECFM(V,B) NEW CATALOG


In JCL: Take a look at the RECFM parameter of DD statement .

Example:
Code:
//MYDSN DD DSN=MY.DSN,DISP=(,PASS),DCB=(RECFM=VB,LRECL=500)



O.
________
Harley-Davidson Model BA


Last edited by ofer71 on Sat Feb 05, 2011 11:02 am; edited 1 time in total
Back to top
View user's profile Send private message Send e-mail
Frank Yaeger
Sort Forum Moderator
Sort Forum Moderator


Joined: 02 Dec 2002
Posts: 1618
Topics: 31
Location: San Jose

PostPosted: Sun Aug 17, 2003 10:15 am    Post subject: Reply with quote

Well, it depends on what you want the records in your VB data set to look like.

If you just want some test data to play with, you could use DFSORT to convert FB records to VB records, as discussed in the "FB to VB conversion" Smart DFSORT Trick at:

http://www.ibm.com/servers/storage/support/software/sort/mvs/tricks/

For example:

Code:

//S1 EXEC PGM=ICEMAN
//SYSOUT DD SYSOUT=*
//SORTIN DD *
TEST RECORD 01 AAA
TEST RECORD 02 BBBBBBB
TEST RECORD 03 CC
TEST RECORD 04 DDDDDDDDDD
/*
//SORTOUT DD DSN=userid.MYVB.IN,DISP=(NEW,CATLG,DELETE),
// SPACE=(TRK,(5,5)),UNIT=SYSDA
//SYSIN DD *
  OPTION COPY
  OUTFIL FTOV,VLTRIM=X'40'
/*


If you want something more specific, you need to tell us what you want.
_________________
Frank Yaeger - DFSORT Development Team (IBM)
Specialties: JOINKEYS, FINDREP, WHEN=GROUP, ICETOOL, Symbols, Migration
DFSORT is on the Web at:
www.ibm.com/storage/dfsort
Back to top
View user's profile Send private message Send e-mail Visit poster's website
Display posts from previous:   
Post new topic   Reply to topic   printer-friendly view    MVSFORUMS.com Forum Index -> Application Programming All times are GMT - 5 Hours
Page 1 of 1

 
Jump to:  
You cannot post new topics in this forum
You cannot reply to topics in this forum
You cannot edit your posts in this forum
You cannot delete your posts in this forum
You cannot vote in polls in this forum


MVSFORUMS
Powered by phpBB © 2001, 2005 phpBB Group