If you can get the original file with the NL to your mainframe with purely binary transfers there are a couple of things that can help. On a zVM CMS system I made a Rexx to do it like this: /*rexx*/ Parse arg fn ft fm . Address command /* splits on 0x15 */ 'PIPE <' fn ft fm '| DEBLOCK LINEEND | >' fn ft 'A'
On TSO starting from a dataset I used /* REXX COMMAND TO FIX UNSPLIT HFS FILES */ /* Roger Bolan May 18, 2010 */ Trace C ADDRESS tso PARSE ARG olddsn if olddsn = '?' then call explain stripdsn = Strip(olddsn,'B',"'") "OPUT '"||stripdsn||"' '/tmp/"||stripdsn||"'" "OGET '/tmp/"||stripdsn||"' '"||stripdsn||"'" "TEXT" "OSHELL rm /tmp/"||stripdsn return RC explain: say 'Use from ISPF 3.4' say 'Example format: %split / ' say 'use / to enter the quoted fully qualified name from ISPF 3.4' exit 0 Try that. Regards, --Roger On Tue, Jul 27, 2021, 4:02 PM Frank Swarbrick <[email protected]> wrote: > We have a vendor that is providing a file that is EBCDIC (IBM-1140) > encoded, but also includes an NL record/line terminator. The source system > is NOT a mainframe system. I'm trying to figure out how to FTP the file to > the mainframe and have it treat NL as, well, NL; i.e. a record terminator. > Binary mode (no SITE options) doesn't work because it stores the NL > characters. ASCII mode (no SITE options) doesn't work, I believe because > it still expects the CRLF delimiter. I tried specifying "SITE TYPE E" > (EBCDIC) and that also does not eliminate the NL delimiter. > > Any thoughts? We're seeing if the vendor can just not use a delimiter at > all, but no luck yet. > > Note: They can create it in UTF-8, but they are including the UTF-8 Byte > Order Mark (BOM). I am able to get z/OS to strip the BOM, but I have to > specify the transmission as being "multi-byte", so the destination has to > be VB. Which we can deal with, but we'd prefer FB as that is how we have > it from the old vendor. > > FYI, here are the 3 "SITE" commands mentioned in the note above: > encoding=mbcs > mbdataconn=(ibm-1140,utf-8) > UnicodeFileSystemBOM=never > > ---------------------------------------------------------------------- > For IBM-MAIN subscribe / signoff / archive access instructions, > send email to [email protected] with the message: INFO IBM-MAIN > ---------------------------------------------------------------------- For IBM-MAIN subscribe / signoff / archive access instructions, send email to [email protected] with the message: INFO IBM-MAIN
