Multiple 01s in an FD 1

[sugrue]

Please excuse the basic question, but my COBOL is very, very rusty.

I am looking at some code written by someone else. There is an FD with multiple 01s with different record layouts, one for billing, one for payments, one for adjustments, etc.

The READ statement does not READ...INTO, like I remember. So, basically, I am looking to verify my assumption that the multiple 01s are an implied REDEFINE and that based on the value of a xx-SORT-CODE (the first 3 bytes of each 01), you decide which 01 to use.

Thanks, Jack

 

[razalas]

Jack,

your memory is not as faulty as you think. That is correct. The multiple 01 records in the FD implicitly redefine the same storage.

Code what you mean,
and mean what you code!
But by all means post your code!

Razalas

 

[slade]

One other thing to keep in mind: If any of the 01s is a different length than the others, the compiler assumes that the file is variable length. Therefor, you must WRITE the appropriate rec to assure that the correct length rec is written.

If they all are the same length you can WRITE any of the 01s defined.

Regards, Jack.

"A problem well stated is a problem half solved" -- Charles F. Kettering

 

[sugrue]

Thanks to both of you - I appreciate the quick responses.

Jack

 

[razalas]

Slade,

a valuable point to remember. Definitely worth a star!

Code what you mean,
and mean what you code!
But by all means post your code!

Razalas

 

[slade]

Why, thank you Razalas, it's appreciated.

Regards, Jack.

"A problem well stated is a problem half solved" -- Charles F. Kettering