IBM SC34-5764-01 - Manual (Page 197)

ABBREV (Abbreviation)
ABBREV(information,info
,length
)
returns 1 if info is equal to the leading characters of information and the length of info is not less than
length. Returns 0 if either of these conditions is not met.
If you specify length, it must be a positive whole number or zero. The default for length is the number of
characters in info.
Here are some examples:
ABBREV('Print','Pri') -> 1
ABBREV('PRINT','Pri') -> 0
ABBREV('PRINT','PRI',4) -> 0
ABBREV('PRINT','PRY') -> 0
ABBREV('PRINT','') -> 1
ABBREV('PRINT','',1) -> 0
Note: A null string always matches if a length of 0 (or the default) is used. This allows a default keyword
to be selected automatically if desired; for example:
say 'Enter option:'; pull option .
select /* keyword1 is to be the default */
when abbrev('keyword1',option) then ...
when abbrev('keyword2',option) then ...
...
otherwise nop;
end;
ABS (Absolute Value)
ABS(number)
returns the absolute value of number. The result has no sign and is formatted according to the current
NUMERIC settings.
Here are some examples:
ABS('12.3') -> 12.3
ABS(' -0.307') -> 0.307
ADDRESS
ADDRESS()
returns the name of the environment to which commands are currently being submitted. The environment
may be a name of a subcommand environment. See the ADDRESS instruction (page “Purpose” on page
132) for more information. Trailing blanks are removed from the result.
Here are some examples:
ADDRESS() -> 'CICS' /* default under CICS */
ADDRESS() -> 'EDITSVR' /* default under CICS editor */
ARG (Argument)
ARG(
n
,option
)
Functions
Chapter 14. Functions 175