IBM Flex System x240 w

END%;, VAR.I_DATA, VAR.OL_DIST_INFO, VAR.S_DATA, VAR.S_QUANTITY)CREATE FUNCTION NEW_WH ( O_ID INTEGER, W_ID INTEGER, D_ID SMALLINT, C_ID INTEGER, O_OL_CNT SMALLINT, O_ALL_LOCAL SMALLINT)RETURNS TABLE ( W_TAX REAL, C_DISCOUNT REAL, C_LAST VARCHAR(16), C_CREDIT CHAR(2), O_ENTRY_D TIMESTAMP)SPECIFIC NEW_WHMODIFIES SQL DATA DETERMINISTIC NO EXTERNAL ACTION LANGUAGE SQLVAR: BEGIN ATOMICDECLARE C_DISCOUNT REAL ;DECLARE C_LAST VARCHAR(16) ;DECLARE C_CREDIT CHAR(2) ;DECLARE W_TAX REAL ;DECLARE O_ENTRY_D TIMESTAMP;SET O_ENTRY_D = CURRENT TIMESTAMP;INSERT;INTO NEW_ORDER ( NO_O_ID, NO_D_ID, NO_W_ID )INSERTVALUES ( O_ID, D_ID, W_ID)INTO ORDERS ( O_C_ID, O_ENTRY_D, O_CARRIER_ID, O_OL_CNT, O_ALL_LOCAL, O_ID, O_W_ID,O_D_ID );VALUES ( C_ID, O_ENTRY_D, 0, O_OL_CNT, O_ALL_LOCAL, O_ID, W_ID, D_ID)SET ( C_DISCOUNT, C_LAST, C_CREDIT );= ( SELECT C_DISCOUNT, C_LAST, C_CREDIT)FROM CUSTOMERWHERE C_ID = NEW_WH.C_IDAND C_W_ID = W_IDAND C_D_ID = D_IDSET W_TAX= ( SELECT W_TAXSrc.Srv/tpcc_all_sql.sqc/******************************************************************************* Licensed Materials - Property of IBM**** (C) COPYRIGHT International Business Machines Corp. 1996, 2010** All Rights Reserved.**** US Government Users Restricted Rights - Use, duplication or** disclosure restricted by GSA ADP Schedule Contract with IBM Corp.*****************************************************************************//** tpcc_all_sql.sqc - Client/Server code for TPCC*/#include#include#include "db2tpcc.h"#include "tpccapp.h"#include "tpccdbg.h"#include "sqlca.h"#include "sql.h"// ----------------------------------------------------------------// New Order SERVER// ----------------------------------------------------------------int static is_ORIGINAL( char *string, short length ) ;SQL_API_RC new_order_internal( char *pin, char *pout ){struct out_neword_struct *neword;struct in_neword_struct *in_neword;struct sqlca sqlca ;int fbadItemDetected = 0 ;EXEC SQL BEGIN DECLARE SECTION;char c_last [ 16 ] ;char c_credit [ 2 ] ;float c_discount ;float dist_tax ;float ware_tax ;sqlint32 w_id ;short d_id ;sqlint32 c_id ;sqlint32 next_o_id ;short s_quantity ;sqlint32 supply_w_id ;short inputItemCount ;char stockDistrictInformation [ 24 ];char item_name[ 24 ] ;char o_entry_d [27];short allLocal ;float item_price ;struct i_data_type { short len ; char data[ 50 ] ; } i_data ;struct s_data_type { short len ; char data[ 50 ] ; } s_data ;sqlint32sqlint32sqlint32sqlint32sqlint32sqlint32id0, id1, id2, id3, id4, id5, id6, id7;id8, id9, id10, id11, id12, id13, id14;supply_w_id0, supply_w_id1, supply_w_id2, supply_w_id3;supply_w_id4, supply_w_id5, supply_w_id6, supply_w_id7;supply_w_id8, supply_w_id9, supply_w_id10, supply_w_id11;supply_w_id12, supply_w_id13, supply_w_id14;;)FROM WAREHOUSEWHERE W_ID = NEW_WH.W_IDshortshortshortshortol_quantity0, ol_quantity1, ol_quantity2, ol_quantity3;ol_quantity4, ol_quantity5, ol_quantity6, ol_quantity7;ol_quantity8, ol_quantity9, ol_quantity10, ol_quantity11;ol_quantity12, ol_quantity13, ol_quantity14;END%RETURN VALUES ( W_TAX , C_DISCOUNT , C_LAST , C_CREDIT, O_ENTRY_D ) ;EXEC SQL END DECLARE SECTION;int storedProcRc ;