From 14c5d84fe7101e0a8887c4f5390e4a94687a8394 Mon Sep 17 00:00:00 2001 From: Quinn Evans Date: Sun, 27 Sep 2015 14:00:49 -0600 Subject: [PATCH] Reinstated upper-casing when passing to COBOL. --- channel.c | 6 +++++- 1 file changed, 5 insertions(+), 1 deletion(-) diff --git a/channel.c b/channel.c index bd9a598..43e6f1d 100644 --- a/channel.c +++ b/channel.c @@ -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; }