Split a record with data in a different column

cuauhtli · New User Joined: 15 Sep 2017 Posts: 2 Location: Mexico

I want to split a record in name and percent, only records that contain the symbol %

input file LRECL=40

Phrzby Phil · Posted: Fri Sep 23, 2022 8:35 am

Per your profile, you're an analyst with COBOL experience who joined the forum 5 years ago.

What have you tried so far?

Rohit Umarjikar · Posted: Fri Sep 23, 2022 10:13 am

Inrec parse into four elements
Then outfile build according how you want ( specially last one) and use omit cond to eliminate fourth parse element eq spaces.

I hope this will work.

Joerg.Findeisen · Posted: Fri Sep 23, 2022 11:52 am

Input:

cuauhtli · New User Joined: 15 Sep 2017 Posts: 2 Location: Mexico

Thank you so much Joerg.Findeisen is an excellent contribution. I was trying a cobol program with unstring and reverse but your code is better.
Thanks again.!!

sergeyken · Posted: Sat Sep 24, 2022 1:15 am

The parameters STARTAT=… and SUBPOS= are in fact not required in this specific case. By default PARSE continues from previous stop point.

Joerg.Findeisen · Posted: Sat Sep 24, 2022 8:51 pm

One SUBPOS is required as the first digit of the percentage is part of the previous PARSE. However the code can be reduced to this:

Rohit Umarjikar · Posted: Sat Sep 24, 2022 9:36 pm

I suggest don’t wait here .. understand the logic and read manuals so that you can do it yourself next time or at least you can give a try.

Phrzby Phil · Posted: Sun Sep 25, 2022 12:22 am

Just my 2cents worth here.

Although the SORT way is easier in many ways as opposed to a COBOL program, are there programmers down the line in your organization who will inherit this code and be as conversant in the SORT commands and techniques as opposed to a general purpose language?

If you still need COBOL for other processing here, consider if it might be best for one program to have all of the processing.

Not saying yes or no - just things to consider.