Function StringToCobol

src/gpre/languages/fbrmclib.cpp:475–484

Store a C string into a COBOL PIC X field

// Store a C string into a COBOL PIC X field
static void StringToCobol(argument_entry *arg, const ISC_UCHAR *s)
{
	if (arg->a_address)
	{
		memset(arg->a_address, ' ', arg->a_length);
		memmove(arg->a_address,
				s,
				strlen((char *)s) > arg->a_length ? arg->a_length : strlen((char *)s));
	}
}

// Store a status vector into a Cobol array of BINARY(4) fields
static void StatusToCobol(argument_entry *arg, const ISC_STATUS *stat)