Previous Topic: ALTER Control StatementNext Topic: INCLUDE Control Statement


DEFINE Control Statement

The DEFINE control statement allows you to set up values (literals) to be used in the comparisons specified in the PROCESS-SECTION. Your keywords are assigned the character, packed decimal, binary, hexadecimal or date values specified. Multiple DEFINE control statements may be specified.

The total value of all DEFINE constants must be less than 14,984 bytes, which allows 340 44-position character fields or 3,746 7-position packed fields (a 7-position packed field uses only 4 bytes of storage). The format for the DEFINE control statement is:

DEFINE keyword format 'value'

Control Statement Definition

DEFINE

Identifies the control statement. It must be followed by a space.

keyword

Is your defined keyword name that is used in comparisons in the PROCESS-SECTION. The keyword must not be a CA 1 keyword or special TMSGRW keyword. The maximum length of the keyword name is seven characters. It must be followed by a space.

format

Defines the format of the value. Format is two characters and must be followed by a space. Valid formats are:

BI

- Binary

CH

- Character

DT

- Date

HX

- Hexadecimal

PD

- Packed Decimal

The format of your keyword typically must match the format of the field it is being compared against. For example, to compare your keyword against the TMC expiration date, the format of your keyword must be defined as DT (date). It is also possible to use hexadecimal comparison against any field. For example, if you wanted to determine which DSN fields were storing hex zeros, you could define your keyword as: keyword HX '00'

'value'

Defines the actual value to be assigned to your defined keyword. The value must be delimited by single quotes or any other character having a value less than character A. The beginning and ending delimiter must be the same character. Example values are:

BI

- '5000'

CH

- 'AC$TMS$Z'

DT

- 'DDMMMYYYY' (must be expressed in the date format currently selected or in the yyyy/ddd Julian format)

HX

- 'C8F1' (must be even number of hex digits)

PD

- '88002'