PH47672: IDZ EDITOR - REFACTOR/RENAME NOT WORKING WHEN TOPIC IS CONTAINEDIN PARENTHESES ON MULTIPLE LINES.

APAR status

• Closed as program error.

Error description

• Refactor/rename not working when topic is contained in
  parentheses on multiple lines.
  
  Example not working:
  when we select refactor/rename =>
  
  
  *-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-
  =-
        *               ACCESSEUR PHYSIQUE APPLICATIONS
        *               FONCTION MOBJ
  
  *-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-
  =-
        * EN ENTREE : MESSAGE-IN
        *             ET UNE OU PLUSIEURS VARIABLES ISPF PAR
  FONCTION
        * EN SORTIE : VARIABLES ISPF
  
  *-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-
  =-
  
         ID DIVISION.
         PROGRAM-ID.      TESTCOB.
         DATA DIVISION.
         WORKING-STORAGE  SECTION.
         01  WK-ENT99.
             05 ENT99-CHEF-FILE         PIC X(05).
             05 FILLER                  PIC X(01).
             05 ENT99-BQE-RESEAU        PIC X(05).
  
         01  Var1   PIC X(01).
  
         PROCEDURE DIVISION.
             MOVE 'TOTOT' TO ENT99-CHEF-FILE
             IF (Var1 = "A"
             OR (ENT99-CHEF-FILE  NOT = "aaaaa"
             AND ENT99-CHEF-FILE  NOT = "bbbbb"
             AND ENT99-CHEF-FILE  NOT = "ccccc")
             OR  ENT99-BQE-RESEAU NOT = "ddddd")
                 DISPLAY "hello"
             END-IF
             .
         END PROGRAM TESTCOB.
  
  
   You click on "OK" and nothing happens.
  

Local fix

• Remove the parentheses.
  

Problem summary

• Attempting to refactor a variable that was preceeded by an open
  parenthesis due to it being used in a condition statement may
  cause no operations to occur after performing the refactor
  action.
  

Problem conclusion

• Logic within the refactor action required an update to
  differentiate scenarios where the variable (ie - VAR1) being
  refactored was an index such as SOMETHING(VAR1) or had an index,
   such as VAR1(IDX), from scenarios where the variable being
  refactored was not an index but was the first part of a
  condition statement such as IF and therfore was immediately
  preceeded by an open parenthesis.
  

Temporary fix

Comments

APAR Information

• APAR is sysrouted FROM one or more of the following:

• APAR is sysrouted TO one or more of the following:

Fix information

• Fixed component name

  DEV FOR Z/OS

• Fixed component ID

  5724T0700

Applicable component levels