The "bazillion data records" throws a wrench into that. I have a "uncsv
rexx" routine that does basically that record-by-record, but it seems
expensive.
/* Make a CSV format into a simple Field Separated string */
Arg breakchar .
If breakchar = '' Then breakchar = '05'x
Signal ON ERROR
Do Forever
'READTO INREC'
'CALLPIPE VAR INREC |',
'SPLIT |', /* remove extra blanks quickly */
'JOIN * ¤ ¤ |',
'SPLIT BEFORE STRING ¤,"¤ |',
'CHANGE FS " F3 ¤,¤ ¤,""¤ |', /* Change empty fields to "" */
'JOIN * |',
'CHANGE FS " F1 ¤,¤ ¤"",¤ |',
'SPLIT AT STRING ¤",¤ |',
'CHANGE 1.1 ¤"¤ ¤¤ |',
'CHANGE -1 ¤"¤ ¤¤ |',
'JOIN * ¤'||breakchar||'¤ |',
'*:'
End
Signal EXIT
ERROR:
If rc = 12 Then Signal EXIT
EXIT:
Exit rc*(rc\=12)
-- *James Vincent*
On Thu, Aug 20, 2015 at 10:55 AM, Rich Smrcina <[email protected]> wrote:
> Do a split at ," then join them back together.
>
