		#include <stdlib.h>
		#include <stdio.h>
		#include <string.h>
		#include "calc.h"
		
		char *_calcsys_str_const_main_0;
		char *_calcsys_str_const_main_1;
		char *_calcsys_str_const_main_3;
		char *_calcsys_str_const_main_2;
		char *_calcsys_str_const_main_10;
		char *_calcsys_str_const_main_7;
		char *_calcsys_str_const_main_6;
		char *_calcsys_str_const_main_5;
		char *_calcsys_str_const_main_8;
		char *_calcsys_str_const_main_9;
		char *_calcsys_str_const_main_4;
#function_declarations
		int is_web_page;
		char *get_and_post_filename;
		char *redirect_filename;
		char *_calcsys_err_filename[MAX_NESTED_FUNCTION_CALLS];
		char *_calcsys_err_function_name[MAX_NESTED_FUNCTION_CALLS];
		int _calcsys_err_linenumber[MAX_NESTED_FUNCTION_CALLS];
		int _calcsys_call_level;
		int _calcsys_num_function_table_items;
		char *_calcsys_function_table_name[MAX_FUNCTION_TABLE_ITEMS];
		void (*_calcsys_function_table_ptr[MAX_FUNCTION_TABLE_ITEMS])();
	long int _calc_main( long int *argc, char *argv, int ic_ptr, char *_calcsys_input_filename, int _calcsys_line_number )
	{
#function_start
_calc_main
274
		_calcsys_err_filename[_calcsys_call_level] = _calcsys_input_filename;
		_calcsys_err_function_name[_calcsys_call_level] = "main";
		_calcsys_err_linenumber[_calcsys_call_level] = _calcsys_line_number;
		_calcsys_call_level++;


														// sample_program3.calc:  Line: 14
														// {

		{


														// sample_program3.calc:  Line: 15
														//     var db_connection cxn;



														// sample_program3.calc:  Line: 15
														//     var db_connection cxn;



														// sample_program3.calc:  Line: 16
														// 	var string query;



														// sample_program3.calc:  Line: 16
														// 	var string query;



														// sample_program3.calc:  Line: 17
														// 	var db_query_result result1;



														// sample_program3.calc:  Line: 17
														// 	var db_query_result result1;



														// sample_program3.calc:  Line: 18
														// 	var db_row data;



														// sample_program3.calc:  Line: 18
														// 	var db_row data;



														// sample_program3.calc:  Line: 19
														// 	var int num_rows;



														// sample_program3.calc:  Line: 19
														// 	var int num_rows;



														// sample_program3.calc:  Line: 20
														// 	var string account_code, account_name;



														// sample_program3.calc:  Line: 20
														// 	var string account_code, account_name;



														// sample_program3.calc:  Line: 20
														// 	var string account_code, account_name;



														// sample_program3.calc:  Line: 22
														// 	calc_mysql_init();

			_calc_calc_mysql_init(  0, "sample_program3.calc", 22 );


														// sample_program3.calc:  Line: 24
														// 	cxn = db_login( "aitkencv_accounts", "XXXXXX", "XXXXXX" );

			_calcsys_register_p_0 = cxn;
			_calcsys_register_p_1 = _calc_db_login( _calcsys_register_o_0, _calcsys_str_const_main_5, _calcsys_str_const_main_6, _calcsys_str_const_main_6, 0, "sample_program3.calc", 24 );
			
			
				copy_var( (var *) _calcsys_register_p_0, (var *) _calcsys_register_p_1, 24, "sample_program3.calc", 0 );		

				
			


														// sample_program3.calc:  Line: 26
														// 	query = "SELECT * FROM aitkencv_accounts.accounts WHERE active = 'yes' ORDER BY display_name";

			copy_var( (var *) query, (var *) _calcsys_str_const_main_7, 26, "sample_program3.calc", 2 );


														// sample_program3.calc:  Line: 28
														// 	result1 = db_run_query( query, cxn );

			_calcsys_register_p_0 = result1;
			_calcsys_register_p_1 = _calc_db_run_query( _calcsys_register_o_1, query, cxn, 0, "sample_program3.calc", 28 );
			
			
				*((long int *) _calcsys_register_p_0) = *((long int *) _calcsys_register_p_1);		

							
			


														// sample_program3.calc:  Line: 30
														// 	num_rows = db_query_num_rows( result1, cxn );

			num_rows = _calc_db_query_num_rows( result1, cxn, 0, "sample_program3.calc", 30 );


														// sample_program3.calc:  Line: 32
														// 	repeat num_rows times

			_calcsys_register_i_0 = num_rows;
			while (_calcsys_register_i_0-- > 0)
			{


														// sample_program3.calc:  Line: 33
														// 	{

				{


														// sample_program3.calc:  Line: 34
														// 		data = db_get_row( result1, cxn );

					_calcsys_register_p_0 = data;
					_calcsys_register_p_1 = _calc_db_get_row( _calcsys_register_o_2, result1, cxn, 0, "sample_program3.calc", 34 );
					
			
				*((long int *) _calcsys_register_p_0) = *((long int *) _calcsys_register_p_1);		

							
			


														// sample_program3.calc:  Line: 36
														// 		account_code = db_get_field_string( "code", data );

					copy_var( (var *) account_code, (var *) _calc_db_get_field_string( _calcsys_register_s_0, _calcsys_str_const_main_8, data, 0, "sample_program3.calc", 36 ), 36, "sample_program3.calc", 2 );


														// sample_program3.calc:  Line: 38
														// 		account_name = db_get_field_string( "display_name", data );

					copy_var( (var *) account_name, (var *) _calc_db_get_field_string( _calcsys_register_s_1, _calcsys_str_const_main_9, data, 0, "sample_program3.calc", 38 ), 38, "sample_program3.calc", 2 );


														// sample_program3.calc:  Line: 40
														// 		print( account_code & ":" & account_name );

					_calc_print( str_concat( _calcsys_register_s_2, "sample_program3.calc", 40, 3, account_code, _calcsys_str_const_main_10, account_name), 0, "sample_program3.calc", 40 );
				}
			}
		_calcsys_register_p_2 = (char *) &account_code;
		
		_calcsys_register_p_2 = (char *) &account_name;
		
		_calcsys_register_p_2 = (char *) &cxn;
		
		_calcsys_register_p_2 = (char *) &data;
		
		_calcsys_register_p_2 = (char *) &query;
		
		_calcsys_register_p_2 = (char *) &result1;
		
		if (((var *) _calcsys_register_s_0)->var_type == VAR_STRING || ((var *) _calcsys_register_s_0)->var_type == VAR_BINARY)
		{
			free_curr_mem_1( (char *) _calcsys_register_s_0 );
			((var *) _calcsys_register_s_0)->var_type = VAR_EMPTY;
		}
		if (((var *) _calcsys_register_s_1)->var_type == VAR_STRING || ((var *) _calcsys_register_s_1)->var_type == VAR_BINARY)
		{
			free_curr_mem_1( (char *) _calcsys_register_s_1 );
			((var *) _calcsys_register_s_1)->var_type = VAR_EMPTY;
		}
		if (((var *) _calcsys_register_s_2)->var_type == VAR_STRING || ((var *) _calcsys_register_s_2)->var_type == VAR_BINARY)
		{
			free_curr_mem_1( (char *) _calcsys_register_s_2 );
			((var *) _calcsys_register_s_2)->var_type = VAR_EMPTY;
		}
		_calcsys_register_p_3 = _calcsys_register_o_0;
		
		_calcsys_register_p_3 = _calcsys_register_o_1;
		
		_calcsys_register_p_3 = _calcsys_register_o_2;
		
		}
#function_end _calc_main
	_calcsys_call_level--;
	return (result);
	}
	
	
	void main_setup_tables()
	{
	_calcsys_num_function_table_items = 0;
	_calcsys_str_const_main_0 = malloc( 16 );
	((var *) _calcsys_str_const_main_0)->var_type = VAR_EMPTY;
	_calcsys_var_set_s( (var *) _calcsys_str_const_main_0, "", true, 0 );
	_calcsys_str_const_main_1 = malloc( 16 );
	((var *) _calcsys_str_const_main_1)->var_type = VAR_EMPTY;
	_calcsys_var_set_s( (var *) _calcsys_str_const_main_1, "0000-00-00", true, 0 );
	_calcsys_str_const_main_3 = malloc( 16 );
	((var *) _calcsys_str_const_main_3)->var_type = VAR_EMPTY;
	_calcsys_var_set_s( (var *) _calcsys_str_const_main_3, "0000-00-00 99:99:99", true, 0 );
	_calcsys_str_const_main_2 = malloc( 16 );
	((var *) _calcsys_str_const_main_2)->var_type = VAR_EMPTY;
	_calcsys_var_set_s( (var *) _calcsys_str_const_main_2, "99:99:99", true, 0 );
	_calcsys_str_const_main_10 = malloc( 16 );
	((var *) _calcsys_str_const_main_10)->var_type = VAR_EMPTY;
	_calcsys_var_set_s( (var *) _calcsys_str_const_main_10, ":", true, 0 );
	_calcsys_str_const_main_7 = malloc( 16 );
	((var *) _calcsys_str_const_main_7)->var_type = VAR_EMPTY;
	_calcsys_var_set_s( (var *) _calcsys_str_const_main_7, "SELECT * FROM aitkencv_accounts.accounts WHERE active = 'yes' ORDER BY display_name", true, 0 );
	_calcsys_str_const_main_6 = malloc( 16 );
	((var *) _calcsys_str_const_main_6)->var_type = VAR_EMPTY;
	_calcsys_var_set_s( (var *) _calcsys_str_const_main_6, "XXXXXX", true, 0 );
	_calcsys_str_const_main_5 = malloc( 16 );
	((var *) _calcsys_str_const_main_5)->var_type = VAR_EMPTY;
	_calcsys_var_set_s( (var *) _calcsys_str_const_main_5, "aitkencv_accounts", true, 0 );
	_calcsys_str_const_main_8 = malloc( 16 );
	((var *) _calcsys_str_const_main_8)->var_type = VAR_EMPTY;
	_calcsys_var_set_s( (var *) _calcsys_str_const_main_8, "code", true, 0 );
	_calcsys_str_const_main_9 = malloc( 16 );
	((var *) _calcsys_str_const_main_9)->var_type = VAR_EMPTY;
	_calcsys_var_set_s( (var *) _calcsys_str_const_main_9, "display_name", true, 0 );
	_calcsys_str_const_main_4 = malloc( 16 );
	((var *) _calcsys_str_const_main_4)->var_type = VAR_EMPTY;
	_calcsys_var_set_s( (var *) _calcsys_str_const_main_4, "stdlib.calch", true, 0 );
	
	
	}
	
	
	int stdlib_link_variable;
	void stdlib_setup_tables();
	int forms_library_link_variable;
	void forms_library_setup_tables();
	int _main_link_variable;
	int main( int argc, char *argv[] )
	{
		int i;
		rarray *rarray_ptr;
		long int _argc, exit_code;
		char *ptr1, *ptr2;
		var _argv[MAX_ARGC];
		var _argv2;
		is_web_page = false;
		_calcsys_call_level = 0;
		main_setup_tables();
		stdlib_setup_tables();
		forms_library_setup_tables();
		memset( (char *) _argv, 0, 16 * MAX_ARGC );
		rarray_ptr = _malloc( sizeof( rarray ) );
		rarray_ptr->number_of_dimensions = 1;
		rarray_ptr->sizeof_array_element = 16;
		rarray_ptr->index_size[0] = argc;
		rarray_ptr->total_size = argc * 16;
		ptr2 = _malloc( rarray_ptr->total_size );
		memset( ptr2, 0, rarray_ptr->total_size );
		rarray_ptr->datap = ptr2;
		for (i=0; i < argc && i < MAX_ARGC; i++)
		{
			_calcsys_var_set_s( (var *) (ptr2 + i * 16), argv[i], false, 0 );
		}
		_argv2.var_type = VAR_RESIZABLE_ARRAY;
		_argv2.data.pvalue = rarray_ptr;
		_argc = argc;
		if (argc > MAX_ARGC)
			argc = MAX_ARGC;
		
				
					if (argc < 3)
					{
						ptr1 = NULL;
						ptr2 = NULL;	
					}
					else
					{
						ptr1 = argv[1];
						ptr2 = argv[2];
					}
							
					get_and_post_filename = "";
				
					redirect_filename = "";
				
					calc_stdlib_init( ptr1 ); 
		exit_code = _calc_main( &_argc, (char *) &_argv2, 0, "", 1 );
		calc_stdlib_exit( get_and_post_filename );
		exit( exit_code );
	}
