Use the DFT keyword to specify a constant value for constant (unnamed) 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). Simply specify the value within apostrophes. 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.
Examples:
Example 1:
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.
If indicator 01 is on, this prints:
Hotel name: 'Terrace Inn'
If indicator 02 is on and indicator 01 is off, this prints:
Hotel name: 'Riverview Inn'
Example 2:
The following example shows how to specify DFT for a constant field containing an alternate character.
|...+....1....+....2....+....3....+....4....+....5....+....6....+....7....+....8 (1)(2) 00010A R RECORD DFNCHR(X'7C' X'007E813CC324817E00') 00020A (3)58 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 hex 7C prints in this field. DFNCHR (2), specified at the record level for this example, defines hex 7C as a copyright mark.
The following are equivalent ways to specify the value as defined in this example (3):
DFT(X'7C') X'7C' DFT('(C)') '(C)'
The TRNSPY keyword (4) is required when hexadecimal values are specified for DFT.
(C) Copyright IBM Corporation 1992, 2005. All Rights Reserved.