Write the header part,detail part and the trailer part

lekshmi_ci · Posted: Fri Jul 06, 2007 6:19 pm

Hi,

I have a copybook layout for a file.
The copybook has a header part,detail part(redefines the header) and a trailer part(redefines the header).
The header and the trailer parts are messages which is already populated.
The detail part is handled in the program.
When i write the record as a whole, only the setail record will be written.
I need to write the header part,detail part and th etrailer part.
How do i do that. Please provide a solution.

LC

acevedo · Active User Joined: 11 May 2005 Posts: 344 Location: Spain

what about posting an example?

lekshmi_ci · Posted: Fri Jul 06, 2007 6:42 pm

Hi

This is an example

01 Header-rec
05 header-msg.
10 hello-msg pic x(10) value 'hello '.
10 filler pic x(20) value spaces.
01 detail-rec redefines header-rec.
05 detail-rec.
10 ws-name pic x(10) value spaces.
10 ws-age pic 9(02) value zero.
01 trailer-rec redefines header-rec
05 trailer-msg.
10 end-msg pic x(10) value 'the end '.
10 filler pic x(20) value spaces.

I have this copy book in my program.
i am moving values to the detail rec.
i need to write the entire thing (header,detail,trailer)

Sandy Zimmer · Posted: Fri Jul 06, 2007 7:09 pm

You do have the copy in working storage not in the FD - correct? How many write statements do you have? Can we see your write statement(s)? I am assuming that you just do a write - not a write from. Try this "write file-record from header-rec" or move header-rec to file-record - then write.

Since your area is redefined - whatever you did last is still in the buffer.

mmwife · Super Moderator Joined: 30 May 2003 Posts: 1592

Hi LC,

You could try this:

dick scherrer · Posted: Fri Jul 06, 2007 9:56 pm

Hello,

You should not have multiple initial values in fields that are redefined.

If you put your copybook in WS and remove the redefines, you will be then able to use the initial values and would then "write from" as Sandy suggested before.

Bitneuker · Posted: Sat Jul 07, 2007 12:15 am

As I see it you have only one output area. Header, detail and trailer redefine at the same 01 level.

mmwife · Super Moderator Joined: 30 May 2003 Posts: 1592

The 2 "== REDEFINES HEADER-REC== BY ==== " I mentioned above will remove the redefines and give you 3 output areas.

Bitneuker · Posted: Sun Jul 08, 2007 4:02 am

But then again Jack, did I see it right or not? Ages ago I wrote cobol...

Sandy Zimmer · Posted: Sun Jul 08, 2007 4:15 am

The really simple answer is to get rid of the copybook or it at least comment it out, define the 3 record types without the redefines and go from there - test. Once the problem is solved - and it should be very quickly - if standards insist on that copybook, put it back in.

mmwife · Super Moderator Joined: 30 May 2003 Posts: 1592

Hi LC,

I assumed the hdr/trlr recs were FILE hdr/trlr recs. If they are RECORD hdr/trlr recs, the code would simply be the 3 WRITE FROMs:

Bitneuker · Posted: Mon Jul 09, 2007 1:08 am

Uhhhhh, this doesn't solve my question

IMHO this program could never congatinate the header/trailer/detail into one single outputrecord.

Craq Giegerich · Posted: Mon Jul 09, 2007 7:18 am

It seems to me that if the OP had looked at the compile errors (warnings)in his program he would have had at least some warning of a problem with the copy book as it was set up.

mmwife · Super Moderator Joined: 30 May 2003 Posts: 1592

Typically detail records with headers and trailers are usually written separately (and in multples) between the other two. But re-reading LC's orig post it looks like he wants to concat the 3 recs, but then again, why does he call them -recs?? Oh well, never mind.

If he wants to concat them use the copy/replace shown above, define a 72 byte pic x field - combined-rec and:

dick scherrer · Posted: Mon Jul 09, 2007 8:30 am

Hello,

LC - please post a few sample input records and what you want the output to contain when these input records are processed.

Looking over the several suggestions posted, i am not sure that the group has a unified understanding your requirement. If we can see your data and the output you need, your requirement will be more clear and we can offer suggestions.