Assumed decimal and Renames and Condition clause

IDENTIFICATION DIVISION.
PROGRAM-ID. HELLO-WORLD.
DATA DIVISION.
   WORKING-STORAGE SECTION.
   01 NUM-VALUE.
     02  WS-NUM.
       05  WS-NUM1 PIC S9(3)V9(2).
       05  WS-NUM2 PIC P999999.
       05  WS-NUM3 PIC S9(3)V9(2) VALUE -123.45.
       05  WS-NAME PIC A(6) VALUE 'ABCDEF'.
   66 WS-REN RENAMES WS-NUM.
   01 WS-ID PIC X(5) VALUE 'A121$'.
   01 IP-DIGIT PIC X(1).
      88 IP-NUMBERS VALUE '0' THRU '9'.
      88 IP-CHARACTERS VALUE 'A' THRU 'Z'.
PROCEDURE DIVISION.
   DISPLAY "WS-NUM1 : "WS-NUM1.
   MOVE 00.01234560 TO WS-NUM2.
   DISPLAY "WS-NUM2 : "WS-NUM2.
   DISPLAY "WS-NUM3 : "WS-NUM3.
   DISPLAY "WS-NAME : "WS-NAME.
   DISPLAY "WS-ID : "WS-ID.
   DISPLAY "WS-REN : "WS-REN.
   MOVE 'P' TO IP-DIGIT.
   DISPLAY IP-DIGIT.
   IF IP-NUMBERS THEN
      DISPLAY " NUMBERS ENTERED " IP-DIGIT
   ELSE
      IF IP-CHARACTERS THEN  
         DISPLAY " CHARACTERS ENTERED " IP-DIGIT
      ELSE
         DISPLAY " WRONG INPUT " IP-DIGIT
   END-IF.       
   EVALUATE TRUE
       WHEN IP-NUMBERS 
           DISPLAY " NUMBERS ENTERED " IP-DIGIT
       WHEN IP-CHARACTERS 
           DISPLAY " CHARACTERS ENTERED " IP-DIGIT   
       WHEN OTHER 
           DISPLAY " WRONG CHARACTERS ENTERED " IP-DIGIT        
   END-EVALUATE.
STOP RUN.