Compile Insert PROTECT.CONSTANTS EQUATE PRO.SPEC$ TO "%PROTECT.SPEC%" EQUATE PRO.SOURCE$ TO "%PROTECT.SRC%" EQUATE PRO.OBJECT$ TO "%PROTECT%" *** %PROTECT.SPEC% FIELD DEFINES *** EQUATE PRO.FILE$ TO 1 EQUATE PRO.FLD$ TO 2 *** VALUE DEFINES FOR PROT.FLD$ *** EQUATE PRO.FLD.NAME$ TO 1 EQUATE PRO.FLD.TYPE$ TO 2 EQUATE PRO.FLD.NO$ TO 3 EQUATE PRO.FLD.CONV$ TO 4 EQUATE PRO.FLD.PATT$ TO 5 EQUATE PRO.FLD.NULL$ TO 6 EQUATE PRO.FLD.UNIQ$ TO 7 EQUATE PRO.FLD.LEN$ TO 8 EQUATE PRO.FLD.JUST$ TO 9 EQUATE PRO.FLD.PART$ TO 10 EQUATE NULL.ERR$ TO 1 EQUATE IPAT.ERR$ TO 2 EQUATE ICONV.ERR$ TO 5 EQUATE OCONV.ERR$ TO 7 EQUATE UNIQUE.ERR$ TO 10 EQUATE TEST.ERR$ TO 11 * Source Date: 18:48:31 29 MAR 1989 Build ID: AREV*1.13.7 Level: 2.0 * 03-20-15 rjc Copied Into OI From Arev_Bp