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.