in reply to Net::FTP to Mainframe Z/OS

Another thing to check is the LRECL of the z/OS dataset. Any record longer will be truncated to that length. However, it seems somewhat unlikely that the records are just one byte too long.

I'd try using ftp with the same data and compare results.


sas

Replies are listed 'Best First'.
Re^2: Net::FTP to Mainframe Z/OS
by jazzycat (Initiate) on Jun 10, 2008 at 18:03 UTC
    The LRECL is 80 - it is a member in a PDS. I think it has to do with incorrect CR LF translation. It truncates apparently randomly. For example a Line that is 3 char long and says RUN become RU after transfer.
[reply]
      LRECL may not be the only thing, you might want to check the Block size and record format (may not make a difference). I'm assuming you are issuing a SITE command to set the Record Length, Block Size, Record Format as well as Unit (not quite sure what this is or does). Also you might need to issue another SITE command for "trail" (not sure what this does exactly. This is based on some code I have to send files to a mainframe (not sure if it is a Z/OS or what - the code is based on something the mainframe guys gave me so I could FTP to them without having data being truncated).
[reply]
        TRAIL indicates to keep trailing blanks on fixed length records. SBSENDEOL can be CRLF, CR, LF, or NONE This SITE command sets the Single Byte end-of-line character sequence; if it is CRLF and you're not sending both then the lines would be truncated by a byte. If you can ftp to the mainframe, QUOTE HELP SITE should give you the SITE parameters you can use.
[reply]
        Thanks for this info it was helpful. No I am not issuing a SITE command and I cannot find any info on the format of such command, other than that it exists as a method in Net::FTP as site(ARGS) but I cannot find what should be in ARGS. Could you give me the examples of your code that you mentioned?
[reply]

In Section Seekers of Perl Wisdom