Formatting a variable length record

surya anem · New User Joined: 20 Dec 2007 Posts: 54 Location: Hyderabad

Hi,

I have a varaible format file which has data like this...

Sample record:
1;199;391;"2009-01-15";978;63;108;

Now i want the record in the below fashion.
1;199;391;2009-01-15;978;63;108;

I mean the single quotes around the character should be removed. They should not be replaced with any spaces. They just have to be removed.

Please let me know how to do this.

with regards,
Surya

dick scherrer · Posted: Mon Jan 19, 2009 9:43 am

Hello,

Is the recfm vb or is it really fb with records that happen to have different data positions due to the data content? Please post the fd for the file.

surya anem · New User Joined: 20 Dec 2007 Posts: 54 Location: Hyderabad

dick scherrer · Posted: Mon Jan 19, 2009 10:13 am

Hello,

Are you reading these records or is this the initial write of these records?

In order to remove the double-quotes (and/or any other characters), create a working-storage 01 that will be the "new" data. Using reference modification, loop thru the data that might contain the unwanted characters, and move each "good" character to the new-data area (yuou would use reference modification on both data areas.

When an unwanted character is found, increment the reference modification positon, add 1 to a "skipped" counter, and do not move the character. When a wanted character is found, move the character and increment both reference modification positions.

Continue thr the loop until ws-rec-len has been reached.

If you are writing new output records, subtract the skipped counter from the original length and write the new record with the unwanted characters removed from the new-data area.

surya anem · New User Joined: 20 Dec 2007 Posts: 54 Location: Hyderabad

Thanks a lot dick Scherrer.
The above logic worked and is easy compared to
other complex logics i thought

Regards,
Surya

dick scherrer · Posted: Tue Jan 20, 2009 1:24 am

You're welcome - thanks for the follow-up

d