added sysprog entities
This commit is contained in:
31
SYSPROG/STPROCINS/PROTECT.CONSTANTS.txt
Normal file
31
SYSPROG/STPROCINS/PROTECT.CONSTANTS.txt
Normal file
@ -0,0 +1,31 @@
|
||||
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
|
Reference in New Issue
Block a user