Hi,
Parameter 'lrecl' must be a multiple parameter 'blksize'. lrecl=105,
blksize=(105 or 210 etc)
look dynalloc()
http://www.ibm.com/support/knowledgecenter/en/SSLTBW_2.1.0/com.ibm.zos.v2r1.bpxbd00
/dynalloc.htm
--
Regards,
Yaroslav Kuzmin
Developer C/C++ ,z/OS , Linux
3 Zhukovskiy Street · Miass, Chelyabinsk region 456318 · Russia
Tel: +7.922.2.38.33.38
Email: ykuz...@rocketsoftware.com
Web: www.rocketsoftware.com
Исходное сообщение
От: "Cooper, Brandon"
Кому: perl-mvs@perl.org
Тема: Perl 5.22 mvswrite Segmentation Fault
Дата: Tue, 16 Aug 2016 20:30:03 +
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
Rocket Software, Inc. and subsidiaries ■ 77 Fourth Avenue, Waltham MA 02451 ■
+1 877.328.2932 ■ +1 781.577.4321
Unsubscribe From Commercial Email – unsubscr...@rocketsoftware.com
Manage Your Subscription Preferences -
http://info.rocketsoftware.com/GlobalSubscriptionManagementEmailFooter_SubscriptionCenter.html
Privacy Policy - http://www.rocketsoftware.com/company/legal/privacy-policy
This communication and any attachments may contain confidential information of
Rocket Software, Inc. All unauthorized use, disclosure or distribution is
prohibited. If you are not the intended recipient, please notify Rocket
Software immediately and destroy all copies of this communication. Thank you.