Use the DFT keyword to specify a constant value for constant fields.
The format of the keyword is:
DFT('value') 'value' DFT(X'hexadecimal-value') X'hexadecimal-value'
Constant values can be:
You can specify DFT implicitly by omitting DFT and the parentheses (this is true for both character and hexadecimal values). Specify the value within single quotation marks. For hexadecimal values, you must also precede the value with an X.
The EDTCDE and EDTWRD keywords cannot be specified with the DFT keyword.
Option indicators are not valid for this keyword. However, they can be used to condition the constant field with which this keyword is specified, specifying the last option indicator on the same line as the field location.
The following example shows how to specify DFT using character values.
|...+....1....+....2....+....3....+....4....+....5....+....6....+....7....+....8 00010A R SUPPLIES 00020A PENS 20 2 1 00030A INK 20 3 1 00040A PAPER 20 4 1 00050A 7 9DFT('ON') 00060A 8 9'ON' 00070A 00080A 01 12 1'Hotel name: 'Terrace Inn' 00100A 00110A 02 12 1'Hotel name: 'Riverview Inn' A
The specifications DFT('ON') and 'ON' are equivalent and show the difference between specifying DFT explicitly and implicitly.
Hotel name: 'Terrace Inn'
Hotel name: 'Riverview Inn'
The following example shows how to specify DFT for a constant field containing an alternate character.
|...+....1....+....2....+....3....+....4....+....5....+....6....+....7....+....8 12 00010A R RECORD DFNCHR(X'7C' X'007E813CC324817E00') 00020A 358 4DFT(X'7C') TRNSPY 4 00030A +2DFT('1982') A
The constant field for which DFT is specified 1 appears on line 58, position 4. The character defined for hexadecimal 7C prints in this field. DFNCHR 2, specified at the record level for this example, defines hexadecimal 7C as a copyright mark.
DFT(X'7C') X'7C' DFT('©') '©'
The TRNSPY keyword 4 is required when hexadecimal values are specified for DFT.