Hey guys,
I recently upgraded from Perl 5.00503 to 5.22.0. I am using the OS390::Stdio
(version 0.008) package to process z/OS datasets record by record. Previously,
I was able to open my output dataset as follows:
my $outfh = mvsopen("//'USERBTC.OUTPUT.FILE'","wb, lrecl=105") or die $!;
and write to it with:
mvswrite($outfh, $record, 105) or die $!;
However when using Perl 5.22.0, I am now getting an Abend S0C4-X'4' (Protection
Exception) error while using mvswrite(), unless I remove the lrecl=105
parameter from mvsopen().
However when I do this, mvsopen() creates a dataset with lrecl=80 and wraps
the 105 byte input record across two output records.
Does anybody know if keyword parameters are supported in mvsopen() for Perl
5.22.0, and if so how do I specify them?
Thanks for your help,
Brandon Cooper
Mainframe Admin | IT Operations
Texas Instruments
