View previous topic :: View next topic
|
Author |
Message |
k_vikram07
New User
Joined: 23 Nov 2005 Posts: 35
|
|
|
|
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 |
|
|
thanooz
New User
Joined: 28 Jun 2005 Posts: 99
|
|
|
|
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 |
|
|
thanooz
New User
Joined: 28 Jun 2005 Posts: 99
|
|
|
|
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 |
|
|
martin9
Active User
Joined: 01 Mar 2006 Posts: 290 Location: Basel, Switzerland
|
|
|
|
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 |
|
|
|