Are you shure ? I tried: 01 a pic x value "S". 01 b pic x value "S". ** ---------------------- PROCEDURE DIVISION. if (a equal "S" and b equal "S" ) display "( OK" end-if if a equal "S" and b equal "S" display " OK" end-if GOBACK. And it behaves normally (both ILE and CBL, V5R1M0) Sincerely Domenico Finucci -----Messaggio originale----- Da: Kelly Cookson [mailto:KCookson@xxxxxxxxxxxx] Inviato: mercoledì 3 marzo 2004 17.01 A: COBOL400-L@xxxxxxxxxxxx Oggetto: [COBOL400-L] Question about evaluation of a conditional statement. While reengineering a program, I created the following conditional statement: IF (WS-RISK-CODE = "FX" AND WS-ORDER-DOES-NOT-EXIST) <perform some statements> END-IF. The conditional statement was evaluated false during the program run even though WS-RISK-CODE equalled "FX" and WS-ORDER-DOES-NOT-EXIST was true. None of the statements to be performed were performed. I then removed the parentheses to result in the following: IF WS-RISK-CODE = "FX" AND WS-ORDER-DOES-NOT-EXIST <perform some statements> END-IF. This worked. I'm not sure I understand how the parentheses caused the problem. I assumed the order of evaluation within the parentheses would be the relational operator first and then the logical operator. Can someone explain it to me? Thanks, Kelly _______________________________________________ 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.
As an Amazon Associate we earn from qualifying purchases.
Operating expenses for this site are earned using the Amazon Associate program and Google Adsense.