MVSFORUMS.com

krk123 · Beginner Joined: 03 Jun 2003 Posts: 58 Topics: 19

Hi,
Could someone please help with this. I am getting errors. I am not sure if this will work or not.
I have declared a table as follows.

05 WS-STRING-TABLE OCCURS 200 TIMES.
10 WS-STRING-DATA PIC X(80).
10 WS-LENGTH PIC 9(06).

I am getting an input file as follows,

MVS,123,TABLE,HTML,12345,999,99 etc..

I am getting a comma delimited file and the file has 200 fields. I am trying to avoid 200 individual fields.

unstring ws-data-record delimited by ','
into ws-string-data(ws-index) varying ws-index from 1 by 1
end-unstring.

I am getting complie error saying Varying is invalid. Could somebody tell me if this is valid.

kolusu · Posted: Thu Mar 10, 2005 3:02 pm Post subject:

kr123,

Try this untested version.

krk123 · Beginner Joined: 03 Jun 2003 Posts: 58 Topics: 19

Thanks Kolusu

powerhawk · Posted: Fri Mar 11, 2005 2:16 am Post subject:

I'am sorry to blame you Kolusu. But your code open up for a unpredictable adress error. Change to WS-SUB > 200. And the PERFORM statement will be execute for every input record if (I suppose you have more than one record in the file), so you have to initialize WS-PNTR with MOVE 1 TO WS-PNTR before the PERFORM statement.

Cheers
Powerhawk Very Happy

kolusu · Posted: Fri Mar 11, 2005 8:46 am Post subject:

Powerhawk,

Thanks for pointing the error. As I mentioned earlier it was just an Untested code.

Thanks

Kolusu
_________________
Kolusu
www.linkedin.com/in/kolusu