1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81
|
/****************************************************************
* *
* Copyright (c) 2001-2017 Fidelity National Information *
* Services, Inc. and/or its subsidiaries. All rights reserved. *
* *
* 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. *
* *
****************************************************************/
#include "mdef.h"
#include "gtm_iconv.h"
#include "io.h"
#include "iosp.h"
#include "iotimer.h"
#include "stringpool.h"
#include "op.h"
#include "mvalconv.h"
#include "ebc_xlat.h"
#include "gdsroot.h"
#include "gdskill.h"
#include "gdsbt.h"
#include "gtm_facility.h"
#include "fileinfo.h"
#include "gdsfhead.h"
#include "gdscc.h"
#include "filestruct.h"
#include "buddy_list.h" /* needed for tp.h */
#include "jnl.h"
#include "hashtab_int4.h" /* needed for tp.h */
#include "tp.h"
#include "send_msg.h"
#include "gtmmsg.h" /* for gtm_putmsg() prototype */
#include "change_reg.h"
#include "setterm.h"
#include "getzposition.h"
#include "min_max.h"
#ifdef DEBUG
#include "have_crit.h" /* for the TPNOTACID_CHECK macro */
#endif
#define TMP_BUF_LEN 1
GBLREF io_pair io_curr_device;
GBLREF io_desc *active_device;
GBLREF spdesc stringpool;
error_def(ERR_IONOTOPEN);
int op_rdone(mval *v, mval *timeout)
{
char *start_ptr,temp_buf[TMP_BUF_LEN];
int x;
int4 msec_timeout;
size_t insize, outsize, stat;
unsigned char *temp_buf_ptr;
DCL_THREADGBL_ACCESS;
SETUP_THREADGBL_ACCESS;
MV_FORCE_MSTIMEOUT(timeout, msec_timeout, READTIMESTR);
active_device = io_curr_device.in;
x = -1;
assert(SIZEOF(mint) == SIZEOF(x));
stat = (io_curr_device.in->disp_ptr->rdone)((mint *)&x, msec_timeout);
# if defined(KEEP_zOS_EBCDIC)
if (DEFAULT_CODE_SET != active_device->in_code_set)
{
insize = outsize = 1;
start_ptr = temp_buf;
temp_buf[0] = x;
temp_buf_ptr = (unsigned char *)temp_buf;
ICONVERT(active_device->input_conv_cd, &temp_buf_ptr, &insize, &temp_buf_ptr, &outsize); /* in-place conv */
x = start_ptr[0];
}
# endif
MV_FORCE_MVAL(v, x);
active_device = 0;
return ((NO_M_TIMEOUT != msec_timeout) ? stat : FALSE);
}
|