Hello Kelly, again; this works too: 01 a pic x value "S". 01 b pic s9(1). 88 BS VALUE 0 . 88 BN VALUE 1 . ** --------------------- 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 Should your problem belongs to the context (wrong source compiled watched by the debugger, other sentence -end-if- not well understood by the compiler ) ?? Good luck. Domenico Finucci
As an Amazon Associate we earn from qualifying purchases.
Operating expenses for this site are earned using the Amazon Associate program and Google Adsense.