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.

This thread ...


Follow On AppleNews
Return to Archive home page | Return to MIDRANGE.COM home page

This mailing list archive is Copyright 1997-2022 by midrange.com and David Gibbs as a compilation work. Use of the archive is restricted to research of a business or technical nature. Any other uses are prohibited. Full details are available on our policy page. If you have questions about this, please contact [javascript protected email address].

Operating expenses for this site are earned using the Amazon Associate program and Google Adsense.