/* Create the 8 bytes EBCDIC DCSS segment name from an ASCII name, incl. padding  */
static void dcss_mkname(char *ascii_name, char *ebcdic_name)
/* Create the 8 bytes EBCDIC DCSS segment name from an ASCII name, incl. padding  */
static void dcss_mkname(char *ascii_name, char *ebcdic_name)
{
	int i;
	for (i = 0; i < 8; i++) {
		if (ascii_name[i] == '\0')
			break;
		ebcdic_name[i] = toupper(ascii_name[i]);
	};
	for (; i < 8; i++)
		ebcdic_name[i] = ' ';
	ASCEBC(ebcdic_name, 8);
}