Convert ASCII file on mainframe to FB

When you FTP an ASCII file using Binary format to MVS mainframe
you get a VB file with the multiple ASCII records on the MVS record with
the last record continued on the next record. (Assuming the ASCII record
length is less than 32K, the MVS limit.). Does anyone have a routine to
read these ASCII files which has records delimited by x'0D0A' and write
out MVS sequential files with one ascii record per MVS record? No
ascii/ebcdic translation needed here. No 32K record limitation in this
case.