iSharkFly-Open
/
fis-gtm
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity
fis-gtm/sr_port/mupip_reorg.c

372 lines
12 KiB
C
Raw Blame History

/***************************************************************
* *
* Copyright 2001, 2013 Fidelity Information Services, Inc *
* *
* This source code contains the intellectual property *
* of its copyright holder(s), and is made available *
* under a license. If you do not know the terms of *
* the license, please stop and do not read further. *
* *
****************************************************************/
/* mupip_reorg.c:
* Main program for mupip reorg (portable) .
*
* This program creates a list of globals to be organized from /SELECT option and then calls mu_reorg() to
* reorganize each global seperately but excludes some variables' organization given in /EXCLUDE list.
*
* This alternatively invokes mu_reorg_upgrd_dwngrd in case a MUPIP REORG -UPGRADE or -DOWNGRADE was specified
*/
#include "mdef.h"
#include "gtm_string.h"
#include "stp_parms.h"
#include "gdsroot.h"
#include "gdsblk.h"
#include "gtm_facility.h"
#include "fileinfo.h"
#include "gdsbt.h"
#include "gdsfhead.h"
#include "gdskill.h"
#ifdef VMS
#include <rms.h> /* needed for muextr.h */
#endif
#include "muextr.h"
#include "iosp.h"
#include "cli.h"
#include "mu_reorg.h"
#include "util.h"
#ifdef GTM_TRUNCATE
#include "mu_truncate.h"
#include "op.h"
#include "tp_change_reg.h"
#include "is_proc_alive.h"
#endif
#include "filestruct.h"
#include "error.h"
#include "gdscc.h"
#include "jnl.h"
#include "buddy_list.h" /* needed for tp.h */
#include "hashtab_int4.h" /* needed for tp.h */
#include "tp.h"
/* Prototypes */
#include "mupip_reorg.h"
#include "mu_reorg_upgrd_dwngrd.h"
#include "targ_alloc.h"
#include "mupip_exit.h"
#include "gv_select.h"
#include "mu_outofband_setup.h"
#include "gtmmsg.h"
#include "mu_getlst.h"
error_def(ERR_CONCURTRUNCINPROG);
error_def(ERR_DBRDONLY);
error_def(ERR_EXCLUDEREORG);
error_def(ERR_MUNOACTION);
error_def(ERR_MUNOFINISH);
error_def(ERR_MUPCLIERR);
error_def(ERR_MUTRUNCFAIL);
error_def(ERR_MUTRUNCPERCENT);
error_def(ERR_MUTRUNC1ATIME);
error_def(ERR_NOSELECT);
error_def(ERR_NOEXCLUDE);
error_def(ERR_REORGCTRLY);
error_def(ERR_REORGINC);
GTMTRIG_ONLY(LITREF mval literal_hasht;)
GBLREF bool mu_ctrlc_occurred;
GBLREF bool mu_ctrly_occurred;
GBLREF boolean_t mu_reorg_process;
GBLREF gd_addr *gd_header;
GBLREF gd_region *gv_cur_region;
GBLREF gv_key *gv_currkey_next_reorg, *gv_currkey, *gv_altkey;
GBLREF int gv_keysize;
GBLREF gv_namehead *reorg_gv_target;
GBLREF sgmnt_data_ptr_t cs_data;
GBLREF sgmnt_addrs *cs_addrs;
GBLREF uint4 process_id;
GBLREF tp_region *grlist;
GBLREF bool error_mupip;
#ifdef UNIX
GBLREF boolean_t jnlpool_init_needed;
#endif
void mupip_reorg(void)
{
boolean_t resume, reorg_success = TRUE;
int data_fill_factor, index_fill_factor;
int reorg_op, reg_max_rec, reg_max_key, reg_max_blk;
char cli_buff[MAX_LINE], *ptr;
glist gl_head, exclude_gl_head, *gl_ptr;
uint4 cli_status;
unsigned short n_len;
boolean_t truncate, cur_success, restrict_reg, arg_present;
int root_swap_statistic;
mval gn;
# ifdef GTM_TRUNCATE
int4 truncate_percent;
boolean_t gotlock;
sgmnt_data_ptr_t csd;
sgmnt_addrs *csa;
node_local_ptr_t cnl;
trunc_region *reg_list, *tmp_reg, *reg_iter, *prev_reg;
uint4 fs;
uint4 lcl_pid;
# endif
DCL_THREADGBL_ACCESS;
SETUP_THREADGBL_ACCESS;
UNIX_ONLY(jnlpool_init_needed = TRUE);
mu_outofband_setup();
truncate = FALSE;
GTM_TRUNCATE_ONLY(
reg_list = NULL;
if (CLI_PRESENT == cli_present("TRUNCATE"))
truncate = TRUE;
)
if ((CLI_PRESENT == cli_present("UPGRADE")) || (CLI_PRESENT == cli_present("DOWNGRADE")))
{
/* note that "mu_reorg_process" is not set to TRUE in case of MUPIP REORG UPGRADE/DOWNGRADE.
* this is intentional because we are not doing any REORG kind of processing.
*/
mu_reorg_upgrd_dwngrd();
mupip_exit(SS_NORMAL); /* does not return */
}
grlist = NULL;
restrict_reg = FALSE;
arg_present = (0 != TREF(parms_cnt));
VMS_ONLY(arg_present = (CLI_PRESENT == cli_present("REG_NAME")));
if (CLI_PRESENT == cli_present("REGION"))
{ /* MUPIP REORG -REGION reg-list restricts mu_reorg to variables in specified regions */
error_mupip = FALSE;
restrict_reg = TRUE;
gvinit(); /* initialize gd_header (needed by the following call to mu_getlst) */
mu_getlst("REG_NAME", SIZEOF(tp_region)); /* get the parameter corresponding to REGION qualifier */
if (error_mupip)
{
util_out_print("!/MUPIP REORG cannot proceed with above errors!/", FLUSH);
mupip_exit(ERR_MUNOACTION);
}
} else if (arg_present)
{
util_out_print("MUPIP REORG only accepts a parameter when -REGION is specified.", FLUSH);
mupip_exit(ERR_MUPCLIERR);
}
resume = (CLI_PRESENT == cli_present("RESUME"));
reorg_op = DEFAULT;
n_len = SIZEOF(cli_buff);
memset(cli_buff, 0, n_len);
if (CLI_PRESENT == cli_present("USER_DEFINED_REORG") && (CLI_GET_STR_ALL("USER_DEFINED_REORG", cli_buff, &n_len)))
{
for (ptr = cli_buff; ; )
{
if (0 == STRNCMP_LIT(ptr, "SWAPHIST"))
reorg_op |= SWAPHIST;
else if (0 == STRNCMP_LIT(ptr, "NOCOALESCE"))
reorg_op |= NOCOALESCE;
else if (0 == STRNCMP_LIT(ptr, "NOSPLIT"))
reorg_op |= NOSPLIT;
else if (0 == STRNCMP_LIT(ptr, "NOSWAP"))
reorg_op |= NOSWAP;
else if (0 == STRNCMP_LIT(ptr, "DETAIL"))
reorg_op |= DETAIL;
ptr = (char *)strchr(ptr, ',');
if (ptr)
ptr++;
else
break;
}
}
if ((cli_status = cli_present("FILL_FACTOR")) == CLI_PRESENT)
{
assert(SIZEOF(data_fill_factor) == SIZEOF(int4));
if (!cli_get_int("FILL_FACTOR", (int4 *)&data_fill_factor) || MAX_FILLFACTOR < data_fill_factor)
data_fill_factor = MAX_FILLFACTOR;
else if (MIN_FILLFACTOR > data_fill_factor)
data_fill_factor = MIN_FILLFACTOR;
}
else
data_fill_factor = MAX_FILLFACTOR;
if ((cli_status = cli_present("INDEX_FILL_FACTOR")) == CLI_PRESENT)
{
assert(SIZEOF(index_fill_factor) == SIZEOF(int4));
if (!cli_get_int("INDEX_FILL_FACTOR", (int4 *)&index_fill_factor))
index_fill_factor = data_fill_factor;
else if (MIN_FILLFACTOR > index_fill_factor)
index_fill_factor = MIN_FILLFACTOR;
else if (MAX_FILLFACTOR < index_fill_factor)
index_fill_factor = MAX_FILLFACTOR;
}
else
index_fill_factor = data_fill_factor;
util_out_print("Fill Factor:: Index blocks !UL%: Data blocks !UL%", FLUSH, index_fill_factor, data_fill_factor);
n_len = SIZEOF(cli_buff);
memset(cli_buff, 0, n_len);
if (CLI_PRESENT != cli_present("EXCLUDE"))
exclude_gl_head.next = NULL;
else if (FALSE == CLI_GET_STR_ALL("EXCLUDE", cli_buff, &n_len))
exclude_gl_head.next = NULL;
else
{
/* gv_select will select globals for this clause */
gv_select(cli_buff, n_len, FALSE, "EXCLUDE", &exclude_gl_head, &reg_max_rec, &reg_max_key, &reg_max_blk, FALSE);
if (!exclude_gl_head.next)
gtm_putmsg_csa(CSA_ARG(NULL) VARLSTCNT(1) ERR_NOEXCLUDE);
}
n_len = SIZEOF(cli_buff);
memset(cli_buff, 0, n_len);
if (CLI_PRESENT != cli_present("SELECT"))
{
n_len = 1;
cli_buff[0] = '*';
}
else if (FALSE == CLI_GET_STR_ALL("SELECT", cli_buff, &n_len))
{
n_len = 1;
cli_buff[0] = '*';
}
/* gv_select will select globals for this clause */
TREF(want_empty_gvts) = TRUE; /* Allow killed globals to be selected and processed by mu_reorg */
gv_select(cli_buff, n_len, FALSE, "SELECT", &gl_head, &reg_max_rec, &reg_max_key, &reg_max_blk, restrict_reg);
if (!gl_head.next)
{
rts_error_csa(CSA_ARG(NULL) VARLSTCNT(1) ERR_NOSELECT);
mupip_exit(ERR_NOSELECT);
}
TREF(want_empty_gvts) = FALSE;
root_swap_statistic = 0;
mu_reorg_process = TRUE;
assert(NULL == gv_currkey_next_reorg);
gv_keysize = DBKEYSIZE(MAX_KEY_SZ);
GVKEY_INIT(gv_currkey_next_reorg, gv_keysize);
GVKEY_INIT(gv_currkey, gv_keysize);
GVKEY_INIT(gv_altkey, gv_keysize);
reorg_gv_target = targ_alloc(MAX_KEY_SZ, NULL, NULL);
reorg_gv_target->hist.depth = 0;
reorg_gv_target->alt_hist->depth = 0;
for (gl_ptr = gl_head.next; gl_ptr; gl_ptr = gl_ptr->next)
{
util_out_print(" ", FLUSH);
util_out_print("Global: !AD ", FLUSH, gl_ptr->name.str.len, gl_ptr->name.str.addr);
if (in_exclude_list((uchar_ptr_t)gl_ptr->name.str.addr, gl_ptr->name.str.len, &exclude_gl_head))
{
gtm_putmsg_csa(CSA_ARG(NULL) VARLSTCNT(4) ERR_EXCLUDEREORG, 2, gl_ptr->name.str.len, gl_ptr->name.str.addr);
reorg_success = FALSE;
continue;
}
/* Save the global name in reorg_gv_target. Via gv_currkey_next_reorg, it's possible for gv_currkey to become
* out of sync with gv_target. We'll use reorg_gv_target->gvname to make sure the correct root block is found.
*/
reorg_gv_target->gvname.var_name.addr = gl_ptr->name.str.addr;
reorg_gv_target->gvname.var_name.len = gl_ptr->name.str.len;
cur_success = mu_reorg(&gl_ptr->name, &exclude_gl_head, &resume, index_fill_factor, data_fill_factor, reorg_op);
reorg_success &= cur_success;
SET_GV_CURRKEY_FROM_REORG_GV_TARGET;
# ifdef GTM_TRUNCATE
if (truncate)
{ /* No need to move root blocks unless truncating */
cur_success &= mu_swap_root(&gl_ptr->name, &root_swap_statistic);
if (cur_success)
{ /* add region corresponding to this global to the set (list) of regions to truncate */
for (reg_iter = reg_list, prev_reg = reg_list; reg_iter; reg_iter = reg_iter->next)
if (reg_iter->reg == gv_cur_region)
break;
else
prev_reg = reg_iter;
if (NULL == reg_iter)
{
tmp_reg = (trunc_region *)malloc(SIZEOF(trunc_region));
tmp_reg->reg = gv_cur_region;
tmp_reg->next = NULL;
if (NULL == reg_list)
reg_list = tmp_reg;
else
prev_reg->next = tmp_reg;
# ifdef GTM_TRIGGER
if (truncate)
{ /* Reorg ^#t in this region to move it out of the way. */
gn = literal_hasht;
reorg_gv_target->gvname.var_name.addr = gn.str.addr;
reorg_gv_target->gvname.var_name.len = gn.str.len;
cur_success = mu_reorg(&gn, &exclude_gl_head, &resume, index_fill_factor,
data_fill_factor, reorg_op);
reorg_success &= cur_success;
SET_GV_CURRKEY_FROM_REORG_GV_TARGET;
reorg_success &= mu_swap_root(&gn, &root_swap_statistic);
}
# endif
}
}
}
# endif
if (mu_ctrlc_occurred || mu_ctrly_occurred)
{
gtm_putmsg_csa(CSA_ARG(NULL) VARLSTCNT(1) ERR_REORGCTRLY);
mupip_exit(ERR_MUNOFINISH);
}
}
if (!reorg_success)
{
rts_error_csa(CSA_ARG(NULL) VARLSTCNT(1) ERR_REORGINC);
mupip_exit(ERR_REORGINC);
}
else if (truncate)
{
# ifdef GTM_TRUNCATE
util_out_print("Total root blocks moved: !UL", FLUSH, root_swap_statistic);
mu_reorg_process = FALSE;
/* Default threshold is 0 i.e. we attempt to truncate no matter what free_blocks is. */
truncate_percent = 0;
cli_get_int("TRUNCATE", (int4 *)&truncate_percent);
if (99 < truncate_percent)
{
gtm_putmsg_csa(CSA_ARG(NULL) VARLSTCNT(1) ERR_MUTRUNCPERCENT);
mupip_exit(ERR_MUTRUNCFAIL);
}
for (reg_iter = reg_list; reg_iter; reg_iter = reg_iter->next)
{
gv_cur_region = reg_iter->reg;
tp_change_reg();
csd = cs_data;
csa = cs_addrs;
cnl = csa->nl;
/* Ensure only one truncate process at a time operates on given region */
grab_crit(gv_cur_region);
lcl_pid = cnl->trunc_pid;
if (lcl_pid && is_proc_alive(lcl_pid, 0))
{
rel_crit(gv_cur_region);
send_msg_csa(CSA_ARG(REG2CSA(gv_cur_region)) VARLSTCNT(4) ERR_MUTRUNC1ATIME, 3, lcl_pid,
REG_LEN_STR(gv_cur_region));
continue;
}
cnl->trunc_pid = process_id;
cnl->highest_lbm_with_busy_blk = 0;
rel_crit(gv_cur_region);
if (!mu_truncate(truncate_percent))
mupip_exit(ERR_MUTRUNCFAIL);
grab_crit(gv_cur_region);
assert(cnl->trunc_pid == process_id);
cnl->trunc_pid = 0;
rel_crit(gv_cur_region);
if (mu_ctrlc_occurred || mu_ctrly_occurred)
{
gtm_putmsg_csa(CSA_ARG(NULL) VARLSTCNT(1) ERR_REORGCTRLY);
mupip_exit(ERR_MUNOFINISH);
}
}
# endif
mupip_exit(SS_NORMAL);
}
else
mupip_exit(SS_NORMAL);
}
Reference in New Issue View Git Blame Copy Permalink