Trailing-Edge
-
PDP-10 Archives
-
DBMS-20_V6_BIN_19811001
-
sources/strunv.mac
There are 21 other files named strunv.mac in the archive. Click here to see a list.
UNIVERSAL STRING FOR COBOL
;THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY ONLY BE USED
; OR COPIED IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE
;COPYRIGHT (C) 1974,1975,1976,1977,1978,1979,1980,1981
; BY DIGITAL EQUIPMENT CORPORATION
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