Is the user entering the response in upper or lower case?  You may need
to use the translate function to get it to upper case.  And you may want
to use <> for not equal vs. what you've coded.  The not sign doesn't
always translate well when going from ebcidic to ascii (depends on code
page being used, etc.).

Steve

 

________________________________

From: The IBM z/VM Operating System [mailto:[EMAIL PROTECTED] On
Behalf Of Howard Rifkind
Sent: Monday, July 07, 2008 12:24 PM
To: [email protected]
Subject: REXX coding question.

 

This is confusing me.

 

The response to the variable 'answer' is a Y.

 

Yet this portion of the code isn't working.  Shouldn't the logic just
fall thru because the response was a Y.

 

IF SUBSTR(ANSWER,1,1) /= 'Y' | ANSWER /= 'YES' THEN   
   DO                                                 
     SAY ANSWER                                       
     SAY 'THE WRONG RESPONSE HAS BEEN ENTERED'        
     SAY                                              
     SAY 'PROCEDURE IS TERMINATING, PLEASE TRY AGAIN' 
     EXIT                                             
   END                                                

 

Thanks

 


_____________
LEGAL NOTICE
Unless expressly stated otherwise, this message is confidential
and may be privileged. It is intended for the addressee(s) only.
Access to this E-mail by anyone else is unauthorized.
If you are not an addressee, any disclosure or copying of the
contents of this E-mail or any action taken (or not taken) in
reliance on it is unauthorized and may be unlawful. If you are not an
addressee, please inform the sender immediately, then delete this
message and empty from your trash.

 

Reply via email to