|
OpenCOBOL 1.1pre-rel
|
|
OpenCOBOL 1.1pre-rel
|
00001 /* 00002 * Copyright (C) 2005-2009 Roger While 00003 * 00004 * This library is free software; you can redistribute it and/or 00005 * modify it under the terms of the GNU Lesser General Public License 00006 * as published by the Free Software Foundation; either version 2.1, 00007 * or (at your option) any later version. 00008 * 00009 * This library is distributed in the hope that it will be useful, 00010 * but WITHOUT ANY WARRANTY; without even the implied warranty of 00011 * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the 00012 * GNU Lesser General Public License for more details. 00013 * 00014 * You should have received a copy of the GNU Lesser General Public 00015 * License along with this library; see the file COPYING.LIB. If 00016 * not, write to the Free Software Foundation, 51 Franklin Street, Fifth Floor 00017 * Boston, MA 02110-1301 USA 00018 */ 00019 00020 #ifndef COB_INTRINSIC_H 00021 #define COB_INTRINSIC_H 00022 00023 #include <libcob/common.h> 00024 00025 extern cob_field *cob_intr_binop (cob_field *, int, cob_field *); 00026 extern cob_field *cob_intr_current_date (const int, const int); 00027 extern cob_field *cob_intr_when_compiled (const int, const int, cob_field *); 00028 extern cob_field *cob_intr_exception_file (void); 00029 extern cob_field *cob_intr_exception_location (void); 00030 extern cob_field *cob_intr_exception_status (void); 00031 extern cob_field *cob_intr_exception_statement (void); 00032 extern cob_field *cob_intr_char (cob_field *); 00033 extern cob_field *cob_intr_ord (cob_field *); 00034 extern cob_field *cob_intr_stored_char_length (cob_field *); 00035 extern cob_field *cob_intr_combined_datetime (cob_field *, cob_field *); 00036 extern cob_field *cob_intr_date_of_integer (cob_field *); 00037 extern cob_field *cob_intr_day_of_integer (cob_field *); 00038 extern cob_field *cob_intr_integer_of_date (cob_field *); 00039 extern cob_field *cob_intr_integer_of_day (cob_field *); 00040 extern cob_field *cob_intr_test_date_yyyymmdd (cob_field *); 00041 extern cob_field *cob_intr_test_day_yyyyddd (cob_field *); 00042 extern cob_field *cob_intr_factorial (cob_field *); 00043 extern cob_field *cob_intr_exp (cob_field *); 00044 extern cob_field *cob_intr_exp10 (cob_field *); 00045 extern cob_field *cob_intr_abs (cob_field *); 00046 extern cob_field *cob_intr_acos (cob_field *); 00047 extern cob_field *cob_intr_asin (cob_field *); 00048 extern cob_field *cob_intr_atan (cob_field *); 00049 extern cob_field *cob_intr_cos (cob_field *); 00050 extern cob_field *cob_intr_log (cob_field *); 00051 extern cob_field *cob_intr_log10 (cob_field *); 00052 extern cob_field *cob_intr_sin (cob_field *); 00053 extern cob_field *cob_intr_sqrt (cob_field *); 00054 extern cob_field *cob_intr_tan (cob_field *); 00055 extern cob_field *cob_intr_upper_case (const int, const int, cob_field *); 00056 extern cob_field *cob_intr_lower_case (const int, const int, cob_field *); 00057 extern cob_field *cob_intr_reverse (const int, const int, cob_field *); 00058 extern cob_field *cob_intr_concatenate (const int, const int, 00059 const int, ...); 00060 extern cob_field *cob_intr_substitute (const int, const int, 00061 const int, ...); 00062 extern cob_field *cob_intr_substitute_case (const int, const int, 00063 const int, ...); 00064 extern cob_field *cob_intr_trim (const int, const int, 00065 cob_field *, const int); 00066 extern cob_field *cob_intr_length (cob_field *); 00067 extern cob_field *cob_intr_integer (cob_field *); 00068 extern cob_field *cob_intr_integer_part (cob_field *); 00069 extern cob_field *cob_intr_fraction_part (cob_field *); 00070 extern cob_field *cob_intr_sign (cob_field *); 00071 extern cob_field *cob_intr_numval (cob_field *); 00072 extern cob_field *cob_intr_numval_c (cob_field *, cob_field *); 00073 extern cob_field *cob_intr_annuity (cob_field *, cob_field *); 00074 extern cob_field *cob_intr_mod (cob_field *, cob_field *); 00075 extern cob_field *cob_intr_rem (cob_field *, cob_field *); 00076 extern cob_field *cob_intr_sum (const int, ...); 00077 extern cob_field *cob_intr_ord_min (const int, ...); 00078 extern cob_field *cob_intr_ord_max (const int, ...); 00079 extern cob_field *cob_intr_min (const int, ...); 00080 extern cob_field *cob_intr_max (const int, ...); 00081 extern cob_field *cob_intr_midrange (const int, ...); 00082 extern cob_field *cob_intr_median (const int, ...); 00083 extern cob_field *cob_intr_mean (const int, ...); 00084 extern cob_field *cob_intr_range (const int, ...); 00085 extern cob_field *cob_intr_random (const int, ...); 00086 extern cob_field *cob_intr_variance (const int, ...); 00087 extern cob_field *cob_intr_standard_deviation (const int, ...); 00088 extern cob_field *cob_intr_present_value (const int, ...); 00089 extern cob_field *cob_intr_year_to_yyyy (const int, ...); 00090 extern cob_field *cob_intr_date_to_yyyymmdd (const int, ...); 00091 extern cob_field *cob_intr_day_to_yyyyddd (const int, ...); 00092 extern cob_field *cob_intr_locale_date (const int, const int, 00093 cob_field *, cob_field *); 00094 extern cob_field *cob_intr_locale_time (const int, const int, 00095 cob_field *, cob_field *); 00096 00097 extern cob_field *cob_intr_seconds_past_midnight (void); 00098 extern cob_field *cob_intr_lcl_time_from_secs (const int, const int, 00099 cob_field *, cob_field *); 00100 extern cob_field *cob_intr_seconds_from_formatted_time (cob_field *, cob_field *); 00101 00102 #endif /* COB_INTRINSIC_H */
1.7.4
