32 lines
808 B
Plaintext
32 lines
808 B
Plaintext
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
|