 |
» |
|
|
|
The expression evaluator is a system procedure used by the
user interface to accept a string, number, or Boolean expression,
evaluate it, and return the result. This procedure is used by the CALC, SETVAR, IF, ELSEIF, and WHILE commands and within a ![ ].. The expression evaluator provides the following: consistent evaluation of expressions compatibility with MPE V/E job control word evaluation
The expression evaluator uses algebraic notation and supports
the functions defined in Table B-1 “Expression Evaluator Functions”. The references
that appear in this table in parentheses, for example (8), are defined
following the table. See HELP for description of new functions and examples. E.g. HELP FSYNTAX Table B-1 Expression Evaluator Functions | Symbol | Function | Example | Result |
|---|
| +(numeric) | addition | 4 + 5 | 9 | | +(string) | concatenate | "abc' + "de' | abcde | | -(numeric) | subtraction | 12 - 6 | 6 | | -(string) | deletion of first occurrence | "abc' - "b' | ac | | * | multiplication | 4 * 5 | 20 | | / | integer division | 79/ 10 | 7 | | ^ | exponentiation (9) | 2^3 | 8 | | either " or ' | string identifier | either "abc' or "abc' | abc | | () | parentheses | (3 + 4) * 2 | 14 | | < | less than (1) | 5 < 6 | TRUE | | <= | less than or equal (1) | "abc' <= "abc' | TRUE | | > | greater than (1) | "xyz' > "abc' | TRUE | | >= | greater than or equal (1) | "abc'>= "abc' | TRUE | | <> | not equal | 5 <> 6 | TRUE | | = | equal | "xyz"= "xyz" | TRUE | | ABS(integer) | absolute value | abs(-4) | 4 | | ALPHA(string) | check if a string is alphabetic | alpha('abcd')
alpha('ab3d ef') | | | ALPHANUM(string) | check if a string is only alphabetics
and digits | alphanum('abCd') alphanum('45abd') alphanum('3d
ef') | | | AND | logical and | 7=7 and 5=5 | TRUE | | ANYPARM | | | | | BAND | bitwise and | 7 band 13 | 5 | | BASENAME (string) | returns the filename component | CALC basename ('a.b.c')
CALC
basename ('/a/b/c')
CALC basename ('./a/b')
CALC
basename ("./a.sl",".sl")
CALC
basename ('/')
CALC basename ("*feq")
CALC
basename ('$null')
CALC basename ('abc.g','c')
CALC
basename (/usr/lib/liby.a','.a')
CALC
basename ('/usr/lib/liby.a','liby.a' |
A
c
b
a
/
*FEQ
$NULL
AB
liby
liby.a | | BNOT | bitwise not | bnot 5 | -6 | | BOR | bitwise or | 5 bor 2 | 7 | | BOUND(varname) | variable definition test (2) | bound(HPPATH) | TRUE | | BXOR | bitwise exclusive or | 7 bxor 5 | 2 | | CHR(integer) | ASCII value (integer) ===> character | chr(65) | A | | CSL | circular shift left (3) | -2 csl 2 | -5 | | CSR | circular shift right (3) | -7 csr 1 | -4 | | DECIMAL(string) | returns a string value of an integer | CALC decimal (255)
CALC len(decimal($ff))
setvar
i 0
while setvar(i,i+1) < 10 and finfo("FILE"+DECIMAL(I), 'exists')
do
... | 255
3, $3, %3 | DELIMPOS
(str,[,delims]
[,nth][,start]) | returns index in str of the nth delimiter beginning at start; default delims are a space, a comma, a semicolon, an equals sign,
left and right parentheses, left and right brackets, single quote,
double quote, and Tab; default nth is 1; default start is 1 | DELIMPOS('file a=bb, old;rec=40,,f,ascii') | 5 | | DIRNAME()(string) | returns dirctory components of a filename | | | | DWNS(string) | shift string to lowercase (7) | dwns('aBC&#dE') | abc&#de | EDIT(string,editstr
[,start]) | performs full REDO-like editing of a string | EDIT(`abcdefg','>dd')
EDIT('ab cd;g', 'dwd') | | FINFO(filename,
option) | file information (6) | FINFO('x.pub',0) | TRUE | | FQUALIFY(string) | returns a fully qualified filename | CALC fqualify('a')
CALC
fqualify('a.b')
CALC fqualify('a.b.c')
CALC
fqualify('./a')
CALC fqualify('./A')
CALC
fqualify('/a/b/c')
CALC fqualify('*a')
CALC
fqualify('$null') CALC dirname (fqualify('./a')) | A.GROUP.ACCOUNT # when the CWD is your logon group
or /CWD/A #when the CWD is s a directory
A.B.ACCOUNT
A.B.C
/ACCOUNT/GROUP/a
A.GROUP.ACCOUNT
# when the CWD is your logon group or
/CWD #when the CWD
is a directory
/a/b/c
*A
$NULL
/ACCOUNT
GROUP # when the CWD is your logon group or
CWD # when
the CWD is a directory | | FSYNTAX()(string) | returns the syntax of the passed filename argument | fsyntax('a.b.c')
fsyntax('/a/b/c') fsyntax('./ab@/c') fsyntax($null') fsyntax('a.b.c.d') | MPE
POSIX
POSIX;WILD
MPE;$FILE
MPE
ERROR=426 | | HEX(integer) | convert to hexadecimal string | hex(329) | $149 | INPUT([prompt]
[,wait]) | accept user input (10) | input('Enter choice:',20) | Enter choice: YReturn "Y" | | LEN(string) | string length | len("abc') | 3 | | LFT(string, # chars) | left string extraction | lft('abc',2) | ab | | LSL | logical shift left | 7 lsl 1 | 14 | | LSR | logical shift right | -7 lsr 1 | 2,147,483,644 | LTRIM(string
[,trimstr]) | trim left end of string (11) | 'X'+ltrim(' abc') "X"+ltrim('...abc',
'.') | | | MAX(num1[,num2...]) | find largest of several integers | max(5,4-3,70,0) | 70 | | MIN(num1[,num2...]) | find smallest of several integers | min(5,4,-3,70,0) | -3 | | MOD | modulo (4) | 25 mod 2 | 1 | | NOT | logical not | not(2>1) | FALSE | | NUMERIC (string) | check if a string is all digits | numeric('12345') numeric('$a234ef') | | | OCTAL(integer) | convert to octal string | octal(329) | %511 | | ODD(integer) | determine if integer is odd | | | | OR | logical or | 5=5 or 2=3 | TRUE | | ORD(string) | ordinal (8) | ord('AbcD') | 65 | | POS(find str,source str[,n]) | find nth occurrence of find str in source str; positive value for n begins search at left; negative value for n begins search at right) (12) | pos('ab','cgabd') pos('.','file.grp.acct',2) pos('.','file.grp.acct',-1) | | | PMATCH(pattern,str [,start]) | searches for pattern in a given string (str) starting at start; pattern may contain wildcards; default start is 1 | PMATCH('f@','fread') PMATCH('abc','abcd') | | | REPL(str,oldstr,newstr [,cnt][,start]) | in a given string (str), replaces cnt occurrences of oldstr with newstr, beginning at start; if cnt is positive, replacement begins at the left end of str; if negative, replacement begins at the right end
of str; default start is 1; default cnt is zero (meaning all occurences) | REPL('aaabcaab','aa','X')
REPL('aaabcaab','ab','',-1) | | | RHT(string, # chars) | right string extraction | rht("abc',2) | bc | | RPT(string,count) | repeat a string (-count reverses string) | rpt('aBc',3)
rpt('aBc',-3) | | RTRIM(string
[,trimstr]) | trim right end of string (11) | rtrim('abc ')+'X' rtrim('abc...','.')+"X" | | SETVAR
(varname,expr) | return result of expr and set varname to result (13) | setvar(myvar,2*3+5) | sets variable myvar to 11 and returns 11 | | STR(string,start pos, # chars) | general string extraction | str('abcde',2,3) | bcd | | TYPEOF(expression) | type of variable or expression
(5) | typeof(HPPATH) | 2 (string) | | UPS(string) | shift string to uppercase (7) | ups('aBc5d') | ABC5D | | WORD(string,[,delims] [,nth][,end_var][,start]) | performs general word extraction; default delims are a space, a comma, a semicolon, an equals sign,
left and right parentheses, left and right brackets, single quote,
double quote, and Tab; default nth is 1; the default end_var is no variable; the default start is 1 | WORD('file a=bb,old; rec=40,,f,ascii') WORD('file
a=bb,old; rec=40,,f,ascii',,-4,j) | | | XOR | logical exclusive or | 7=7 xor 5=5 | TRUE | | XWORDstring) | returns a string less 'word' | xword('file a=bb, old; rec=40, ,f,
ascii') xword('file a=bb, old;
rec=40,
,f, ascii' , ,2)
xword('file a=bb, old;
rec=40,
,f, ascii' , " ; , " , , j, 8)
xword('file
a=bb, old;
rec=40, ,f, ascii' , , -4, j) | 'a=bb,old;rec=40, , f, ascii'
'file
bb, old; rec=40 , , f, ascii'
'file
a=old; rec=40 , ,f , ascii' and J=10
'file
a=bb, old;rec=, f, ascii ' and J=18 |
|
Printable version
