CSV file creation driving me nuts!

I swear, this time I am going to do something with the solution so I don't
loose it cause I know I have asked this exact question about a year or so
ago and I cannot for the life of me find the solution or the code from back
then.

Standard affair. Creating a CSV IFS file through Scott's IFS API wrapper. I
wrote a wrapper to make it easier to use. I swear it worked at one time. We
are on 6.1. I have garbage in the file both while looking at it in WRKLNK
and looking at it in RDi.

My code is all located at https://gist.github.com/8bf191a4c9d4456cad16. I
am positive it is CCSID issues. My job is at CCSID(37). The CCSID for the
file is always 819 no matter what I change. The code shown is basically
what I seen in a post with Pete and Scott a while back. Still no go. What
am I doing wrong?

--
Mike Wills
http://mikewills.me