Reinstated upper-casing when passing to COBOL.
This commit is contained in:
parent
b379cdbdee
commit
14c5d84fe7
1 changed files with 5 additions and 1 deletions
|
@ -48,7 +48,11 @@ void channel_from_cobol(void)
|
|||
|
||||
void channel_to_cobol(void)
|
||||
{
|
||||
memset(msg_body + strlen(msg_body), ' ', msg_body_len - strlen(msg_body));
|
||||
char *c;
|
||||
for(c = msg_body; *c; c++);
|
||||
*c = toupper(*c);
|
||||
}
|
||||
memset(c, ' ', msg_body_len - strlen(msg_body));
|
||||
|
||||
return;
|
||||
}
|
||||
|
|
Loading…
Reference in a new issue