From 9b32e6e3f27f7c620d415c8d9338a790c1d759dc Mon Sep 17 00:00:00 2001
From: Allan Bowe <allnbwe@gmail.com>
Date: Mon, 27 Sep 2021 20:12:48 +0100
Subject: [PATCH] fix: removing nonprintables from cards data.  Closes #80

---
 all.sas              | 7 ++++++-
 base/mp_ds2cards.sas | 7 ++++++-
 2 files changed, 12 insertions(+), 2 deletions(-)

diff --git a/all.sas b/all.sas
index d382c14..837cd95 100644
--- a/all.sas
+++ b/all.sas
@@ -3474,7 +3474,12 @@ data datalines_2;
     */
   else if upcase(format)=:'$HEX' then
     dataline=cats('put(trim(',name,'),',format,')');
-  else dataline=name;
+  /**
+    * There is no easy way to store line breaks in a cards file.
+    * To discuss this, use: https://github.com/sasjs/core/issues/80
+    * Removing all nonprintables with kw (keep writeable)
+    */
+  else dataline=cats('compress(',name,', ,"kw")');
 run;
 
 proc sql noprint;
diff --git a/base/mp_ds2cards.sas b/base/mp_ds2cards.sas
index cdfe72f..e50d2b5 100644
--- a/base/mp_ds2cards.sas
+++ b/base/mp_ds2cards.sas
@@ -161,7 +161,12 @@ data datalines_2;
     */
   else if upcase(format)=:'$HEX' then
     dataline=cats('put(trim(',name,'),',format,')');
-  else dataline=name;
+  /**
+    * There is no easy way to store line breaks in a cards file.
+    * To discuss this, use: https://github.com/sasjs/core/issues/80
+    * Removing all nonprintables with kw (keep writeable)
+    */
+  else dataline=cats('compress(',name,', ,"kw")');
 run;
 
 proc sql noprint;