CHECK (Check) Keyword for Display Files --Examples

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