Function IntToCobol

src/gpre/languages/fbrmclib.cpp:461–465

Store a C integer into a Cobol BINARY(n) (big-endian) field

// Store a C integer into a Cobol BINARY(n) (big-endian) field
static void IntToCobol(argument_entry *arg, const ISC_UINT64 i)
{
	if (arg->a_address)
		CvtIntToCobol(arg->a_address, i, (ISC_USHORT)arg->a_length);
}

// Store a C short integer into a Cobol BINARY(n) (big-endian) field
static void ShortToCobol(argument_entry *arg, const ISC_USHORT *i)