Help in REXX code

kishpra · New User Joined: 24 May 2010 Posts: 92 Location: Pune

Hi ,

I am reading a file which has the data as -

MTANGLB G0243V00 ASSF6683000 1
MTANGLB G0244V00 ASSF6683000 1

When I parse the above input in four variables as PARSE A B C D

I get D as ' 1'

D = STRIP(D)

But when I check D = 1

i.e.

IF D = 1
say 'i am in '
ELSE
say ''nothing'

I get nothing

Please assist.

Thanks!

expat · Posted: Thu Apr 14, 2011 5:16 pm

What happened when you used TRACE to see exactly what is happening.

kishpra · New User Joined: 24 May 2010 Posts: 92 Location: Pune

tried but had no luck

kishpra · New User Joined: 24 May 2010 Posts: 92 Location: Pune

In Input -

MTANGLB G0243V00 ASSF6683000 1
MTANGLB G0244V00 ASSF6683000 1

There is only one spaces between first three variables but two spaces between 'ASSF6683000' & '1'

superk · Posted: Thu Apr 14, 2011 5:22 pm

It's working OK for me, even with the extra space. We'll need to see your TRACE output.

kishpra · New User Joined: 24 May 2010 Posts: 92 Location: Pune

My input file -

MTANGLB G0243V00 ASSF6683000 1
MTANGLB G0253V00 ASSF6683000 1

My program -

DO I = 1 TO LINES.0
PARSE VAR LINES.I VAR1 VAR2 VAR3 VAR6
SAY 'BEF VAR6' VAR6
VAR6 = STRIP(VAR6)
VAR1 = STRIP(VAR1)
VAR2 = STRIP(VAR2)
VAR3 = STRIP(VAR3)
SAY 'VAR6' VAR6
IF VAR6 == '1' THEN
DO
SAY 'HI'
END

I am not getting the display as 'HI'

Thanks

superk · Posted: Thu Apr 14, 2011 5:33 pm

Garry Carroll · Posted: Thu Apr 14, 2011 5:34 pm

It works OK for me.

Suggest that maybe you haven't read the file into the LINES. stem variable correctly.

Garry.

daveporcelan · Posted: Thu Apr 14, 2011 5:36 pm

SuperK said:

don.leahy · Posted: Thu Apr 14, 2011 5:40 pm

Your DO loop is incomplete. The END statement shown is referring to the DO that is subordinate to the IF, not to the DO loop.

BTW, your code works for me too. I see the 'HI' message, but only once because of the broken DO loop.

kishpra · New User Joined: 24 May 2010 Posts: 92 Location: Pune

TRACE Output -

14 *-* DO I = 1 TO LINES.0
>L> "1"
>V> "2"
15 *-* PARSE VAR LINES.I VAR1 VAR2 VAR3 VAR6

>C> "LINES.1"
>>> "MTANGLB"
>>> "G0243V00"
>>> "ASSF6683000"
>>> " 1 ??????"
17 *-* IF VAR6 == '1'
>V> " 1 ??????"
>L> "1"
>O> "0"

expat · Posted: Thu Apr 14, 2011 5:46 pm

So you need another variable to collect the trash.

don.leahy · Posted: Thu Apr 14, 2011 5:46 pm

Try PARSE VAR LINES.I VAR1 VAR2 VAR3 VAR6 REST

The last variable in the PARSE contains whatever is left over in the record.

Also check your input file to confirm that there really are spaces after the "1"

daveporcelan · Posted: Thu Apr 14, 2011 5:47 pm

don.leahy · Posted: Thu Apr 14, 2011 5:54 pm

kishpra · New User Joined: 24 May 2010 Posts: 92 Location: Pune

I have spaces after '1' in the input file as my file is of 80 characters,but the below is working fine for me now -

DO I = 1 TO LINES.0
PARSE VAR LINES.I VAR1 VAR2 VAR3 VAR6 REST
VAR6 = STRIP(VAR6)

Thanks!

dbzTHEdinosauer · Posted: Thu Apr 14, 2011 7:02 pm

so now you can add REXX to 'COBOL,JCL,VSAM,CICS,DB2'

in lieu of yet another variable to catch left-overs from a parse,
in this case you used the varaible rest.

you can use a . (period)

parse var first_word second_word third_word forth_word .

the . will allow the 4th and the 5th to be separated.

Nic Clouston · Posted: Thu Apr 14, 2011 7:03 pm

You do NOT hve spces after the 1! Wht do you think the ???? are in the trace - Christms decorations? No, they re unprintable characters. You hve NOT shown us a HEX ON display of your data - maybe because you saw that there were other characters after the 1 but were too embarassed to admit it.