perl - BPXBATCH - autoconvert not working

Hi,

trying to determine why running perl in BPXBATCH is producing ASCII output.

//PERLCHK EXEC PGM=BPXBATCH
//STDOUT DD SYSOUT=*
//STDERR DD SYSOUT=*
//STDPARM DD *
SH
echo "_BPXK_AUTOCVT " $_BPXK_AUTOCVT ;
echo "_CEE_RUNOPTS " $_CEE_RUNOPTS ;
echo "_TAG_REDIR_ERR" $_TAG_REDIR_ERR ;
echo "_TAG_REDIR_IN " $_TAG_REDIR_IN ;
echo "_TAG_REDIR_OUT" $_TAG_REDIR_OUT ;
echo "perl -v" ;
perl -v
/*

[‎3/‎23/‎2022 1:26 AM]
********************************* TOP OF DATA ********************
_BPXK_AUTOCVT ON
_CEE_RUNOPTS ALL31(ON),FILETAG(AUTOCVT,AUTOTAG),POSIX(ON)
_TAG_REDIR_ERR txt
_TAG_REDIR_IN txt
_TAG_REDIR_OUT txt
perl -v
% ?> ?> % ? ?
******************************** BOTTOM OF DATA ******************

I am expecting to see

perl -v

This is perl 5, version 32, subversion 1 (v5.32.1) built for os390
(with 1 registered patch, see perl -V for more detail)

Copyright 1987-2021, Larry Wall
MVS (OS390) port by Mortice Kern Systems, 1997-1999

Perl may be copied only under the terms of either the Artistic License or the
GNU General Public License, which may be found in the Perl 5 source kit.

Complete documentation for Perl, including FAQ lists, should be found on
this system using "man perl" or "perldoc perl". If you have access to the
Internet, point your browser at http://www.perl.org/, the Perl Home Page.


Any assistance greatly appreciated.

Regards
Bruce Hewson

 

------------------------------
Bruce Hewson
Infra Tech Lead Analyst
Citigroup Singapore Ltd
Singapore SG
------------------------------

Hi Bruce,

This is a known issue, and we already have a new build of perl which fixes it. It's in QA currently and will be available soon.

Thanks,

Alex

------------------------------
Alexander Klochkov
QA
Rocket Internal - All Brands
Vilnius LT
------------------------------

Hi Bruce,

This is a known issue, and we already have a new build of perl which fixes it. It's in QA currently and will be available soon.

Thanks,

Alex

------------------------------
Alexander Klochkov
QA
Rocket Internal - All Brands
Vilnius LT
------------------------------

Hi Alex,

how about some other products?

//*
//PERLCHK EXEC PGM=BPXBATCH
//STDOUT DD SYSOUT=*
//STDERR DD SYSOUT=*
//STDPARM DD *
SH
echo "_BPXK_AUTOCVT " $_BPXK_AUTOCVT ;
echo "_CEE_RUNOPTS " $_CEE_RUNOPTS ;
echo "_TAG_REDIR_ERR" $_TAG_REDIR_ERR ;
echo "_TAG_REDIR_IN " $_TAG_REDIR_IN ;
echo "_TAG_REDIR_OUT" $_TAG_REDIR_OUT ;
echo "perl -v" ;
perl -v ;
echo "bash --version" ;
bash --version ;
echo "bzip2 --version" ;
bzip2 --version ;
echo "curl --version" ;
curl --version ;
echo "gettext --version" ;
gettext --version ;
echo "git --version" ;
git --version ;
echo "gzip --version" ;
gzip --version ;
echo "make --version" ;
make --version ;
echo "openssl version" ;
openssl version ;
echo "perl --version" ;
perl --version ;
echo "php --version" ;
php --version ;
echo "python --version" ;
python --version

/*

_BPXK_AUTOCVT ON
_CEE_RUNOPTS ALL31(ON),POSIX(ON)
_TAG_REDIR_ERR txt
_TAG_REDIR_IN txt
_TAG_REDIR_OUT txt
perl -v
èÇÑË ÑË øÁÊ% ÎÁÊËÑ?> ËÍÂÎÁÊËÑ?> Î ÂÍÑ%È Ã?Ê ?Ë ÏÑÈÇ ÊÁÅÑËÈÁÊÁÀ ø/ÈÄÇ ËÁÁ øÁÊ%
GNU bash, version 5.1.0(1)-release (s390x-ibm-zos-gnu)
Copyright (C) 2020 Free Software Foundation, Inc.
License GPLv3+: GNU GPL version 3 or later <http://gnu.org/licenses/gpl.html>

This is free software; you are free to change and redistribute it.
There is NO WARRANTY, to the extent permitted by law.
bzip2 --version
â!Ç Êá &° curl --version
ÄÍÊ% Ñ ÑÂ_ ?øÁ>ÁÀÑÈÑ?> %ÑÂÄÍÊ% |øÁ>ëë< , :%Ñ %ÑÂËËÇ ¬àáî >ÅÇÈÈø
ÅÁÈÈÁÌÈ å+í ÅÁÈÈÁÌÈ ÊÍ>ÈÑ_Á ä?ø`ÊÑÅÇÈ ä ãÊÁÁ ë?ÃÈÏ/ÊÁ ã?Í>À/ÈÑ?> ñ>Ä
ÅÑÈ ÎÁÊËÑ?> gzip --version
gzip 1.9-edc
build 4, Apr 6 2020
zlib version: 1.2.11-zEDC, ZLIB_VERSION: 1.2.11
z/OS libtag version: 1.02
Copyright (C) 2015, 2020 Rocket Software
Copyright (C) 2017 Free Software Foundation, Inc.
Copyright (C) 1993 Jean-loup Gailly.
This is free software. You may redistribute copies of it under the terms of
the GNU General Public License <https://www.gnu.org/licenses/gpl.html>.
There is NO WARRANTY, to the extent permitted by law.

Written by Jean-loup Gailly.
make --version
å+í (/,Á âÍÑ%È Ã?Ê Ñ ÑÂ_ ?øÁ>ÁÀÑÈÑ?> ä?ø`ÊÑÅÇÈ ä ãÊÁÁ ë?ÃÈÏ/ÊÁ ã?Í>À/ÈÑ?> ñ>Ä <ÑÄÁ
|øÁ>ëë< , (/Ê perl --version
èÇÑË ÑË øÁÊ% ÎÁÊËÑ?> ËÍÂÎÁÊËÑ?> Î ÂÍÑ%È Ã?Ê ?Ë ÏÑÈÇ ÊÁÅÑËÈÁÊÁÀ ø/ÈÄÇ ËÁÁ øÁÊ%
&ç& Ä%Ñ ÂÍÑ%È ¢Í% +èë ä?ø`ÊÑÅÇÈ Ä èÇÁ &ç& åÊ?Íø !Á>À á>ÅÑ>Á
&`ÈÇ?> ÂÍÑ%À  øÊ $ä)
******************************************************************** Bottom of Data *******************

------------------------------
Bruce Hewson
Infra Tech Lead Analyst
Citigroup Singapore Ltd
Singapore SG
------------------------------

Hi Alex,

how about some other products?

//*
//PERLCHK EXEC PGM=BPXBATCH
//STDOUT DD SYSOUT=*
//STDERR DD SYSOUT=*
//STDPARM DD *
SH
echo "_BPXK_AUTOCVT " $_BPXK_AUTOCVT ;
echo "_CEE_RUNOPTS " $_CEE_RUNOPTS ;
echo "_TAG_REDIR_ERR" $_TAG_REDIR_ERR ;
echo "_TAG_REDIR_IN " $_TAG_REDIR_IN ;
echo "_TAG_REDIR_OUT" $_TAG_REDIR_OUT ;
echo "perl -v" ;
perl -v ;
echo "bash --version" ;
bash --version ;
echo "bzip2 --version" ;
bzip2 --version ;
echo "curl --version" ;
curl --version ;
echo "gettext --version" ;
gettext --version ;
echo "git --version" ;
git --version ;
echo "gzip --version" ;
gzip --version ;
echo "make --version" ;
make --version ;
echo "openssl version" ;
openssl version ;
echo "perl --version" ;
perl --version ;
echo "php --version" ;
php --version ;
echo "python --version" ;
python --version

/*

_BPXK_AUTOCVT ON
_CEE_RUNOPTS ALL31(ON),POSIX(ON)
_TAG_REDIR_ERR txt
_TAG_REDIR_IN txt
_TAG_REDIR_OUT txt
perl -v
èÇÑË ÑË øÁÊ% ÎÁÊËÑ?> ËÍÂÎÁÊËÑ?> Î ÂÍÑ%È Ã?Ê ?Ë ÏÑÈÇ ÊÁÅÑËÈÁÊÁÀ ø/ÈÄÇ ËÁÁ øÁÊ%
GNU bash, version 5.1.0(1)-release (s390x-ibm-zos-gnu)
Copyright (C) 2020 Free Software Foundation, Inc.
License GPLv3+: GNU GPL version 3 or later <http://gnu.org/licenses/gpl.html>

This is free software; you are free to change and redistribute it.
There is NO WARRANTY, to the extent permitted by law.
bzip2 --version
â!Ç Êá &° curl --version
ÄÍÊ% Ñ ÑÂ_ ?øÁ>ÁÀÑÈÑ?> %ÑÂÄÍÊ% |øÁ>ëë< , :%Ñ %ÑÂËËÇ ¬àáî >ÅÇÈÈø
ÅÁÈÈÁÌÈ å+í ÅÁÈÈÁÌÈ ÊÍ>ÈÑ_Á ä?ø`ÊÑÅÇÈ ä ãÊÁÁ ë?ÃÈÏ/ÊÁ ã?Í>À/ÈÑ?> ñ>Ä
ÅÑÈ ÎÁÊËÑ?> gzip --version
gzip 1.9-edc
build 4, Apr 6 2020
zlib version: 1.2.11-zEDC, ZLIB_VERSION: 1.2.11
z/OS libtag version: 1.02
Copyright (C) 2015, 2020 Rocket Software
Copyright (C) 2017 Free Software Foundation, Inc.
Copyright (C) 1993 Jean-loup Gailly.
This is free software. You may redistribute copies of it under the terms of
the GNU General Public License <https://www.gnu.org/licenses/gpl.html>.
There is NO WARRANTY, to the extent permitted by law.

Written by Jean-loup Gailly.
make --version
å+í (/,Á âÍÑ%È Ã?Ê Ñ ÑÂ_ ?øÁ>ÁÀÑÈÑ?> ä?ø`ÊÑÅÇÈ ä ãÊÁÁ ë?ÃÈÏ/ÊÁ ã?Í>À/ÈÑ?> ñ>Ä <ÑÄÁ
|øÁ>ëë< , (/Ê perl --version
èÇÑË ÑË øÁÊ% ÎÁÊËÑ?> ËÍÂÎÁÊËÑ?> Î ÂÍÑ%È Ã?Ê ?Ë ÏÑÈÇ ÊÁÅÑËÈÁÊÁÀ ø/ÈÄÇ ËÁÁ øÁÊ%
&ç& Ä%Ñ ÂÍÑ%È ¢Í% +èë ä?ø`ÊÑÅÇÈ Ä èÇÁ &ç& åÊ?Íø !Á>À á>ÅÑ>Á
&`ÈÇ?> ÂÍÑ%À  øÊ $ä)
******************************************************************** Bottom of Data *******************

------------------------------
Bruce Hewson
Infra Tech Lead Analyst
Citigroup Singapore Ltd
Singapore SG
------------------------------

Hi Bruce,

I did some research about this case, and here are the results:
1. bzip2 works incorrectly with BPXBATCH in any case, whatever the login shell bash or sh, it's also breaking the output of the next programs (so comment out bzip2 call in your program and try again). Internal ticket created for bzip2
2. gettext has incorrect output in case if login shell is sh, in case if login shell is bash output is correct. Internal ticket created for gettext

Also want to inform you that the latest build of perl (5.32.1-9) is available in https://condaserver.rocketsoftware.com/channels/zoss-appdev channel. This fixes the original issue of the thread.

Thanks,
Alexander

------------------------------
Alexander Klochkov
QA
Rocket Internal - All Brands
Vilnius LT
------------------------------