MVSFORUMS.com

[santi.sworup]

Hi Guys,

I have one field REC-1 PIC X(30). It may contain inconsistent data delimited by ','.
Data can be as below.

1234,56,981764543,789654
1,234,78,2921726,6788,999,1
1234567834567812344,1232

I want to unstring the REC-1 filed with delimited by ',' and move the values to the o/p field of that much specific bystes. Like:

For 1st rec:
A=1234
B=56
C=981764543
D=789654

For 2nd rec:
A=1
B=234
C=78
D=2921726
E=6788
F=999
G=1

and so on...

Is there anyway to accomplish this?

[Nic Clouston]

You could redefine a table over the data and the move through the table looking for commas then, using reference modification, move the data from start/last comma+1 to output field.

There are probably other ways in cobol - I assume you are using cobol?
_________________
Utility and Program control cards are NOT, repeat NOT, JCL.

[dbzTHEdinosauer]

using the COBOL UNSTRING statement, you can UNSTRING the field in REC1
into alphanumeric or numeric receiving fields.

remember to initialize your receiving fields before you do the UNSTRING.
_________________
Dick Brenholtz
American living in Varel, Germany