How to write the record count in the Header of a file

maheswaran Radhakrishnan · New User Joined: 18 Mar 2011 Posts: 7 Location: UK

Hello All,

I have a fixed length sequential file. I want to write the record count of the file in the header record. The record count should not consider the header record. The file details are

LRECL = 83
Type = FB
Record Count starting position = 9 (Length is 6)

Note:
There is no record type associated with the file.

Thanks a lot for your help.

Frank Yaeger · Posted: Fri Mar 18, 2011 10:23 pm

Please show an example of the records in your input file (relevant fields only) and what you expect for output.

Note that adding a trailer with the record count is much easier than adding a header with the record count. Is there some reason you need the count in a header instead of in a trailer?

maheswaran Radhakrishnan · New User Joined: 18 Mar 2011 Posts: 7 Location: UK

101210311000000 ----------> Header record (Record cnt starts at pos 10)
Detail record (Length 83 (82-83 are spaces)
9002103111030231000S000999999999787888900000012345678900000100000012340100000000
1002103111030231000S000999999999987878900000012345678900000100000012340100000000
2002103111030231000S000999999999187878900000012345678900000100000012340100000000
3002103111030231000S000999999999287878900000012345678900000100000012340100000000
4002103111030231000S000999999999387878900000012345678900000100000012340100000000

Thanks for your help

Frank Yaeger · Posted: Mon Mar 21, 2011 10:50 pm

If you can't be bothered to post clear information about your requirements, then how can you expect anyone to help you?

Is the header record present in the input file and you just want to update the existing header record? Or do you want to add a new header record that doesn't exist in the input file?

Again:

Please show an example of the records in your input file (relevant fields only) and what you expect for output.

Please resolve this contradiction in your two posts.

maheswaran Radhakrishnan · New User Joined: 18 Mar 2011 Posts: 7 Location: UK

Sorry for the confusion caused. Please find the attached example data.
The attached file is the input one with the header having the record count as '000000' starting at 7th position. Now the requirement is that a new file has to be created with the same data without any change in the order and the header count value should be updated as '000004' (Excluding the header)

Frank Yaeger · Posted: Wed Mar 23, 2011 1:25 am

Here's a DFSORT job that will do what you asked for:

daveporcelan · Posted: Wed Mar 23, 2011 1:52 am

Crystal Ball On

"can it be done in one step?"

Crystal Ball Off

Frank: No answer for me required

Frank Yaeger · Posted: Wed Mar 23, 2011 2:32 am

Hopefully, your crystal ball is a bit cloudy today.

maheswaran Radhakrishnan · New User Joined: 18 Mar 2011 Posts: 7 Location: UK

Thanks a lot Sir...It worked.

maheswaran Radhakrishnan · New User Joined: 18 Mar 2011 Posts: 7 Location: UK

The attached file is the input one with the header having the record count as '000000' starting at 9th position. Now the requirement is that a new file has to be created with the same data without any change in the order and the header count value should be updated as '000004' (Excluding the header).How the same process can be applied for the below given input file

LRECL = 34
TYPE = FB

I tried doing it but got an abend instead.

Thanks for your help

Nic Clouston · Posted: Thu Mar 24, 2011 4:02 pm

Sorry, we were not looking over your shoulder watching what you were doing......
What did you try? What abend?

Frank Yaeger · Posted: Thu Mar 24, 2011 10:39 pm

maheswaran,

PLEASE STOP posting screenshots. Just post inline text with ubb code tags around it.

This "new" requirement is just a simple variation of the previous requirement. You just have to tweak the previous job a bit. Please work harder at figuring out these things for yourself.

maheswaran Radhakrishnan · New User Joined: 18 Mar 2011 Posts: 7 Location: UK

Thanks a lot for the quick reply. I tried the above code but it gave the below given error message

OPTION COPY
OUTFIL FNAMES=SYM,REMOVECC,NODETAIL,
BUILD=(1,80),
TRAILER1=('DATCT,''',COUNT-1=(EDIT=(TTTTTT)),'''')
OUTFIL FNAMES=T1,
OVERLAY=(35:SEQNUM,8,ZD)

ICE201I G RECORD TYPE IS F - DATA STARTS IN POSITION 1
ICE027A 9 END OF SYM FIELD BEYOND MAXIMUM RECORD LENGTH
ICE751I 0 C5-K59561 C6-K51707 C7-K54603 C8-K51707 E9-K51707 E7-K51707

How to overcome this?

Skolusu · Posted: Fri Mar 25, 2011 10:33 pm

Frank Yaeger · Posted: Fri Mar 25, 2011 11:45 pm

My mistake. I forgot the input file had LRECL=34 this time. As Kolusu says, just use 80X instead of 1,80. I've updated my job.

maheswaran Radhakrishnan · New User Joined: 18 Mar 2011 Posts: 7 Location: UK

Thank You very much. It worked.