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

Writing a Variable record dataset


IBM Mainframe Forums -> COBOL Programming
Post new topic   Reply to topic
View previous topic :: View next topic  
Author Message
k_vikram07

New User


Joined: 23 Nov 2005
Posts: 35

PostPosted: Mon Mar 20, 2006 12:23 pm
Reply with quote

Hi,

I have a requirement that I am working on. I am new to COBOL(was workig on PL1). But searched most of the documentation for this. Please help.

I have a VB file of max reclength of 8000.
The record format is decided based on common datapart of 40 bytes in the record. There are around 10 layouts based on a field in the common part.

Now, I just have to modify another field in the common part for all records and write to another VB file. I don't want to use the 10 layouts in the declarations, because I'm not concerned with the record type. (actually I've to find the actual layouts now for this.)

When I wrote this program all the records are written with max lrecl.

Is there any clause or verb that can define the record length for variable record. Please help.
Back to top
View user's profile Send private message
thanooz

New User


Joined: 28 Jun 2005
Posts: 99

PostPosted: Mon Mar 20, 2006 2:10 pm
Reply with quote

hi k_vikram07,


you can declare all the format's of record layout in your file control section.

firt write one record lay out,

ex ample:

01 format1-------your first record formate


01 formate2------------your second formate


like that you can declare all the formate's.In file section automatic redefines's is work's.

Thank's
thanooz.
Back to top
View user's profile Send private message
thanooz

New User


Joined: 28 Jun 2005
Posts: 99

PostPosted: Mon Mar 20, 2006 2:15 pm
Reply with quote

hi k_vikram07,


soryy in above replay,

i had mentioned file controle section instead of that file section in data division you have to write all the record formates one by one.
Back to top
View user's profile Send private message
martin9

Active User


Joined: 01 Mar 2006
Posts: 290
Location: Basel, Switzerland

PostPosted: Mon Mar 20, 2006 4:56 pm
Reply with quote

hy k_vikram07,

you should have the two first bytes in your structure
declared as a length field for yout output file --> S9(04) COMP.
therefore your structure will be 8002 bytes.
but also don't forget to tell in your jcl,
that your output file is RECFM=VB with
the LRECL required as 8002 bytes...
you need this only for output.
note: RECORDING MODE IS V in your FD section...

martin9
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 -> COBOL Programming

 


Similar Topics
Topic Forum Replies
No new posts How to split large record length file... DFSORT/ICETOOL 10
No new posts Extracting Variable decimal numbers f... DFSORT/ICETOOL 17
No new posts SFTP Issue - destination file record ... All Other Mainframe Topics 2
No new posts FINDREP - Only first record from give... DFSORT/ICETOOL 3
No new posts To find whether record count are true... DFSORT/ICETOOL 6
Search our Forums:

Back to Top