The DEFEQU statement can be used to equate an installation definable symbolic name with a literal value or another symbolic field. Substrings are supported on character symbolic fields, and numeric symbolic fields can be defined by specifying the NUMERIC parameter before the equate expression.
This facility can be used to assign meaningful names to the user fields delivered with the product: USRFLDCn and USRFLDNn. Also, since the expressions on the DEFEQU statements support substrings, a single user field can be subdivided into many new symbolic fields.
DEFEQU NUMERIC
equate_expression control_block_name
Function: This is an optional parameter. By default, equates are character type symbolic fields. If you wish to define an equate for numeric literals, you must specify NUMERIC immediately after DEFEQU.
A numeric equate might be used to define a symbolic field that will be used to establish a threshold value. By using the equated field name in the rule definitions, the threshold could be modified for all rule definitions by changing the value on the DEFEQU statement.
DEFEQU NUMERIC INST_SPC_LIMIT = 70
Default: None
Format: NUMERIC
equate_expression
Function: This is a required parameter. The DEFEQU statement uses an expression to define a new symbolic field name. The new symbolic names can be equated to a literal string, or another symbolic field. Substrings are supported on character symbolic fields. If you wish to define an equate for numeric literals, you must specify NUMERIC immediately after the DEFEQU statement.
The equate facility can be used to establish installation defined names for the user fields supplied with ACC and SRS. By using substrings, the equates can divide a single user field into multiple symbolic fields. For example, the following DEFEQU statements can redefine portions of USRFLDC1. For information about using substrings, examine “Symbolic Fields withSubstrings” on page 3-15.
DEFEQU AMDTEST = &USRFLDC1(1,1) DEFEQU CCLTEST = &USRFLDC1(2,1)
Default: None
Format: The expression used by DEFEQU has two tokens that must be separated by an equal sign: “=” or “EQ”. For more information about expressions, examine Expressions.
control_block_name
Function: This is a optional parameter. The DEFEQU statement uses an
expression to define a new symbolic field name, and a new symbolic name can be equated to another symbolic field. The internal symbolic names are all related to one or more system control blocks. If a symbolic name is related to more than one control block, the DEFEQU can use the control_block_name parameter to select the appropriate symbolic name to use on the equate.
Before using this parameter, please consult customer support.
Default: None
Format: After consulting technical support, add one of the following control block names after the equate expression:
ACERO, ACT, AMB, AMDSB, CDA, CRL, CRP, CSO, CTGFL, CTGFV, CTGPL, DCB, DCE, DEB, DSAB, EDB, FOP, FORMAT1, GWA, JCT, JFCB, JMR, PDE, PDT, PJT, PMSG, POPT, PRODn, SCT, SIOT, SMSACS, TIOT, UCB or VSAM.