Reinstated upper-casing when passing to COBOL.

2015-09-27 14:00:49 -06:00 · 2015-09-27 14:00:49 -06:00 · 14c5d84fe7
parent b379cdbdee
commit 14c5d84fe7
1 changed files with 5 additions and 1 deletions
--- 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;
 }