RE: [COBOL400-L] Question about evaluation of a conditional state ment.

[Kelly Cookson <KCookson@xxxxxxxxxxxx>]

I just recreated the old code condition and it worked this time. 

I don't have a clue why it didn't work before. We had tried it multiple
times, both in the debugger and from a normal call statement. Guess I'll
chalk this up to Keebler's elves...

Thanks.
Kelly




-----Original Message-----
From: cobol400-l-bounces@xxxxxxxxxxxx
[mailto:cobol400-l-bounces@xxxxxxxxxxxx]On Behalf Of Finucci Domenico
Sent: Wednesday, March 03, 2004 10:19 AM
To: COBOL Programming on the iSeries/AS400
Subject: R: [COBOL400-L] Question about evaluation of a conditional
statement.


Hello. Please note that this works too:
 01 a pic x value "S".               
 01 b pic x.                         
    88 BS VALUE "S".                 
    88 BN VALUE "N".                 
** ----------------------------------
 PROCEDURE DIVISION.                 
    
     SET BS TO TRUE                  
    
    if (a equal "S"                 
     and bS          )               
         display "( OK"              
     end-if                          
     if  a equal "S"                 
     and bS                          
         display "  OK"              
     end-if                          
    
     GOBACK.                         


Domenico Finucci


_______________________________________________
This is the COBOL Programming on the iSeries/AS400 (COBOL400-L) mailing list
To post a message email: COBOL400-L@xxxxxxxxxxxx
To subscribe, unsubscribe, or change list options,
visit: http://lists.midrange.com/mailman/listinfo/cobol400-l
or email: COBOL400-L-request@xxxxxxxxxxxx
Before posting, please take a moment to review the archives
at http://archive.midrange.com/cobol400-l.