For use with Java applications generated by SoftwareMining's COBOL-to-Java conversion tools.

Package com.softwaremining.util

Class CBLMath

java.lang.Object

com.softwaremining.util.CBLMath

public class CBLMath
extends Object

Field Summary

Fields

Modifier and Type	Field	Description
protected static Log	log

Constructor Summary

Constructors

Constructor	Description
CBLMath()

Method Summary

Modifier and Type	Method	Description
static BigDecimal	acos(BigDecimal input)
static double	annuity(double percentage, double numberOfPeriods)	return annuity value same as in COBOL
static BigDecimal	asin(BigDecimal input)
static BigDecimal	atan(BigDecimal input)
static BigDecimal	cos(BigDecimal input)
static double	factorial(double value)	return value of computed factorial for its first argument
static BigDecimal	log(BigDecimal input)
static BigDecimal	log10(BigDecimal input)
static double	max(double[] args)	returns largest number in the sequence
static double	max(AbstractCBLNumeric theField)	return maximum from a field.
static String	max(CBLString theField)	return maximum from a field.
static String	max(String[] args)	return maximum from sequence of strings, where maximum is determined through lexicographical comparisons
static double	mean(double[] args)
static double	mean(AbstractCBLNumeric theField)	return MEAN from an arrayed field.
static double	median(double[] args)
static double	median(AbstractCBLNumeric theField)	return median from a field.
static double	midrange(double[] args)
static double	midrange(AbstractCBLNumeric theField)	return MID-RANGE from a field.
static double	min(double[] args)
static double	min(AbstractCBLNumeric theField)	return minimum from a field.
static String	min(CBLString theField)	return minimum from a field.
static String	min(String[] args)	return minimum from sequence of strings, where minimum is determined through lexicographical comparisons
static BigDecimal	min(BigDecimal[] args)
static double	mod(double arg1, double arg2)
static double	numval(CBLString field)	return numeric value of its first argument
static double	numval(ISMNumeric field)	return numeric value of its first argument
static double	numval(String value)	return numeric value of its argument.
static double	numvalC(ISMNumeric field)	return numeric value of its first argument
static double	numvalC(ISMNumeric field, String currencySign)	return numeric value of its first argument
static double	numvalC(ISMString value)	return numeric value of its first argument
static double	numvalC(ISMString field, String currencySign)	return numeric value of its first argument
static double	numvalC(String value)	return numeric value of its first argument
static double	numvalC(String value, String currencySign)	return numeric value of its first argument
static int	ordMax(double[] args)	Translation of COBOL INTRINSIC FUNCTION ORD-MAX.
static double	ordMax(AbstractCBLNumeric theField)	Translation of COBOL INTRINSIC FUNCTION ORD-MAX.
static int	ordMax(String[] args)	Translation of COBOL INTRINSIC FUNCTION ORD-MAX.
static int	ordMin(double[] args)	Translation of COBOL INTRINSIC FUNCTION ORD-MIN.
static double	ordMin(AbstractCBLNumeric theField)	Translation of COBOL INTRINSIC FUNCTION ORD-MIN.
static int	ordMin(String[] args)	Translation of COBOL INTRINSIC FUNCTION ORD-MIN.
static double	presentField(double[] args2)	Deprecated. - use persentValue
static double	presentField(double arg1, double[] args2)	Deprecated. - use persentValue
static double	presentField(AbstractCBLNumeric theField)	Deprecated. - please use presentValue
static double	presentValue(double[] args2)	Translation of COBOL INTRINSIC FUNCTION PRESENT-VALUE
static double	presentValue(double arg1, double[] args2)	Translation of COBOL INTRINSIC FUNCTION PRESENT-VALUE
static double	presentValue(AbstractCBLNumeric theField)	Translation of COBOL INTRINSIC FUNCTION PRESENT-VALUE It is expected the field internally represents an arrayed field (it may have multi-dim OCCURS declarations)
static double	range(double[] args)	return RANGE from a field (numerical difference between min and max) It is expected the field internally represents an arrayed field (it may have multi-dim OCCURS declarations)
static double	range(AbstractCBLNumeric theField)	return RANGE from a field.
static final void	setRound(ISMNumeric theField, double doubleVal)	Support for COBOL's ROUNDED statement.
static BigDecimal	sin(BigDecimal input)
static double	standardDeviation(double arg)	interface function for degenerative case of one argument
static double	standardDeviation(double[] args)	interface function for degenerative case of one argument
static double	standardDeviation(AbstractCBLNumeric theField)	interface function for degenerative case of one argument It is expected the field internally represents an arrayed field (it may have multi-dim OCCURS declarations)
static BigDecimal	tan(BigDecimal input)
static int	testNumval(String argument1)	IBM's CALL FUNCTION TEST-NUMVAL (ARG)
static int	testNumvalC(String argument1)	IBM's CALL FUNCTION TEST-NUMVAL-C (ARG)
static String	trim(String s1)	Deprecated. - please use java's string.trim()
static double	variance(double arg)	Function for degenerative case of one argument
static double	variance(double[] args)	Function for degenerative case of one argument
static double	variance(AbstractCBLNumeric theField)	Function for degenerative case of one argument It is expected the field internally represents an arrayed field (it may have multi-dim OCCURS declarations)

Methods inherited from class java.lang.Object

clone, equals, finalize, getClass, hashCode, notify, notifyAll, toString, wait, wait, wait

Field Details

log

protected static transient Log log

Constructor Details

CBLMath

public CBLMath()

Method Details

max

public static double max(double[] args)

returns largest number in the sequence

Parameters:

args -

Returns:

max

public static String max(String[] args)

return maximum from sequence of strings, where maximum is determined through lexicographical comparisons

Parameters:

args -

Returns:

lexicographical maximum

max

public static String max(CBLString theField)

return maximum from a field. It is expected the field internally represents an arrayed field (it may have multi-dim OCCURS declarations)

Parameters:

theField -

Returns:

max

public static double max(AbstractCBLNumeric theField)

return maximum from a field. It is expected the field internally represents an arrayed field (it may have multi-dim OCCURS declarations)

Parameters:

theField -

Returns:

min

public static double min(double[] args)

min

public static BigDecimal min(BigDecimal[] args)

min

public static String min(String[] args)

return minimum from sequence of strings, where minimum is determined through lexicographical comparisons

Parameters:

args -

Returns:

lexicographical minimum

min

public static double min(AbstractCBLNumeric theField)

return minimum from a field. It is expected the field internally represents an arrayed field (it may have multi-dim OCCURS declarations)

Parameters:

theField -

Returns:

min

public static String min(CBLString theField)

return minimum from a field. It is expected the field internally represents an arrayed field (it may have multi-dim OCCURS declarations)

Parameters:

theField -

Returns:

mean

public static double mean(double[] args)

mean

public static double mean(AbstractCBLNumeric theField)

return MEAN from an arrayed field. It is expected the field internally represents an arrayed field (it may have multi-dim OCCURS declarations)

Parameters:

theField -

Returns:

median

public static double median(double[] args)

median

public static double median(AbstractCBLNumeric theField)

return median from a field. It is expected the field internally represents an arrayed field (it may have multi-dim OCCURS declarations)

Parameters:

theField -

Returns:

midrange

public static double midrange(double[] args)

midrange

public static double midrange(AbstractCBLNumeric theField)

return MID-RANGE from a field. It is expected the field internally represents an arrayed field (it may have multi-dim OCCURS declarations)

Parameters:

theField -

Returns:

range

public static double range(double[] args)

return RANGE from a field (numerical difference between min and max) It is expected the field internally represents an arrayed field (it may have multi-dim OCCURS declarations)

Parameters:

theField -

Returns:

range

public static double range(AbstractCBLNumeric theField)

return RANGE from a field. (numerical difference between min and max) It is expected the field internally represents an arrayed field (it may have multi-dim OCCURS declarations)

Parameters:

theField -

Returns:

mod

public static double mod(double arg1,
 double arg2)

ordMax

public static int ordMax(double[] args)

Translation of COBOL INTRINSIC FUNCTION ORD-MAX.
returns position of the largest (max) item in the provided list. The position is starts at 1

Returns:

\

ordMax

public static double ordMax(AbstractCBLNumeric theField)

Translation of COBOL INTRINSIC FUNCTION ORD-MAX. It is expected the field internally represents an arrayed field (it may have multi-dim OCCURS declarations)
returns position of the largest (max) item in the provided list. The position is starts at 1

Returns:

\

ordMax

public static int ordMax(String[] args)

Translation of COBOL INTRINSIC FUNCTION ORD-MAX.
returns position of the largest (max) item in the provided list. The position is starts at 1

Parameters:

args -

Returns:

ordMin

public static int ordMin(double[] args)

Translation of COBOL INTRINSIC FUNCTION ORD-MIN.
returns position of the smallest (min) item in the provided list. The position is starts at 1

Returns:

ordMin

public static int ordMin(String[] args)

Translation of COBOL INTRINSIC FUNCTION ORD-MIN.
returns position of the smallest (min) item in the provided list. The position is starts at 1

ordMin

public static double ordMin(AbstractCBLNumeric theField)

Translation of COBOL INTRINSIC FUNCTION ORD-MIN. It is expected the field internally represents an arrayed field (it may have multi-dim OCCURS declarations)
returns position of the smallest (min) item in the provided list. The position is starts at 1

variance

public static double variance(double arg)

Function for degenerative case of one argument

variance

public static double variance(double[] args)

Function for degenerative case of one argument

variance

public static double variance(AbstractCBLNumeric theField)

Function for degenerative case of one argument It is expected the field internally represents an arrayed field (it may have multi-dim OCCURS declarations)

standardDeviation

public static double standardDeviation(double arg)

interface function for degenerative case of one argument

standardDeviation

public static double standardDeviation(double[] args)

interface function for degenerative case of one argument

standardDeviation

public static double standardDeviation(AbstractCBLNumeric theField)

interface function for degenerative case of one argument It is expected the field internally represents an arrayed field (it may have multi-dim OCCURS declarations)

presentField

public static double presentField(double arg1,
 double[] args2)

Deprecated.

- use persentValue

Parameters:

arg1 -

args2 -

Returns:

presentValue

public static double presentValue(double arg1,
 double[] args2)

Translation of COBOL INTRINSIC FUNCTION PRESENT-VALUE

Parameters:

arg1 -

args2 -

Returns:

presentField

public static double presentField(double[] args2)

Deprecated.

- use persentValue

Parameters:

args2 -

arg1 -

Returns:

presentField

public static double presentField(AbstractCBLNumeric theField)

Deprecated.

- please use presentValue

Translation of COBOL INTRINSIC FUNCTION PRESENT-VALUE It is expected the field internally represents an arrayed field (it may have multi-dim OCCURS declarations)

Parameters:

theField -

Returns:

presentValue

public static double presentValue(AbstractCBLNumeric theField)

Translation of COBOL INTRINSIC FUNCTION PRESENT-VALUE It is expected the field internally represents an arrayed field (it may have multi-dim OCCURS declarations)

Parameters:

theField -

Returns:

presentValue

public static double presentValue(double[] args2)

Translation of COBOL INTRINSIC FUNCTION PRESENT-VALUE

Parameters:

args2 -

arg1 -

Returns:

numval

public static double numval(String value)

return numeric value of its argument. NB: currently, CR and DB trailings are not supported

Parameters:

value -

Returns:

- value of field as a Double

testNumvalC

public static int testNumvalC(String argument1)

IBM's CALL FUNCTION TEST-NUMVAL-C (ARG)

Parameters:

argument1 -

Returns:

testNumval

public static int testNumval(String argument1)

IBM's CALL FUNCTION TEST-NUMVAL (ARG)

Parameters:

argument1 -

Returns:

numval

public static double numval(ISMNumeric field)

return numeric value of its first argument

Parameters:

field -

Returns:

- value of field as a Double

numval

public static double numval(CBLString field)

return numeric value of its first argument

Parameters:

field -

Returns:

- value of field as a Double

numvalC

public static double numvalC(String value)

return numeric value of its first argument

Parameters:

value -

Returns:

- value of field as a Double

numvalC

public static double numvalC(ISMString value)

return numeric value of its first argument

Parameters:

value -

Returns:

- value of field as a Double

numvalC

public static double numvalC(ISMNumeric field)

return numeric value of its first argument

Parameters:

field -

Returns:

- value of field as a Double

numvalC

public static double numvalC(String value,
 String currencySign)

return numeric value of its first argument

Parameters:

value -

currencySign -

Returns:

- value of field as a Double

numvalC

public static double numvalC(ISMNumeric field,
 String currencySign)

return numeric value of its first argument

Parameters:

field -

currencySign -

Returns:

- value of field as a Double

numvalC

public static double numvalC(ISMString field,
 String currencySign)

return numeric value of its first argument

Parameters:

field -

currencySign -

Returns:

- value of field as a Double

factorial

public static double factorial(double value)

return value of computed factorial for its first argument

Parameters:

value -

Returns:

- factorial

annuity

public static double annuity(double percentage,
 double numberOfPeriods)

return annuity value same as in COBOL

Parameters:

value -

Returns:

- annuity value for investment amount of 1.0

setRound

public static final void setRound(ISMNumeric theField,
 double doubleVal)

Support for COBOL's ROUNDED statement. E.g. Subtract A from B ROUNDED

Parameters:

doubleVal -

trim

public static String trim(String s1)

Deprecated.

- please use java's string.trim()

Parameters:

s1 -

Returns:

cos

public static BigDecimal cos(BigDecimal input)

sin

public static BigDecimal sin(BigDecimal input)

acos

public static BigDecimal acos(BigDecimal input)

asin

public static BigDecimal asin(BigDecimal input)

log

public static BigDecimal log(BigDecimal input)

log10

public static BigDecimal log10(BigDecimal input)

tan

public static BigDecimal tan(BigDecimal input)

atan

public static BigDecimal atan(BigDecimal input)