PI67815: RATIONAL PROGRAMMING PATTERNS : BAD GENERATION OF CONDITION IN "DW" TYPE OF SUB FUNCTION WHEN COMING FROM A MACRO STRUCTURE.

Rational Programming Patterns Interim Fix 3 for 9.5
Rational Programming Patterns Interim Fix 4 for 9.1.2
Rational Programming Patterns 9.5.1

APAR status

• Closed as fixed if next.

Error description

• Rational Programming Patterns - v9.1.2
  
  Description :
  When calling a macro structure containing a DW (DO WHILE) type
  sub function, it happens that the condition generated is not
  what expected.
  
  Example :
  F$1FJ
  000   *N$1FJ.    NOTE *loop for control        
  *.
        *DW LV=32
             IWP00R NOT > IWP00L
  
  When called in the program, the generated code is :
  F72FJ.    IF    2                    Â
                                      lv32
         IWP00R NOT > IWP00L               Â
                          MACRO
              NEXT SENTENCE ELSE GO TO    
  F72FJ-FN.        MACRO
  F72FJ-900. GO TO F72FJ.
  F72FJ-FN. EXIT.
  

Local fix

• In the macro structure, add a "space" character after the level
  number : "LV=32 " in this example.
  

Problem summary

• ****************************************************************
  * USERS AFFECTED:                                              *
  * Macro Editor                                                 *
  ****************************************************************
  * PROBLEM DESCRIPTION:                                         *
  * When calling a macro structure containing a DW (DO WHILE)    *
  * type                                                         *
  * sub function,  the condition is OK                           *
  ****************************************************************
  * RECOMMENDATION:                                              *
  ****************************************************************
  

Problem conclusion

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

Applicable component levels

• R912 PSY

     UP

• R950 PSY

     UP