(The following "quote" actually isn't, as BeyondMail for Windows [2.0] is a
real pain.)
 
Tim Hoefner ([log in to unmask]) writes:
> How come
> 01  NEXT-YRSEM        PIC 9(3).  in Working-Storage, and
> IF NEXT-YRSEM = "Y"              in the Procedure Division
>
> isn't flagged by the compiler as an ILLEGAL COMPARE or similar?
> We are on 5.0.
 
FWIW, it works the same on 4.0. Other than not being flagged, the IF works
as expected. That is, the IF in
   MOVE 10 TO NEXT-YRSEM
   IF NEXT-YRSEM = "010"
 
is TRUE. I wonder if this is because
   IF NEXT-YRSEM IS ALPHABETIC
 
is not flagged as an error, even though technically it is illegal.
(Incidentally, MOVE "Y" TO NEXT-YRSEM is properly flagged as an illegal
move.)
 
--Glenn
  [log in to unmask]