Figure 114 shows how to specify the validity-checking CHECK keywords.
Figure 114. Specifying the Validity-Checking CHECK Keywords
|...+....1....+....2....+....3....+....4....+....5....+....6....+....7....+....8 00060A R RECORD1 CHECK(AB) 00070A FIELD11 10 B 1 2TEXT('CHECK(AB) not propagated to + 00080A this field') 00090A FIELD21 10 B 1 22CHECK(VN) 00100A TEXT('CHECK(AB) is propagated to + 00110A this field') 00120A FIELD31 10 B 1 42CHECK(VNE) 00130A TEXT('CHECK(AB) is propagated to + 00140A this field') 00150A* 00160A R RECORD2 00170A FIELD12 10 B 2 2CHECK(VN) CHECK(AB) 00180A FIELD22 10 B 2 22CHECK(VN AB) 00190A FIELD32 1 B 2 42CHECK(AB) VALUES('A' 'B' 'C') 00200A FIELD42 10 B 2 62CHECK(VN) 00210A FIELD52 10 B 3 2CHECK(VNE) 00220A FIELD62 10 B 3 22CHECK(VNE AB) 00230A FIELD72 10 B 4 1CHECK(ME MF) 00240A FIELD82 8 OB 4 22CHECK(M10) 00250A FIELD92 10 OB 4 42CHECK(M11) A
(C) Copyright IBM Corporation 1992, 2006. All Rights Reserved.