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.
As an Amazon Associate we earn from qualifying purchases.
Operating expenses for this site are earned using the Amazon Associate program and Google Adsense.