Unstring

srini24 · New User Joined: 14 Feb 2017 Posts: 12 Location: India

My input string is 'WRITE IN COBOL LANGUAGE'.
Output should be in 'RITE N OBOL ANGUAGE'.
which is first character of every string from input to be removed and then to be captured into output string.

I tried to unstring the message into 4 delimited by spaces and then splitted into 4 strings with countin(length).Using reference modification,i moved each string from its second position to its length specified in COUNTIN.

Is there any other way to do it?

Robert Sample · Posted: Sat Dec 22, 2018 12:46 am

srini24 · New User Joined: 14 Feb 2017 Posts: 12 Location: India

What logic can be applied using reference modification alone?

Marso · Posted: Sun Dec 23, 2018 8:14 pm

Is that an exercise ?
Are there always 4 words in the sentence ?

Rohit Umarjikar · Posted: Thu Dec 27, 2018 12:54 am

1.See if you can twist INSPECT the way you want.
2.If you are allowed to use SQLs then use scalar functions.
3. As suggested by Robert , Use Ref modifications. loop thru the whole string to skip first letter and when you encountered SPACE then set a flag and skip the first letter of the next word and unset that same flag and move remaining letters until you hot next SPACE and repeat this till end of the string.
4. If these are record from the data set then use DFSORT to create a new Data Set the way you want and then run Cobol Program. I would not prefer this when COBOL is simpler.