These micropatterns are formatted comments inserted in the code of a Program, a Screen, a Server, or a Macro. These comments call Data Elements which are to be used in the work and linkage areas. When the Program, Macro, Screen, or Server is generated again, these micropatterns are expanded with the Data Element format or usage fetched from the repository.
When a Program, Screen, or Server is generated with the GPRT procedure (C9 option), all the calls to Data Elements and Data Structures on -W lines (on lines with an E, I, S, or F type) are generated as micropatterns.
*{WX 'micropattern contents' enabled=false *}
It adds the * character to indicate that it is a comment, the opening and closing braces, and indicates the micropattern identifier (W followed by the line type in the -W lines).
It also adds the enabled=false property, except if the COBOL comes from a Macro. After the instance is generated in Rational® Programming Patterns, this property draws your attention to any differences detected against the micropattern generated in Pacbase. As long as this property remains in the COBOL code of the generated instance, the micropattern generated from Pacbase is kept.
If differences are detected, the COBOL generated from Pacbase is kept and the property remains as is.
If no difference is detected, the property is automatically removed from the COBOL code.
If you want to keep the local generation in spite of the differences, you must manually remove the enabled=false property from the COBOL code. If you keep it, any local modifications brought to the micropattern will be overwritten upon the next generation.
After the property is removed, you can update your micropattern from Rational Programming Patterns. These updates will be taken into account upon the next generation.
You must declare a COBOL data name without any format.
There are three types of micropatterns, which are specified in the same way; only the micropattern identifier differs. This identifier determines which of the three Data Element formats is to be fetched upon the next generation.
*{WXx 01 DDSS-DELCO VALUE SPACE. *}or
*{WX 01 DDSS-DELCO VALUE SPACE. *}where:
*{WI $1 *}or
*{WI 01 DDSS-DEL$1. *}
*{WX 01 DDSS-DELCO PICTURE X. *}
*{WX 01 DDSS-DELCO PICTURE S9(4) COMP-3. *}
*{WX 01 DDSS-DELCO COMP-6. *}