Re: Smoke [ebcdic] v5.25.2-98-gd4ef666 FAIL(X) os/390 24.00 (2964/)

[Karl Williamson]

On 07/11/2016 04:14 AM, Yaroslav Kuzmin wrote:

В Пт., 08/07/2016 в 22:33 -0600, Karl Williamson пишет:

On 07/06/2016 04:11 AM, Yaroslav Kuzmin wrote:



  Smoke logs available at 
https://drive.google.com/file/d/0B5PTttxwo7qAcmxEalpCcjRFS1U

Automated smoke report for branch ebcdic 5.25.3 patch 
d4ef66612acd0e1ee866affedf36e842aeae5cb9
v5.25.2-98-gd4ef666
RS12: 2964 (2964/)
 onos/390 - 24.00
 using c99 version
 smoketime 7 hours 10 minutes (average 3 hours 35 minutes)

Summary: FAIL(X)

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.2-98-gd4ef666  Configuration (common) none
--- -
X X X X -Dusedl









+- PERLIO = perlio -DDEBUGGING

+--- PERLIO = stdio  -DDEBUGGING

+- PERLIO = perlio

+--- PERLIO = stdio


Locally applied patches:
 SMOKEd4ef66612acd0e1ee866affedf36e842aeae5cb9

Tests skipped on user request:
 # One test name on a line
Failures: (common-args) none
[stdio/perlio] -Dusedl
[stdio/perlio] -DDEBUGGING -Dusedl
Inconsistent test results (between TEST and harness):
 ../lib/locale.t.

FAILED at test 418

As before, I need a rerun of the test that you did before:

 cd t
 PERL_DEBUG_LOCALE_INIT=1 PERL_DEBUG_FULL_TEST=2 myperl -T -DLv
../lib/locale.t > locale.log 2>&1

and send me the contents of locale.log


Log available at https://drive.google.com/file/d/0B5PTttxwo7qAaFA3R3NLSHFjUTg


Thanks.  I believe this is now fixed in blead.






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/GlobalSubscriptionManageme
ntEmailFooter_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.



--

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: Reading Datasets Record by Record

[David Griffiths1]

Hi, does using mode "rb" instead of "r" help?

Cheers,

Dave Griffiths
IBM Operational Decision Manager
z/OS Developer
IBM United Kingdom Limited, Hursley Park, Winchester, SO21 2JN, UK
Tel: +44 1962 816478 Mobile: 07590 195531
dgr...@uk.ibm.com
 



From:   "Cooper, Brandon" 
To: "perl-mvs@perl.org" 
Date:   16/07/2016 00:54
Subject:Reading Datasets Record by Record



Hey guys,
 
I was hoping this group could help me with a problem I’m having while 
reading and writing z/OS datasets in Perl. The basic issue is that I’m 
reading fixed length records that contain both EBCDIC fields and binary 
fields. Sometimes the binary fields happen to contain  X’0D’, the EBCDIC 
carriage return. This causes a record to be split in two while being read 
or written. So I would like to process the dataset “record by record” 
instead of “line by line”. Here is what I am trying in the code:
 
Open the input and output datasets:

$infh  = 
mvsopen("//'USERBTC.INFILE'","r,lrecl=105,recfm=FB,blksize=27930") or die 
$|; 
$outfh = 
mvsopen("//'USERBTC.OUTFILE'","w,lrecl=105,recfm=FB,blksize=27930") or die 
$|;
 
 
Read the record into $record variable
-
$recordsize = 106 # lrecl + 1 to account for trailing CR
read($infh, $record, $recordsize); # using 
read() instead of <$infh> to avoid stopping at incidental CR’s in binary 
fields
 
 
Write the record back to output file:
--- 
mvswrite($outfh,$record,$recordsize);  # write back 
including trailing CR
 
 
I was able to get the records that contain x’0D’ read in as a whole by 
using read() in order to read in 106 bytes at a time, regardless of what 
the bytes are. 
But I am still having the issue of splitting 1 record into 2 when writing 
out. And even worse, part of my data is missing in the output because it 
is being interpreted as a CR.
Here is an example of an input and output dataset with this issue:
 
Input:
+1+2+3+4+5+6+7+8+9+0+
AAAC.DB39.IT40H2.LOAD1996156 2014100 2014100 
000 5 N 1 ...z  MD010703
4CCFF4CEFFCF4DDCCFFF4FFF4FFF4FFF4F4D4F4000A44DCFF
1113B4239B934082B36141996156020141000201410005050190001D044010703
 
 
Output (split in two):
+1+2+3+4+5+6+7+8+9+0+
AAAC.DB39.IT40H2.LOAD1996156 2014100 2014100 
000 5 N 1 ...z ...
4CCFF4CEFFCF4DDCCFFF4FFF4FFF4FFF4F4D4F4000A400044
1113B4239B934082B3614199615602014100020141000505019000100
 
MD010703
4DCFF
044010703
 
 
Does anyone know how process records 1 record at a time, even if they 
contain carriage returns?
Thanks for any help anyone may be able to give, let me know if you need 
any more information.
 
-Brandon T. Cooper