Smoke [blead] v5.25.4-5-g92d73bf PASS os/390 25.00 (2964/)

2016-08-22 Thread Yaroslav Kuzmin

Automated smoke report for branch blead 5.25.5 patch 
92d73bfab7792718f9ad5c5dc54013176ed9c76b
v5.25.4-5-g92d73bf
RS12: 2964 (2964/)
onos/390 - 25.00
using c99 version
smoketime 7 hours 11 minutes (average 3 hours 35 minutes)

Summary: PASS

O = OK  F = Failure(s), extended report at the bottom
X = Failure(s) under TEST but not under harness
? = still running or test results not (yet) available
Build failures during:   - = unknown or N/A
c = Configure, m = make, M = make (after miniperl), t = make test-prep

v5.25.4-5-g92d73bf  Configuration (common) none
--- -
O O O O -Dusedl
>
> >
> > >
> > > +- PERLIO = perlio -DDEBUGGING
> > +--- PERLIO = stdio  -DDEBUGGING
> +- PERLIO = perlio
+--- PERLIO = stdio


Locally applied patches:
SMOKE92d73bfab7792718f9ad5c5dc54013176ed9c76b

Tests skipped on user request:
# One test name on a line
Compiler messages(os390):



--
Report by Test::Smoke v1.6 running on perl 5.22.0
(Reporter v0.052 / Smoker v0.045)

--

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

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.


Re: Perl 5.22 mvswrite Segmentation Fault

2016-08-22 Thread Yaroslav Kuzmin
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.