Fixes are available
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 number
PI67815
Reported component name
RATL PROG PATTE
Reported component ID
5725H0300
Reported release
912
Status
CLOSED FIN
PE
NoPE
HIPER
NoHIPER
Special Attention
NoSpecatt / Xsystem
Submitted date
2016-08-19
Closed date
2016-09-20
Last modified date
2016-09-20
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
[{"Business Unit":{"code":"BU058","label":"IBM Infrastructure w\/TPS"},"Product":{"code":"SSKPEG","label":"Rational Programming Patterns"},"Platform":[{"code":"PF025","label":"Platform Independent"}],"Version":"912","Line of Business":{"code":"LOB35","label":"Mainframe SW"}}]
Document Information
Modified date:
14 October 2021