Re: Batch SFTP without client keys or USS files?

2020-10-17 Thread Srivastava, Rajesh K
I think "COZBATCH" is part of free COZ SFTP product download. 

Regards,

Rajesh

-Original Message- 
From: IBM Mainframe Discussion List  On Behalf Of 
Wendell Lovewell
Sent: Friday, October 16, 2020 8:15 PM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: Re: Batch SFTP without client keys or USS files?

Thank you Rajesh, but the job will be running on z/OS systems.  I cannot 
require any additional software like COZBATCH to be installed.

Best Regards,
Wendell

--
For IBM-MAIN subscribe / signoff / archive access instructions, send email to 
lists...@listserv.ua.edu with the message: INFO IBM-MAIN

The information contained in this e-mail, and any attachment, is confidential 
and is intended solely for the use of the intended recipient. Access, copying 
or re-use of the e-mail or any attachment, or any information contained 
therein, by any other person is not authorized. If you are not the intended 
recipient please return the e-mail to the sender and delete it from your 
computer. Although we attempt to sweep e-mail and attachments for viruses, we 
do not guarantee that either are virus-free and accept no liability for any 
damage sustained as a result of viruses. 

Please refer to https://disclaimer.bnymellon.com/eu.htm for certain disclosures 
relating to European legal entities. We take our data protection and privacy 
responsibilities seriously and our privacy notice explains how we collect, use 
and share personal information in the course of our business activities. It can 
be accessed at the privacy section of  www.bnymellon.com.


--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN


Re: Batch SFTP without client keys or USS files?

2020-10-16 Thread Srivastava, Rajesh K
Dovetail work well for me.
A sample below:

//add jobcard
//SFTPPUT EXEC PROC=SFTPPROC
//SFTPIN DD *
host=sftp.ecurep.ibm.com
pwdsn="(IBMPASS)"
user=""
. $script_dir/sftp_connect.sh < On Behalf Of 
Wendell Lovewell
Sent: Friday, October 16, 2020 5:10 PM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: Re: Batch SFTP without client keys or USS files?

Thanks Kurt!  I did see Ed's presentation, but at the time it was a solution 
for which I didn't have a problem, so it stayed in the bit bucket.

Unfortunately, even with your and Ed's expert help, I'm still stumped. I just 
don't seem to be able to get the "SSH_ASKPASS" to work, even after reading what 
literally seems to be everything on the Internet about it.  (My 2 hour job's 
gone 2 days now...)

Just a reminder: I'm going from a z/OS sftp client to a non-z/os ftp server 
where I can't store user keys.  StrictHostKeyChecking=no is saving the non-z/OS 
server's keys in ~/.ssh/known_hosts, but I need to specify a userid/pwd to 
access the server. 

What I have is:

// EXPORT SYMLIST=(*)
// SET FROM=USER.DFDSS.XMI
// SET TO=CUS12345.ESTFILE
//*
//SFTP EXEC PGM=BPXBATCH
//STDENV   DD *
SSH_ASKPASS=/tmp/sftp.pw.sh
DISPLAY=DISPLAY
//*
//STDPARM  DD *,SYMBOLS=JCLONLY
SH cd /tmp;
echo cp -Bv "//''" /tmp/
cp -Bv "//''" /tmp/

echo "echo 'ftppwd'"   > sftp.pw.sh;
chmod 700 sftp.pw.sh;

echo "cd /FTPDir"> sftp.cmds;
echo "put /tmp/ "  >> sftp.cmds;
echo "quit"   >> sftp.cmds;
chmod 600 sftp.cmds;

echo '';
echo '-sftp.cmds contents:';
cat sftp.cmds;
echo '';
echo '-sftp.pw.sh contents:';
cat sftp.pw.sh;
echo '';

/bin/sftp -b sftp.cmds
-oBatchMode=no
-oPort=
-oPasswordAuthentication=yes
-oPreferredAuthentications=password
-oStrictHostKeyChecking=no
-oHostbasedAuthentication=no
-oCheckHostIP=no
-oPubkeyAuthentication=no
-oLogLevel=DEBUG2
-oUser=ftpuser
ftp.ftpserver.com;

rm sftp.pw.sh;
rm sftp.cmds;
rm 
//*
//STDOUT   DD SYSOUT=M
//STDERR   DD SYSOUT=M
//*

Maybe my STDENV isn't getting read, but I can't prove it.  I'm getting:
FOTS1373 ftpu...@ftp.ftpserver.com: Permission denied 
(publickey,keyboard-interactive,password). 

Here's the tail of my output w/DEBUG1:
debug1: Host '[ftp.ftpserver.com]:' is known and matches the RSA host key.
debug1: Found key in /.ssh/known_hosts:2
debug1: cipher_init: aes128-ctr from source CPACF, used in non-FIPS mode
debug1: rekey after 4294967296 blocks
debug1: SSH2_MSG_NEWKEYS sent
debug1: expecting SSH2_MSG_NEWKEYS
debug1: SSH2_MSG_NEWKEYS received
debug1: cipher_init: aes128-ctr from source CPACF, used in non-FIPS mode
debug1: rekey after 4294967296 blocks
debug1: SSH2_MSG_SERVICE_ACCEPT received
debug1: Authentications that can continue: 
publickey,keyboard-interactive,password
debug1: No more authentication methods to try.
FOTS1373 ftpu...@ftp.ftpserver.com: Permission denied 
(publickey,keyboard-interactive,password).
debug1: zsshSmfSetConnSmfStatus: SMF status is 0 Connection closed.
FOTS0841 Connection closed

Here's the head, showing the contents of my sftp.pw.sh and sftp.cmds files:

cp -Bv //'USER.DFDSS.XMI' /tmp/CUS12345.ESTFILE USER.DFDSS.XMI -> 
/tmp/CUS12345.ESTFILE: binary

-sftp.cmds contents:
cd /FTPDir
put /tmp/CUS12345.ESTFILE CUS12345.ESTFILE quit

-sftp.pw.sh contents:
echo 'ftppwd'

FSUM1012 The initial working directory was not specified.
FSUM1006 A shell was not specified. Processing continues using the default 
shell name.
stty: !FSUMB045 failed to get termios attributes: EDC5134I Function not 
implemented.
debug1: Reading configuration data /etc/ssh/ssh_config
debug1: zsshSmfSetConnSmfStatus: SMF status is 0
debug2: resolving "ftp.ftpserver.com" port 
debug2: ssh_connect_direct: needpriv 0
debug1: Connecting to ftp.ftpserver.com [192.208.58.102] port .
debug1: Connection established.
...

My /etc/ssh/ssh_config only has an entry for Ciphers and MACS - I think that's 
what IBM ships.  I don't have my own ~/.ssh/ssh_config.

Anyone have any ideas?  

Thanks again,
Wendell

--
For IBM-MAIN subscribe / signoff / archive access instructions, send email to 
lists...@listserv.ua.edu with the message: INFO IBM-MAIN

The information contained in this e-mail, and any attachment, is confidential 
and is intended solely for the use of the intended recipient. Access, copying 
or re-use of the e-mail or any attachment, or any information contained 
therein, by any other person is not authorized. If you are not the intended 
recipient please return the e-mail to the sender and delete it from your 
computer. Although we attempt to sweep e-mail and attachments for 

CLASS parm for EXEC statement?

2019-08-26 Thread K
Dear all,

I am running JES2 (z/OS 2.2) in my parallel sysplex environment. Is there any 
utility-trick so to submit a job in SYSA (using job CLASS=A) but a stepXY in 
this job to be executed in SYSB? I would like to prevent from submitting a 
separate job to SYSB (jobclass=B) including stepXY. As far as I know there is a 
limitation in job class so all steps to be executed in the same system.

kind regards
Konstantinos Zafiropoulos

--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN


Re: Where did IBM hide TASID?

2018-08-02 Thread Srivastava, Rajesh K
http://www-01.ibm.com/support/docview.wss?uid=swg24009131


-Original Message-
From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On Behalf 
Of Pinnacle
Sent: Thursday, August 02, 2018 11:42 AM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: Where did IBM hide TASID?

While IBM supposably restored all their web links, the ones to TASID are 
still broken.  Anybody know where IBM hid TASID?

Regards,
Tom Conley

-- 
  


--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN

The information contained in this e-mail, and any attachment, is confidential 
and is intended solely for the use of the intended recipient. Access, copying 
or re-use of the e-mail or any attachment, or any information contained 
therein, by any other person is not authorized. If you are not the intended 
recipient please return the e-mail to the sender and delete it from your 
computer. Although we attempt to sweep e-mail and attachments for viruses, we 
do not guarantee that either are virus-free and accept no liability for any 
damage sustained as a result of viruses. 

Please refer to https://disclaimer.bnymellon.com/eu.htm for certain disclosures 
relating to European legal entities. We take our data protection and privacy 
responsibilities seriously and our privacy notice explains how we collect, use 
and share personal information in the course of our business activities. It can 
be accessed at the privacy section of  www.bnymellon.com.


--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN


Question for COBOL users

2018-02-10 Thread Larry K. Slaten

Mr. Tom Ross,

Yes, we use the OPTFILE compiler option in the PARM= parameter 
exclusively.  Via JCL SET statements we establish the PDS and member 
name to use for the DD SYSOPTF file.  This allows us to point to 
different members for different COBOL compile types (i.e. batch, CICS, 
test compiles, production compiles, CA-Intertest, different ISP vendors, 
etc.). Plus you still have the PROCESS statement inside each source if 
it deviates from the norm.  It all seems to work quite well.  And, it is 
a lot easier to manage via PDS and member than on the PARM= parameter.


--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN


simple rexx sort

2017-09-20 Thread Larry K. Slaten
Here are a number of variations.  I am personally fond of the Heap Sort, 
it's not the fastest but it is never the slowest.


/* REXX */

   HSORTA: Procedure Expose A.

/* REXX function
   Invoke as: HSORTA(occurs)
   Heapsort by J. W. J. Williams is a in place sorting
   algorithm whose worst-case running time is O(N*lgN) on
   an input vector.

   Given an vector A. of n elements the result of sorting
   the vector in place is to arrange elements of A. so that
   A.1<=A.2<=...<=A.n

   --- */

   Parse ARG occurs;

   Do i = occurs % 2 To 1 By -1;
 x = SIFT(i,occurs);
   End;

   Do i = occurs To 2 By -1;
 Parse VALUE A.1 A.i With A.i A.1; /*swap places*/
 x = SIFT(1,i-1);
   End;

   Return 0;

   SIFT: Procedure Expose A.

   Parse ARG lpt,rpt;

   i = lpt;
   W = A.i;
   j = 2 * i;
   jp1 = j + 1;

   If j < rpt Then;
 If A.j < A.jp1 Then;
   j = jp1;

   Do While j <= rpt;
 If W >= A.j Then;
   Leave;
 A.i = A.j;
 i = j;
 j = 2 * i;
 jp1 = j + 1;
 If j < rpt Then;
   If A.j < A.jp1 Then;
 j = jp1;
   End;

   A.i = W;

   Return 0;

/* REXX */

   QSORTA: Procedure Expose A.

/* REXX function
   Invoke as: QSORTA(occurs)
   Quicksort by C. A. R. Hoare is a in place sorting
   algorithm whose worst-case running time is O(N**2);
   its expected running time is O(N*lgN) on an input
   vector. Sophisticated iterative version.

   Given an vector A. of n elements the result of sorting
   the vector in place is to arrange elements of A. so that
   A.1<=A.2<=...<=A.n

   --- */

   Parse ARG occurs;

   s = 1;
   StackL.1 = 1;
   StackR.1 = occurs;
   Do Until S = 0;
 lpt = StackL.s;
 rpt = StackR.s;
 s = s - 1;
 Do Until lpt >= rpt;
   i = lpt;
   j = rpt;
   p = (lpt + rpt) % 2;
   If A.lpt > A.p Then;
 Parse VALUE A.lpt A.p With A.p A.lpt;   /*swap*/
   If A.lpt > A.rpt Then;
 Parse VALUE A.lpt A.rpt With A.rpt A.lpt;/*swap*/
   if A.p > A.rpt Then;
 Parse VALUE A.p A.rpt With A.rpt A.p;   /*swap*/
   X = A.p;
   Do Until i > j;
 Do i = i While A.i < X;   /*ascending*/
 End;
 Do j = j By -1 While X < A.j; /*ascending*/
 End;
/*   Do i = i While A.I > X;   /*decending*/
 End;
 Do j = j BY -1 While X > A.J; /*decending*/
 End;  */
 If i <= j Then;
   Do;
 Parse VALUE A.i A.j With A.j A.i;   /*swap*/
 i = i + 1;
 j = j - 1;
   End;
   End;
   If j - lpt < rpt - i Then;
 Do;
   If i < rpt Then;
 Do;
   s = s + 1;
   StackL.s = i;
   StackR.s = rpt;
 End;
   rpt = j;
 End;
   Else;
 Do;
   If lpt < j Then;
 Do;
   s = s + 1;
   StackL.s = lpt;
   StackR.s = j;
 End;
   lpt = i;
 End;
 End; /* until lpt >= rpt */
   End; /* until s = 0 */

   Return 0;

/* REXX */

   QSORTD: Procedure Expose A.

/* REXX function
   Invoke as: QSORTD(occurs)
   Quicksort by C. A. R. Hoare is a in place sorting
   algorithm whose worst-case running time is O(N**2);
   its expected running time is O(N*lgN) on an input
   vector. Sophisticated iterative version.

   Given an vector A. of n elements the result of sorting
   the vector in place is to arrange elements of A. so that
   A.1<=A.2<=...<=A.n

   --- */

   Parse ARG occurs;

   s = 1;
   StackL.1 = 1;
   StackR.1 = occurs;
   Do Until S = 0;
 lpt = StackL.s;
 rpt = StackR.s;
 s = s - 1;
 Do Until lpt >= rpt;
   i = lpt;
   j = rpt;
   p = (lpt + rpt) % 2;
   If A.lpt > A.p Then;
 Parse VALUE A.lpt A.p With A.p A.lpt;   /*swap*/
   If A.lpt > A.rpt Then;
 Parse VALUE A.lpt A.rpt With A.rpt A.lpt;/*swap*/
   if A.p > A.rpt Then;
 Parse VALUE A.p A.rpt With A.rpt A.p;   /*swap*/
   X = A.p;
   Do Until i > j;
/*   Do i = i While A.i < X;   /*ascending*/
 End;
 Do j = j By -1 While X < A.j; /*ascending*/
 End;   */
 Do i = i While A.i > X;   /*decending*/
 End;
 Do j = j By -1 While X > A.j; /*decending*/
 End;
 If i <= j Then;
   Do;
 Parse VALUE A.i A.j With A.j A.i;   /*swap*/
 i = i + 1;
 j = j - 1;
   End;
   End;
   If j - lpt < rpt - i Then;
 Do;
   If i < rpt Then;
 Do;
   s = s + 1;
   StackL.s = i;
   StackR.s = rpt;
 End;
   rpt = j;
 End;
   Else;
 Do;
   If lpt < j Then;
 Do;
   s = s + 1;
   

Processor cache utilization

2017-05-21 Thread K
Dear all

We have experienced increased CPU/transaction when the MVS busy is closed to 
100%. We would like to measure the L1 and L2 processor cache utilization during 
these heavy CPU intervals. Could you please provide any method to measure 
processor cache performance?

Kind regards
Kostas

--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN


Merge SMPPTFIN files of an shopZ order

2017-04-11 Thread K
Dear Listers

The order I have downloaded from shopZ is about 1,3GB. The Ibm download 
Director has created in SMPPTFIN two files of 500 and a last one of 300MB. So, 
instead of one SMPMCS.pax I have three files file1.1of3, file2.2of3 and 
file3.3of3. How can I merge these file to one SMPMCS.pax? I have set the unpack 
options of IBM Download Director  'Don't unpack' or 'Always unpack' but with 
the same results. 

Kind regards
Kostas

--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN


Re: Catalogs in a SYSPLEX

2016-11-21 Thread Srivastava, Rajesh K
You can do either  and will some associated issues. Here are some:

If you have a MCAT for each LPAR you will have so many MCAT's + its backup to 
maintain and garbage in it piles up with time.

If you have a shared MCAT, you need to maintain one MCAT/SYSPLEX and one 
backup.At the time of z/OS upgrade create a new SYSPLEX MCAT (you may have one 
character in MCAT specific to z/OS versrion/release in MCAT name)  ( gives you 
opportunity to cleanup / gives you opportunity to test z/OS upgrade in DR ahead 
of time). One will need to keep two MCAT SYNCed up during the upgrade.

Regards,

Rajesh

-Original Message-
From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On Behalf 
Of Travis
Sent: Monday, November 21, 2016 4:56 PM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: Re: Catalogs in a SYSPLEX

I was doing some research and I cannot seem to find any specific mention of 
using a single shared master catalog in the manuals. It doesn't mean I was 
looking in the correct manuals it just means that what I had been told may not 
be 100% accurate. The manuls do seem to IMPLY that a shared master catalog is 
the way to go but there is nothing recommending one over the other that I can 
see.

--
For IBM-MAIN subscribe / signoff / archive access instructions, send email to 
lists...@listserv.ua.edu with the message: INFO IBM-MAIN

The information contained in this e-mail, and any attachment, is confidential 
and is intended solely for the use of the intended recipient. Access, copying 
or re-use of the e-mail or any attachment, or any information contained 
therein, by any other person is not authorized. If you are not the intended 
recipient please return the e-mail to the sender and delete it from your 
computer. Although we attempt to sweep e-mail and attachments for viruses, we 
do not guarantee that either are virus-free and accept no liability for any 
damage sustained as a result of viruses. 

Please refer to http://disclaimer.bnymellon.com/eu.htm for certain disclosures 
relating to European legal entities.


--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN


About BMC Subzero

2016-10-04 Thread K
Hi listers

Is there any feedback about new BMC Subzero software that is used to reduce MLC 
cost?

Kind regards
Kostas

--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN


IBM download director

2016-08-10 Thread K
Hi all 

During last days it seems that I cannot connect to my internet proxy server 
using IBM Download Director. So, I have to select direct connection instead of 
a proxy. Is this a known defect of the latest IBM download director ?

Kind regards

Kostas

--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN


SCRT input from z/OS 1.12 and 2.2

2016-04-12 Thread K
Dear listers

I am wondering if I can run my monthly SCRT report providing as input SMF 
records from two systems, one that is on z/OS v1.12 and the other is on z/OS 
v2.2. Is there any change in the format of SMF 70 or 89 from z/OS 1.12 to z/OS 
2.2?

Kind regards
Kostas

--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN


COBOL's NUMPROC compiler option

2015-04-14 Thread Larry K. Slaten

Mr. Ross,

Is there going to be a corresponding PACKCHECK compiler option? It is 
very difficult to locate all of the assembler code that took liberty in 
fixing positive pack decimal fields with a sign of F instead of 
determining if the result field was signed or not.  After all everybody 
would use a hardware internal decimal instruction (AP, CP, DP, MP, SP, 
and ZAP etc.) to access/process a pack decimal field!  Who would have 
ever guessed that one of the future compilers would be smart enough to 
make a determination/assumption that you could just use a compare 
logical character instruction (CLC) to determine equality between two 
pack decimal fields?


Or, should we just take the performance hit and use NUMPROC(NOPFD) for 
the life of COBOL?  Maybe we could petition for the reinstatement of 
NUMPROC(MIG).  I guess we are all wondering just how much anguish 
NUMPROC(MIG) is causing IBM? Because, it appears to be very beneficial 
to some of us and less overhead than NUMPROC(NOPFD).  If I remember 
correctly NUMPROC(MIG) only fixed signs on input and NUMPROC(NOPFD) 
does additional sign fixing.


Thank you for your time



--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN


Binder attributes

2015-02-17 Thread Larry K. Slaten
Trying to figure out what utility IEHLIST, AMBLIST,  or EQALMA etc. 
shows the REUSE() attribute for each member being included in 
executable.  I'm ending up with NOREUS,NORENT,NOREFR and I know that the 
COBOL compiler is passing along RENT, some other included item is 
causing the whole package to be linked with REUSE() attribute of lesser 
value.  IBM doesn't appear to provide such information on the Binder 
output or IEHLIST, AMBLIST, or EQALMA.  I know I can override 
REUSE(RENT) in the JCL, but I would like to see if I can resolve the 
problem by fixing the bad included item.  If I remember correctly the 
VSE Linkage Editor use to provide such info on their link edit output.


--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN


BMC MainView for DB2

2014-05-23 Thread K
Hi all,

What is the latest generally available version of BMC MainView for DB2? 


Thanks in advance?

--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN


Re: BMC MainView for DB2

2014-05-23 Thread k Zaf
Dear Rex, thank you for your answer.​

As I have not access to BMC remedy, could you please verify to me if
MainView for DB2 v10 is compatible with DB2 v9.1?

Thanks in advance
Kostas


On 23 May 2014 16:01, Pommier, Rex rpomm...@sfgmembers.com wrote:

 They definitely don't make it easy to find!  What I found was 11.1.0
 available on 6/25/2013, supported on z/OS 1.12, 1.13, 2.1.  DB2 9.1, 10,
 and 11 are listed as supported.

 Rex

 -Original Message-
 From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On
 Behalf Of K
 Sent: Friday, May 23, 2014 7:44 AM
 To: IBM-MAIN@LISTSERV.UA.EDU
 Subject: BMC MainView for DB2

 Hi all,

 What is the latest generally available version of BMC MainView for DB2?


 Thanks in advance?

 --
 For IBM-MAIN subscribe / signoff / archive access instructions,
 send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN

 The information contained in this message is confidential, protected from
 disclosure and may be legally privileged.  If the reader of this message is
 not the intended recipient or an employee or agent responsible for
 delivering this message to the intended recipient, you are hereby notified
 that any disclosure, distribution, copying, or any action taken or action
 omitted in reliance on it, is strictly prohibited and may be unlawful.  If
 you have received this communication in error, please notify us immediately
 by replying to this message and destroy the material in its entirety,
 whether in electronic or hard copy format.  Thank you.


 --
 For IBM-MAIN subscribe / signoff / archive access instructions,
 send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN


--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN


CA Common Services 14.1 can cause outages

2013-09-26 Thread Byers, Mary K
You have received a secure message from Byers, Mary K entitled, CA Common 
Services 14.1 can cause outages.

You may view the message (before 10/11/2013) at the following web address:
  https://securemail.usablecs.com/messenger/msg?x=d-14309134-K4hOWEdk


-
Delivered with Secure Messenger (TM)
http://www.tumbleweed.com
Secure Messenger is a trademark of Tumbleweed Communications Corp.





--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN


DFHSM ARCLOGx ARCLOGy must be on the same volume.

2013-09-06 Thread Ron K.
Hello,

We recently 'switched' on the ARCLOGx and ARCLOGy functionality of DFHSM. All 
working perfectly well. However, apparently it is somewhat required to have 
both output datasets residing on the same volume. (else messages like ARC0022I 
may appear at swaplog-time). This is all documented well, however I do not 
understand why this requirement is there. 

Does anyone have an idea why DFHSM is unable to handle a rename when both 
output datasets do not reside on the same volume?

Many thanks.

--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN


Re: SSD tiering benefits

2013-08-12 Thread k Zaf
Thanks for your answer Lizette

We are using various tools like IBM RMF  ASG TMONZOS in z/OS running SMS 
HSM. We actually want to tier some very utilized DB2 v9.1 workload to SSD
and keep all the rest running in spinning VMAX 15000 rpm disks. I am very
interesting in forecasting any potential  CPU benefit beside of course the
better IO. How can we project this?




On 7 August 2013 12:55, Lizette Koehler stars...@mindspring.com wrote:

 What tools do you have?  Do you have SAS SAS/MXG SAS/MICS, Omegamon
 (Tivoli), DISK Magic,  etc...

 What version of z/OS, DB2?

 What hardware is used?  EMC (VMAX, other), HDS, IBM?

 RMF which creates the Type 70  records, should contain some of the
 information you are looking for.  Do you have experience in Performance
 analysis?  If you do, what tools do you normally use?

 What will you be using for tiering?   Each hardware vendors have their own
 tiering solutions.

 I think DISK magic (fee product) by Intellimagic can do what if analysis.

 My understanding is that Tiering is used to move less active data to
 slower devices inside a storage array and put highly accessed data on
 faster devices in the array.  That tiering is used to smooth out the hot
 spots in the array itself.  Or move data from more expensive storage (SSD)
 to less expensive (SATA) devices within the array.

 So is your issue hot spots in the array and DB2 requires better
 performance (1 ms or less per transaction)?  Are you mixing SSD to SATA
 type devices and want to ensure high access data is on the fast  device?

 What is the problem you are trying to solve with SSD drives?

 Do you use DFHSM and DFSMS to manage your storage?  Do you have a mixed
 DFSMS pool with both Spinning and SSD disks?  Is the SMS pool a pure DB2
 table pool or share with non-VSAM?  Are your DB2 Tables currently on SSD or
 spinning disks?  Or on mixed devices? Do you use your Storage groups to
 direct your DB2 tables to SSD?

 Lizette

 -Original Message-
 From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On
 Behalf Of K
 Sent: Wednesday, August 07, 2013 1:28 AM
 To: IBM-MAIN@LISTSERV.UA.EDU
 Subject: SSD tiering benefits

 Dear Listers,

 We are thinking to implement storage tiering using some SSD volumes for
 some of our very active DB2 tablespaces. Is there any way to measure
 performance improvements for both CPU and IO utilization?  Do you have any
 experience on tiering with SSD in DB2 environment?

 Kind regards
 Kostas

 --
 For IBM-MAIN subscribe / signoff / archive access instructions,
 send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN


--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN


REXX exec, To compile or not to compile

2013-08-07 Thread K
Hi all

Is there any performance benefit of compiling our frequently REXX execs?

Kind regards
Kostas

--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN


SSD tiering benefits

2013-08-07 Thread K
Dear Listers,

We are thinking to implement storage tiering using some SSD volumes for some of 
our very active DB2 tablespaces. Is there any way to measure performance 
improvements for both CPU and IO utilization?  Do you have any experience on 
tiering with SSD in DB2 environment?

Kind regards
Kostas

--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN


Re: Sharing ZFS file b/w two systems [not sysplex]

2013-07-27 Thread Shameem .K .Shoukath
Thanks john,
 I also read about RECATALOG parm. The restriction is if the HLQ is not SYS1 
then the catalog name must match for RECATALOGing.

I made a plan based on this.

1)make the ZFS filesystem as READONLY in SYS1  AUTOMOVE=YES
2)Define a UCAT in SYS1 same name as the MCAT of SYS2 (since my HLQ for ZFS is 
not SYS1)
3)Define cluster with same name of original ZFS in SYS1 with RECATALOG.
4)MOUNT ZFS FS as R/W in SYS1
5)APPLY maintenance, then unmount.
6)delete Cluster with noscratch. Delete the UCAT (or keep it for future)
7)Make the FS R/W in SYS1

Going to try this on a sample ZFS on Monday


 



Thanks and Regards
Shameem K Shoukath
 
 




 From: John McKown john.archie.mck...@gmail.com
To: IBM-MAIN@LISTSERV.UA.EDU 
Sent: Friday, July 26, 2013 6:00 PM
Subject: Re: Sharing ZFS file b/w two systems [not sysplex]
 

You can only do this if the ZFS file is NOT, NOT, NOT currently mount in
Read/Write mode on System1.

You cannot access a VSAM file (and a zFS container dataset is a VSAM LINEAR
data set) which is not catalogued. If the zFS DSN has a high level node of
SYS1, then you _CAN_ simply catalog it in System2's master catalog using a
RECATALOG parameter on the DEFINE for it. If it is not SYS1, you can't do
this. I don't know why IBM allows this, but they do.

Another, strange, possibility is to NFS export the mount point from System1
and then MOUNT the exported filesystem somewhere on System2. But this
requires that you have NFS running on both systems. Well, NFS server
running on System1 and NFS client running on System2. No, don't ask me how.
I know it is possible, but I have some sort of mental block about it
because I've never gotten it to work properly.

On Fri, Jul 26, 2013 at 9:04 AM, Shameem .K .Shoukath 
shameemkshouk...@yahoo.com wrote:

 hi,
   There are two different systems LPARs on the same box and volumes can be
 made online on both sides.

 I have a ZFS file on System1 on VOLUM1 cataloged in master cat and it
 belong there. I need the same ZFS file on SYStem 2 temporarily to apply
 some maintenance (SMPE).

 What would be the best way to do this? I am trying to avoid import connect
 SYS2 mcat catalog to SYS1 master catalog

 any ideas ?

 Thanks
 Shameem

 --
 For IBM-MAIN subscribe / signoff / archive access instructions,
 send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN




-- 
This is a test of the Emergency Broadcast System. If this had been an
actual emergency, do you really think we'd stick around to tell you?

Maranatha! 
John McKown

--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN




--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN


Sharing ZFS file b/w two systems [not sysplex]

2013-07-26 Thread Shameem .K .Shoukath
hi,
  There are two different systems LPARs on the same box and volumes can be made 
online on both sides. 

I have a ZFS file on System1 on VOLUM1 cataloged in master cat and it belong 
there. I need the same ZFS file on SYStem 2 temporarily to apply some 
maintenance (SMPE).

What would be the best way to do this? I am trying to avoid import connect SYS2 
mcat catalog to SYS1 master catalog 

any ideas ?

Thanks
Shameem

--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN


COBOL Parser

2013-07-17 Thread K
Dear all

I would like to tune some IF THEN ELSE statements by changing operands 
positions of OR  AND statements in some of my COBOL II v3.4 programs.

Can we say that if always VAR1 assigned to VALUE1 the following statement 
(VAR1 EQUAL 'VALUE1') OR (VAR2 EQUAL 'VALUE2) 
has better performance than 
(VAR2 EQUAL 'VALUE2) OR (VAR1 EQUAL 'VALUE1') ?

In a similar way, can we say that if always VAR1 is not equal to VALUE1 the 
following statement 
(VAR2 EQUAL 'VALUE2) AND (VAR1 EQUAL 'VALUE1') 
has better performance than  
(VAR1 EQUAL 'VALUE1') AND (VAR2 EQUAL 'VALUE2)  ?

Kind regards
Kostas

--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN


Re: Retrieving jobs of input queue

2013-06-19 Thread k Zaf
Hi all,

Thank you for your answers. Note that I would like to bypass in my REXX the
use of address ISFEXEC or ISFACT. This is because I am not using standard
TSO REXX but OPS/MVS REXX which is not supporting (yet) a host environment
to SDSF.


Kind regards


On 18 June 2013 23:35, Kirk Wolf k...@dovetail.com wrote:

 You can use the lsjes command:

 See: https://www.dovetail.com/docs/coz/dsp-ref_lsjes.html

 This could be called from REXX using bpxwunix() or the SH host command
 environment.

 Also, the fromdsn command can be used to extract spool files for a job.

 Kirk Wolf
 Dovetailed Technologies
 http://dovetail.com

 PS The Co:Z Toolkit is free to download and use under our Community
 License.
 Enterprise License and Support agreements are also available:
 http://dovetail.com/support.html

 On Tue, Jun 18, 2013 at 9:17 AM, K kzafi...@gmail.com wrote:

  Hello all
 
  Could I retrieve Jobs and their jobids of JES2 input queue though REXX
 but
  WITHOUT use of SDSF.
 
  Kind regards
  Kostas
 
  --
  For IBM-MAIN subscribe / signoff / archive access instructions,
  send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
 

 --
 For IBM-MAIN subscribe / signoff / archive access instructions,
 send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN


--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN


Re: Retrieving jobs of input queue

2013-06-19 Thread k Zaf
Hi all

I rather try to use JES2 command  $djq,q=xeq,busy=no to find out jobs
awaiting in INPUT queue

Thanks in any case


On 19 June 2013 10:20, k Zaf kzafi...@gmail.com wrote:

 Hi all,

 Thank you for your answers. Note that I would like to bypass in my REXX
 the use of address ISFEXEC or ISFACT. This is because I am not using
 standard TSO REXX but OPS/MVS REXX which is not supporting (yet) a host
 environment to SDSF.


 Kind regards


 On 18 June 2013 23:35, Kirk Wolf k...@dovetail.com wrote:

 You can use the lsjes command:

 See: https://www.dovetail.com/docs/coz/dsp-ref_lsjes.html

 This could be called from REXX using bpxwunix() or the SH host command
 environment.

 Also, the fromdsn command can be used to extract spool files for a job.

 Kirk Wolf
 Dovetailed Technologies
 http://dovetail.com

 PS The Co:Z Toolkit is free to download and use under our Community
 License.
 Enterprise License and Support agreements are also available:
 http://dovetail.com/support.html

 On Tue, Jun 18, 2013 at 9:17 AM, K kzafi...@gmail.com wrote:

  Hello all
 
  Could I retrieve Jobs and their jobids of JES2 input queue though REXX
 but
  WITHOUT use of SDSF.
 
  Kind regards
  Kostas
 
  --
  For IBM-MAIN subscribe / signoff / archive access instructions,
  send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
 

 --
 For IBM-MAIN subscribe / signoff / archive access instructions,
 send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN




--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN


Retrieving jobs of input queue

2013-06-18 Thread K
Hello all

Could I retrieve Jobs and their jobids of JES2 input queue though REXX but 
WITHOUT use of SDSF. 

Kind regards
Kostas

--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN


Re: ISPF screen pre-occupied message

2013-05-31 Thread Shameem .K .Shoukath
hi all,
 thanks for the updates,

This worked,

Maintain User Parameters
Application ID Display N 


 



Thanks and Regards
Shameem K Shoukath
 
 




 From: Roger Bowler ibm-m...@snacons.com
To: IBM-MAIN@LISTSERV.UA.EDU 
Sent: Thursday, May 30, 2013 3:37 PM
Subject: Re: ISPF screen pre-occupied message
 

On Thu, 30 May 2013 13:06:16 +, Rob Scott rsc...@rocketsoftware.com 
wrote:
I seem to recall there being some sort of public domain utility program, 
 modification or TSO/ISPF exit that forced the z/OS system name on ISPF
 screens. This facility predated the ISPF provided SYSNAME command.

Hey Rob, thanks! I didn't know about the ISPF SYSNAME command.

Shameem: the string displayed by NVAS for each application and the row/col are 
defined in ADM option 2 (Maintain Group Parameters).

Rgds
Roger Bowler

--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN



--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN


Re: Longer SMFWAIT during IPL MSI

2013-05-31 Thread Shameem .K .Shoukath
Thanks Bob for sharing the REDBOOK details it is of good help to understand the 
process.

We are recording 19 in all LPARs. I think storage team uses it for their 
reporting using 20% or something, im not sure.
 

My actual question still stands when i compare PROD and DEV SMFPRMxx then only 
diff i see is the SMF EXIT IEFU84. Is this exit heavy by itself or by poor 
coding ? is this affecting performance POST IPL as this EXIT takes control 
before each SMF Write. 

I need to raise a CHANGE if i want to remove it and test. So I was expecting to 
get a feedback from the LIST whether it worth a try. I have to give some 
justification in the CHANGE to request the removal. 




Thanks and Regards
Shameem K Shoukath
 
 




 From: Bob Rutledge deerh...@ix.netcom.com
To: IBM-MAIN@LISTSERV.UA.EDU 
Sent: Thursday, May 30, 2013 8:55 PM
Subject: Re: Longer SMFWAIT during IPL MSI
 

I suggest this Redbook:

http://publib-b.boulder.ibm.com/abstracts/sg247816.html?Open

Bob

Shameem .K .Shoukath wrote:
 
 hi there,
 
  I was just going thru the IPL statistics of all LPARs in out org. I see in 
one LPAR the SMFWAIT is taking fairly longer comp to others. out of total 
00:01:12 MSI time this takes 00:00:53.586 
 
 I am  not sure what happens in this process, took a chance  compared the 
 SMFPRMxx and saw there is one exit IEFU84 additional compared to PROD and QA 
 lpars. 
 
 would this be the cause for slower IPL ? Will it also may be one reason 
 contributing to performance issues? as i understand this exit gets control 
 before each SMF write. 
 
 
 
 
 *** IEEMB860 Statistics ***                                              
                                                                          
 ILRTMRLG  00:00:00.278  ASM                                              
 IEEVMSI   00:00:00.065  Reconfiguration                                  
 IARM8MSI  00:00:00.030  RSM - bring storage online                      
 IECVIOSI  00:00:02.627  IOS dynamic pathing                              
 RACROUTE  00:00:00.000  Initialize Security Environment                  
 ATBINSYS  00:00:00.020  APPC                                            
 IKJEFXSR  00:00:00.183  TSO                                              
 IXGBLF00  00:00:00.029  Logger                                          
 AXRINSTR  00:00:00.042  System REXX                                      
 CEAINSTR  00:00:00.031  Common Event Adapter                            
 HWIAMIN1  00:00:00.067  BCPii                                            
 COMMNDXX  00:00:00.091  COMMANDxx processing                            
 IEAVTMSI  00:00:00.071  RTM                                              
 SMFWAIT   00:00:53.586  SMF                                              
 ICHSEC05  00:00:12.113  Security Server                                  
 MSIEXIT   00:00:00.000  Cnz_MSIExit Dynamic Exit                        
 IEFJSIN2  00:00:03.188  SSN= subsystem                                  
 IEFHB4I2  00:00:00.015  ALLOCAS - UCB scan                              
 CSRINIT   00:00:00.005  Windowing services                              
 FINSHMSI  00:00:00.336  Wait for attached CMDs                          
                                                                          
 IEEMB860  00:01:12.797      Uncaptured time:  00:00:00.011              
 
  
 
 
 
 Thanks and Regards
 Shameem K Shoukath

--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN




--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN


ISPF screen pre-occupied message

2013-05-30 Thread Shameem .K .Shoukath
hi All,

   In all ISPF screen(s) there is one place been configured to have a ' PROD ' 
message (in row 20,col 40 to 45) stamped there. I feel somebody at some stage 
might have tweaked the LOGMODE or something for this. This becomes irritating 
when we look thru the log for certain problems


  Anybody has ideas how to remove this field and have the default.  

 



Thanks and Regards
Shameem K Shoukath

--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN


Re: ISPF screen pre-occupied message

2013-05-30 Thread Shameem .K .Shoukath
hi,

   This is only on ISPF application. I can't see it in READY prompt or CICS 
either.

   I seriously doubt the netview relation to it. The application ids defined 
are like below
TSOP 
TSOD 
TSOQ1


  but the display field for respective systems are like,

PROD
TSO QA1
DEV


 



Thanks and Regards
Shameem K Shoukath
 
 




 From: Roger Bowler ibm-m...@snacons.com
To: IBM-MAIN@LISTSERV.UA.EDU 
Sent: Thursday, May 30, 2013 1:22 PM
Subject: Re: ISPF screen pre-occupied message
 

On Thu, 30 May 2013 03:22:46 -0700, Shameem .K .Shoukath 
shameemkshouk...@yahoo.com wrote:
 In all ISPF screen(s) there is one place been configured to have a ' PROD ' 
 message 
 (in row 20,col 40 to 45) stamped there. I feel somebody at some stage might 
 have
 tweaked the LOGMODE or something for this. This becomes irritating when we 
 look 
 thru the log for certain problems
 Anybody has ideas how to remove this field and have the default.

If Netview Access Services is doing this you can turn it off in the Maintain 
User Parameters menu. From the NVAS Application Selection menu, type ADM on 
the command line and press Enter, then 1 (Maintain User Parameters) and 
press Enter, then type the name of the application (TSO for example) in the 
first field and press Enter. Then change Application ID Display to N, type 
u on the command line, and press Enter.

Regards
Roger Bowler

--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN



--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN


Re: ISPF screen pre-occupied message

2013-05-30 Thread Shameem .K .Shoukath
Hi,
  my apologies for sending below email before giving it a try. 

  I tried steps Roger Bowler suggested and it worked.. Life made easy 

Thanks Guys ...appreciated 

 



Thanks and Regards
Shameem K Shoukath
 
 




 From: Shameem .K .Shoukath shameemkshouk...@yahoo.com
To: IBM-MAIN@LISTSERV.UA.EDU 
Sent: Thursday, May 30, 2013 2:23 PM
Subject: Re: ISPF screen pre-occupied message
 

hi,

   This is only on ISPF application. I can't see it in READY prompt or CICS 
either.

   I seriously doubt the netview relation to it. The application ids defined 
are like below
TSOP 
TSOD 
TSOQ1


  but the display field for respective systems are like,

PROD
TSO QA1
DEV


 



Thanks and Regards
Shameem K Shoukath
 
 




 From: Roger Bowler ibm-m...@snacons.com
To: IBM-MAIN@LISTSERV.UA.EDU 
Sent: Thursday, May 30, 2013 1:22 PM
Subject: Re: ISPF screen pre-occupied message
 

On Thu, 30 May 2013 03:22:46 -0700, Shameem .K .Shoukath 
shameemkshouk...@yahoo.com wrote:
 In all ISPF screen(s) there is one place been configured to have a ' PROD ' 
 message 
 (in row 20,col 40 to 45) stamped there. I feel somebody at some stage might 
 have
 tweaked the LOGMODE or something for this. This becomes irritating when we 
 look 
 thru the log for certain problems
 Anybody has ideas how to remove this field and have the default.

If Netview Access Services is doing this you can turn it off in the Maintain 
User Parameters menu. From the NVAS Application Selection menu, type ADM on 
the command line and press Enter, then 1 (Maintain User Parameters) and 
press Enter, then type the name of the application (TSO for example) in the 
first field and press Enter. Then change Application ID Display to N, 
type u on the command line, and press Enter.

Regards
Roger Bowler

--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN



--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN



--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN


Longer SMFWAIT during IPL MSI

2013-05-30 Thread Shameem .K .Shoukath


hi there,

 I was just going thru the IPL statistics of all LPARs in out org. I see in one 
LPAR the SMFWAIT is taking fairly longer comp to others. out of total 00:01:12 
MSI time this takes 00:00:53.586 

I am  not sure what happens in this process, took a chance  compared the 
SMFPRMxx and saw there is one exit IEFU84 additional compared to PROD and QA 
lpars. 

would this be the cause for slower IPL ? Will it also may be one reason 
contributing to performance issues? as i understand this exit gets control 
before each SMF write. 




*** IEEMB860 Statistics ***                                              
                                                                         
ILRTMRLG  00:00:00.278  ASM                                              
IEEVMSI   00:00:00.065  Reconfiguration                                  
IARM8MSI  00:00:00.030  RSM - bring storage online                       
IECVIOSI  00:00:02.627  IOS dynamic pathing                              
RACROUTE  00:00:00.000  Initialize Security Environment                  
ATBINSYS  00:00:00.020  APPC                                             
IKJEFXSR  00:00:00.183  TSO                                              
IXGBLF00  00:00:00.029  Logger                                           
AXRINSTR  00:00:00.042  System REXX                                      
CEAINSTR  00:00:00.031  Common Event Adapter                             
HWIAMIN1  00:00:00.067  BCPii                                            
COMMNDXX  00:00:00.091  COMMANDxx processing                             
IEAVTMSI  00:00:00.071  RTM                                              
SMFWAIT   00:00:53.586  SMF                                              
ICHSEC05  00:00:12.113  Security Server                                  
MSIEXIT   00:00:00.000  Cnz_MSIExit Dynamic Exit                         
IEFJSIN2  00:00:03.188  SSN= subsystem                                   
IEFHB4I2  00:00:00.015  ALLOCAS - UCB scan                               
CSRINIT   00:00:00.005  Windowing services                               
FINSHMSI  00:00:00.336  Wait for attached CMDs                           
                                                                         
IEEMB860  00:01:12.797      Uncaptured time:  00:00:00.011               

 



Thanks and Regards
Shameem K Shoukath

--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN


Re: ICETOOL question

2013-05-13 Thread k Zaf
Dear All

I could never thought that DFSORT should help to produce percentages of the
records...

Thank you for your (more or less tricky) help
Kind regards

Kostas


On 10 May 2013 20:10, Norbert Friemel nf.ibmm...@web.de wrote:

 On Fri, 10 May 2013 08:53:40 -0500, K wrote:

 Two steps:

 //*
 //S1  EXEC PGM=ICETOOL
 //*
 //TOOLMSG   DD SYSOUT=*
 //DFSMSGDD SYSOUT=*
 //DATA  DD DISP=(,PASS),
 // DSN=amp;DATA,
 // SPACE=(80,(10,10)),AVGREC=U,
 // LRECL=80,RECFM=FB
 //TOTAL DD DISP=(,PASS),
 // DSN=amp;TOTAL,
 // SPACE=(80,(1,1)),AVGREC=U,
 // LRECL=80,RECFM=FB
 //INDD *
 AAA
 BBB
 AAA
 CCC
 AAA
 BBB
 /*
 //TOOLINDD *
   COPY  FROM(IN) TO(DATA)
   COUNT FROM(DATA) WRITE(TOTAL) TEXT('Total#,+') DIGITS(9) WIDTH(80)
 /*
 //*
 //S2  EXEC PGM=SORT
 //*
 //SYSOUTDD SYSOUT=*
 //SYMNOUT   DD SYSOUT=*
 //SORTINDD DISP=(OLD,DELETE),
 // DSN=amp;DATA
 //SORTOUT   DD SYSOUT=*
 //SYMNAMES  DD DISP=(OLD,DELETE),
 // DSN=amp;TOTAL
 //SYSIN DD *
  SORT FIELDS=(1,3,CH,A)
  INREC BUILD=(1,3,+1,TO=PD,LENGTH=5,Total#,TO=PD,LENGTH=5)
  SUM FIELDS=(4,5,PD)
  OUTREC BUILD=(1,3,(((4,5,PD,DIV,9,5,PD),ADD,+5),DIV,+10),
  EDIT=(IIIT,T%))
 /*


 Norbert Friemel


 Hi dear all,
 
 I would like to produce a statistic report using ICETOOL. This report
 should shown the percentage of records in the file according to their
 values e.g.
 
 Input:
 
 AAA
 BBB
 AAA
 CCC
 AAA
 BBB
 
 Output Percentages:
 
 AAA 50,0
 BBB 33,0
 CCC 16,7
 
 Is there any ICETOOL operator (like OCCUR) to find out the above
 percentage? Do I have to use various INCLUDE COND and then read the DFSMSG
 to extract percentages (from ICE054I 0 RECORDS - IN: xxx, OUT: yyy) ?
 
 Thanks in advance
 
 Kzafirop at gmail dot com
 
 --
 For IBM-MAIN subscribe / signoff / archive access instructions,
 send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN

 --
 For IBM-MAIN subscribe / signoff / archive access instructions,
 send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN


--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN


ICETOOL question

2013-05-10 Thread K
Hi dear all,

I would like to produce a statistic report using ICETOOL. This report should 
shown the percentage of records in the file according to their values e.g.

Input:

AAA
BBB
AAA
CCC
AAA
BBB

Output Percentages:

AAA 50,0
BBB 33,0
CCC 16,7

Is there any ICETOOL operator (like OCCUR) to find out the above percentage? Do 
I have to use various INCLUDE COND and then read the DFSMSG to extract 
percentages (from ICE054I 0 RECORDS - IN: xxx, OUT: yyy) ?

Thanks in advance

Kzafirop at gmail dot com

--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN


4h MSUs Average of Sysplex

2013-05-01 Thread K
Hi all,

I would like to produce a 4h Unused Group Capacity Average (4HUGCA) alert for a 
my sysplex consisting of two different lpars. We already have RMF Data Portal 
for z/OSbut showing us the 4HUGCA combining both lpars information. I would 
like to use a REXX executed on Z to implement a trigger according to the value 
of 4HUGCA. Is the there any RMF or GPMSERVE API called by REXX? I started with 
RMFM3B but there is no no defined exception for 4HUGCA.

Thanks in advance
Kostas

--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN


DFSORT alternatives

2013-04-02 Thread K
Hi all,

Is there any sorting tool in the market that is eligible to run in a zIIP 
processor? We would like to replace DFsort that is running only in a z/Series 
general processor.

Thanks in advance
Kostas

--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN


Strange Behaviour with DFRMM and catalog

2013-03-18 Thread Jerome k
Hi,
Freshly migrated from TLMS to DFRMM, everything work perfectly except one thing 
:
Logical tapes(VTS) that have been scratched due to VRS, if a check the 
Usercatalog, the dataset belonging to scratched tapes are still cataloged !!!
I can't explain why, this sound weird to me, maybe i use some wrong option ?
Note that we are at Zos1.9 and we share usercatalog beetween several LPAR.

If someone as an idea to explain that ?
I feel alone with my redbooks

Regards,
Jérôme


RMM LISTCONTROL ALL
Control record:
Type = MASTERCreate date = 12/03/2013  Create time = 11:49:30  
 Update date = 18/03/2013  Update time = 13:47:17  
Journal: Utilization =   0% (75% threshold) STATUS: = ENABLED  
CDS: Utilization =   5%
Exit status:Options:   
  EDGUX100 = ENABLED  Stacked Volumes = ENABLED
  EDGUX200 = NONE Extended Bin= ENABLED
  EDGUX300 = NONE Common Time = DISABLED   
  CDSID ENQ name  = ENABLED
System options:  
PARMLIB Suffix  = R0 
Operating mode  = PRetention period: Default = 7   Maximum = NOLIMIT 
 Catalog = 1 hours   
Control data set name  = RMM.CDS
Journal file data set name = .RMM.JRNL   
Journal threshold  = 75% 
Catalog SYSID  = *   
Scratch procedure name = EDGXPROC
Backup procedure name  = EDGBCKUP
IPL date check  = NDate format= E   RACF support   = N   
SMF audit   = 248  SMF security   = 249 CDS id = MASTER  
MAXHOLD value   = 100  Lines per page = 54  System ID  = SYSA   
BLP = RMM  TVEXT purge= RELEASE Notify = Y   
Uncatalog   = YVRS job name   = 2   Message case   = M   
MASTER overwrite= LAST Accounting = J   VRS selection  = NEW 
VRS change  = INFO VRSMIN action  = WARNVRSMIN count   = 100 
Disp DD name= LOANDD   Disp msg ID= EDG4054I 
Retain by   = VOLUME   Move by= VOLUME  CMDAUTH Owner  = YES 
PREACS  = NO   SMSACS = NO  CMDAUTH Dsn= NO  
Reuse bin   = STARTMOVE Media name = 3490
Local tasks= 10  
PDA: OFF 
 Block count= 255  Block size = 31  Log= OFF 
 Update scratch = YES  Update command = YES Update exits   = YES
 Purge  = YES   

Rack Prefix  Access type  
---  ---  
*NONE   


 

--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN


BCPii question HWIQUERY on IMAGE

2013-02-24 Thread Shameem .K .Shoukath
hi all,
  Cross posting onto this list 

  I am able to run the sample program HWIXMCS1 and getting output. 

  However when i tried to retrieve more information like HWI_DEFCAP, 
HWI_PARTITIONID etc from the HWIQUERY on IMAGE, i am not getting any values for 
the new variables at all. 

  I am not able to find any other samples anywhere in 'google' .. Does anybody 
has got it thru successful ? 

I haven't done much changes, just repeated the queryparm and gave 
HWI_PARTITIONID, HWI_DEFCAP along with sample HWI_OSTYPE after declaring the 
variables. 

char HWI_DEFCAP_value[20];               
char HWI_OSTYPE_value[20];               
char HWI_PARTITIONID_value[20];          
..

..
..
queryparm[0].AttributeIdentifier = HWI_DEFCAP;                
queryparm[0].AttributeValue_Ptr  = HWI_DEFCAP_value[0];      
queryparm[0].AttributeValueLen=sizeof(HWI_DEFCAP_value);      
queryparm[0].AttributeValueLenReturned = 0;                   
                                                              
queryparm[1].AttributeIdentifier = HWI_OSTYPE;                
queryparm[1].AttributeValue_Ptr  = HWI_OSTYPE_value[0];      
queryparm[1].AttributeValueLen=sizeof(HWI_OSTYPE_value);      
queryparm[1].AttributeValueLenReturned = 0;                   
                                                              
queryparm[2].AttributeIdentifier = HWI_PARTITIONID;           
queryparm[2].AttributeValue_Ptr  = HWI_PARTITIONID_value[0]; 
queryparm[2].AttributeValueLen=sizeof(HWI_PARTITIONID_value); 
queryparm[2].AttributeValueLenReturned = 0;                   

 
I get value of OSTYPE as MVS but *BLANK* for other two.

Any help will be appreciated. 

 



Thanks and Regards
Shameem K Shoukath
 
 


- Forwarded Message -
From: Shameem .K .Shoukath shameemkshouk...@yahoo.com
To: IBM-MAIN ibm-m...@bama.ua.edu 
Sent: Friday, February 22, 2013 3:53 PM
Subject: BCPii question  HWIQUERY on IMAGE
 

hi all,
  I am able to run the sample program HWIXMCS1 and getting output. 


  However when i tried to retrieve more information like HWI_DEFCAP, 
HWI_PARTITIONID etc from the HWIQUERY on IMAGE, i am not getting any values 
for the new variables at all. 


  I am not able to find any other samples anywhere in 'google' .. Does anybody 
has got it thru successful ? 


I haven't done much changes, just repeated the queryparm and gave 
HWI_PARTITIONID, HWI_DEFCAP along with sample HWI_OSTYPE after declaring the 
variables. 


char HWI_DEFCAP_value[20];               
char HWI_OSTYPE_value[20];               
char HWI_PARTITIONID_value[20];          
..

..
..
queryparm[0].AttributeIdentifier = HWI_DEFCAP;                
queryparm[0].AttributeValue_Ptr  = HWI_DEFCAP_value[0];      
queryparm[0].AttributeValueLen=sizeof(HWI_DEFCAP_value);      
queryparm[0].AttributeValueLenReturned = 0;                   
                                                              
queryparm[1].AttributeIdentifier = HWI_OSTYPE;                
queryparm[1].AttributeValue_Ptr  = HWI_OSTYPE_value[0];      
queryparm[1].AttributeValueLen=sizeof(HWI_OSTYPE_value);      
queryparm[1].AttributeValueLenReturned = 0;                   
                                                              
queryparm[2].AttributeIdentifier = HWI_PARTITIONID;           
queryparm[2].AttributeValue_Ptr  = HWI_PARTITIONID_value[0]; 
queryparm[2].AttributeValueLen=sizeof(HWI_PARTITIONID_value); 
queryparm[2].AttributeValueLenReturned = 0;                   


 
I get value of OSTYPE as MVS but *BLANK* for other two.


Any help will be appreciated. 





Thanks and Regards
Shameem K Shoukath
 
 



--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN


Watching used space of a PDS

2013-01-29 Thread K Zafirop
Hi all

I would like to implement a utility so to watch the used directory blocks of 
one of our frequently changed PDS libraries. Do you have any idea how to 
automate this? In case of the threshold exceedance, I will submit an IEBCOPY to 
compress in place the PDS. 


Kind regards

K. Zafiropoulos
z/Series Support Engineer

--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN


Re: IBM-MAIN Digest - 29 Jul 2012 to 30 Jul 2012 (#2012-212)

2012-07-30 Thread Dean K. Alston
Like a Diamond in the Rough!
Sent via BlackBerry from T-Mobile

-Original Message-
From: IBM-MAIN automatic digest system lists...@listserv.ua.edu
Sender:   IBM Mainframe Discussion List IBM-MAIN@LISTSERV.UA.EDU
Date: Mon, 30 Jul 2012 23:00:01 
To: IBM-MAIN@LISTSERV.UA.EDU
Reply-To: IBM Mainframe Discussion List IBM-MAIN@LISTSERV.UA.EDU
Subject: IBM-MAIN Digest - 29 Jul 2012 to 30 Jul 2012 (#2012-212)


  http://www.lsoft.com  http://listserv.ua.edu/cgi-bin/wa?LIST=IBM-MAIN   
 
 
 
IBM-MAIN Digest - 29 Jul 2012 to 30 Jul 2012 (#2012-212)
 
Table of contents:
 
* Unix file system - space release question (5) 
* INFO IBM-MAIN 
* Friday: What you've been waiting for! Build an 80 column punched card reader! 
(14) 
* Fwd: improve IO scheduling to MFNetDisk emulated 3390 disks 
* Top posting (5) 
* ShopZseries unavailable? 
* Odd request: anyone know of where I might find a 4361 or a 4381? (2) 
* Working Set = Real Frames + Aux Slots? (2) 
* FTPS windows client (5) 
* Some IBM internet IP addresses changing on 26 Aug 2012 
* Using SSH or SCP in REXX under TSO 
* IEFACTRT changed in z/os 1.13 was: Drowning in service units on z/os 1.13 
after migrating from v1.11 (2) 
* 6 Member Parallel Sysplex - timezone 
 
1. Unix file system - space release question 
  * Unix file system - space release question (07/30)
From: NAIDOO, Raleigh raleigh.nai...@axa-tech.com 
  * Re: Unix file system - space release question (07/30)
From: Miklos Szigetvari miklos.szigetv...@isis-papyrus.com 
  * Re: Unix file system - space release question (07/30)
From: McKown, John john.mck...@healthmarkets.com 
  * Re: Unix file system - space release question (07/30)
From: Paul Gilmartin paulgboul...@aim.com 
  * Re: Unix file system - space release question (07/30)
From: Paul Gilmartin paulgboul...@aim.com 
2. INFO IBM-MAIN 
  * INFO IBM-MAIN (07/30)
From: kumar Podila kumar0...@aol.com 
3. Friday: What you've been waiting for! Build an 80 column punched card 
reader! 
  * Re: Friday: What you've been waiting for! Build an 80 column punched card 
reader! (07/30)
From: Lindy Mayfield lindy.mayfi...@sas.com 
  * Re: Friday: What you've been waiting for! Build an 80 column punched card 
reader! (07/30)
From: Paul Gilmartin paulgboul...@aim.com 
  * Re: Friday: What you've been waiting for! Build an 80 column punched card 
reader! (07/30)
From: zMan zedgarhoo...@gmail.com 
  * Re: Friday: What you've been waiting for! Build an 80 column punched card 
reader! (07/30)
From: Phil Smith p...@voltage.com 
  * Re: Friday: What you've been waiting for! Build an 80 column punched card 
reader! (07/30)
From: John Gilmore jwgli...@gmail.com 
  * Re: Friday: What you've been waiting for! Build an 80 column punched card 
reader! (07/30)
From: Ron Hawkins ronjhawk...@sbcglobal.net 
  * Re: Friday: What you've been waiting for! Build an 80 column punched card 
reader! (07/30)
From: Joel C. Ewing jcew...@acm.org 
  * Re: Friday: What you've been waiting for! Build an 80 column punched card 
reader! (07/30)
From: Gross, Randall [GCG-PFS] randy.gr...@primerica.com 
  * Re: Friday: What you've been waiting for! Build an 80 column punched card 
reader! (07/30)
From: Shmuel Metz (Seymour J.) shmuel+...@patriot.net 
  * Re: Friday: What you've been waiting for! Build an 80 column punched card 
reader! (07/30)
From: Shmuel Metz (Seymour J.) shmuel+...@patriot.net 
  * Re: Friday: What you've been waiting for! Build an 80 column punched card 
reader! (07/30)
From: John Gilmore jwgli...@gmail.com 
  * Re: Friday: What you've been waiting for! Build an 80 column punched card 
reader! (07/30)
From: Bill Fairchild bfairch...@rocketsoftware.com 
  * Re: Friday: What you've been waiting for! Build an 80 column punched card 
reader! (07/30)
From: John Gilmore jwgli...@gmail.com 
  * Re: Friday: What you've been waiting for! Build an 80 column punched card 
reader! (07/30)
From: zMan zedgarhoo...@gmail.com 
4. Fwd: improve IO scheduling to MFNetDisk emulated 3390 disks 
  * Fwd: improve IO scheduling to MFNetDisk emulated 3390 disks (07/30)
From: shai hess shai.h...@gmail.com 
5. Top posting 
  * Re: Top posting (07/30)
From: Elardus Engelbrecht elardus.engelbre...@sita.co.za 
  * Re: Top posting (07/30)
From: McKown, John john.mck...@healthmarkets.com 
  * Re: Top posting (07/30)
From: Mark Zelden m...@mzelden.com 
  * Re: Top posting (07/30)
From: Paul Gilmartin paulgboul...@aim.com 
  * Re: Top posting (07/30)
From: Shmuel Metz (Seymour J.) shmuel+...@patriot.net 
6. ShopZseries unavailable? 
  * ShopZseries unavailable? (07/30)
From: Staller, Allan allan.stal...@kbmg.com 
7. Odd request: anyone know of where I might find a 4361 or a 4381? 
  * Re: Odd request: anyone know of where I might find a 4361 or a 4381? (07/30)
From: William Donzelli wdonze...@gmail.com 
  * Re: Odd request: anyone know of where I might find a 4361 or a 4381? (07/30)
From: Ed Finnell efinnel...@aol.com 
8. Working Set = Real Frames + Aux Slots? 
  * Working Set = Real Frames + Aux