Rexx Error

JCW2
JCW2 used Ask the Experts™
on
Note: I'm taking a class.

I'm trying to change this code such that it gives information for both sent and received the first time and just sent the second time.

What am I doing wrong and why?
NETIO2.txt
Comment
Watch Question

Do more with

Expert Office
EXPERT OFFICE® is a registered trademark of EXPERTS EXCHANGE®
Top Expert 2014

Commented:
Are you receiving any error messages?

If so what are they?
IT Expert
Top Expert 2009
Commented:
You mean

select;                                                              
   when b_out_diff || b_in_diff = '0' then call in_data_only            
   when b_out_diff || b_in_diff = '1' then call in_out_data            
   otherwise        

several things makes me distrust this

1. semicolon after the select
2. no test before the or

I would expect

select                                                              
   when b_out_diff = '1' || b_in_diff = '0' then call in_data_only            
   when b_out_diff ='0' || b_in_diff = '1' then call in_out_data            
   otherwise      

or similar
Top Expert 2014

Commented:
mplungjan is correct about removing the semicolon after the select.

However I am confused on the use of the double vertical bars.  I have always used the double vertical bars for concatenating strings and I have always used a single vertical bar for "OR".

Now, 99% of my REXX coding has been in NetView for z/OS and I have done very little REXX coding in TSO.  So it could be a difference in how TSO and NetView interpret the vertical bars.
Ensure you’re charging the right price for your IT

Do you wonder if your IT business is truly profitable or if you should raise your prices? Learn how to calculate your overhead burden using our free interactive tool and use it to determine the right price for your IT services. Start calculating Now!

Michel PlungjanIT Expert
Top Expert 2009

Commented:
oops.

Too long with javascript

You are correct
Michel PlungjanIT Expert
Top Expert 2009

Commented:
So it WAS concatenation

select;                                                              
   when b_out_diff || b_in_diff = '00' then call no_data_movement      
   when b_out_diff || b_in_diff = '01' then call in_data_only          
   when b_out_diff || b_in_diff = '10' then call out_data_only          
   when b_out_diff || b_in_diff = '11' then call in_out_data            
   otherwise                                                            
  end      

Author

Commented:
Thank you for your help.

Do more with

Expert Office
Submit tech questions to Ask the Experts™ at any time to receive solutions, advice, and new ideas from leading industry professionals.

Start 7-Day Free Trial