UNIVERSAL STRING	FOR COBOL 11(460)
;COPYRIGHT 1974,1975,1976,1977, DIGITAL EQUIPMENT CORP., MAYNARD, MA.


	SUBTTL MODES, CODES FOR STRLIB

	EQL==0
	NEQ==1
	GEQ==2
	LEQ==3
	GTR==4
	LSS==5
	APPEND==1B35
	NUMERI==1B33
	PAD==1B32
	IDXEND==1B35
	ANCHOR==1B34
	PARTIA==1B33
	MULTIP==1B32
	WHICH==1B31
	PADDED==0
	IGNORE==1B35
	EXACT==1B34
	TRANSL==1B33
	TRACE==1B32
	BACKWA==1B32
	TOASCI==1B35
	BOUNDS==1B34
	YESBOU==1B32
	ZEROPA==1B34
	NOFILL==1B33
	ALWAYS==1B32

	END