Re: Trapping SMSG messages
Since you showed yours, here's mine. Admittedly not as pretty, but then I
don't have a user community.
It also handles being used on a service machine that has a secuser.
It reduces Frank's original exec to:
/* */
Address Command
'PIPE Rexx SMSGRPY VMUTIL RUALIVE|Locate /IMOKAY/|Count lines|Aggrc'
Exit ^rc
Isn't this fun???
/*
** SMSG's an arbitrary target SVM, captures responses and inserts
** into the pipeline.
*/
Parse Upper arg tgtmach what '(' opts ')' ignored
Call InitRtn
'CallPipe (Name GetSMsgResp End ?)',
'Literal' timeout_value,
'|Delay',
'|stopper:Faninany',
'|xx:Gate',
'?',
'Starmsg *MSG CP SMSG' tgtmach what ||,
'|xx:',
'|ours:Find 0001' || Left(tgtmach,8,'_') ||,
'|dec:Fanout',
'|Take 1',
'|Spec /' || msg_wait || '/ 1',
'|Elastic',
'|Delay',
'|stopper:',
'?dec:',
'|Spec 17-* n',
'|*:',
'?ours:',
'|obnd:Pick 17.10 == /HCPMSG045E/',
'|Elastic',
'|stopper:',
'?obnd:',
'|Spec /From/ 1 9.8 strip nw /:/ n 17-* nw',
'|Cons'
Call CleanUp
Exit xRc
InitRtn:
timeout_value = '+20';msg_wait='+1'
what = Strip(what)
Parse value Diag(8,'Q SET') with . 'MSG' wasmsg ',' . 'CPCONIO' wascpcio
',' .
iRc = 0
popts=''
Do while opts ''
Parse var opts opt opts
Select
When Abbrev('TIMEOUT',opt,1) |,
Abbrev('DELAY',opt,3) then Do
Parse var opts timeout_value opts
If Pos('.',timeout_value)=1 then
timeout_value='0'timeout_value
timeout_value = '+' || timeout_value
End
When Abbrev('WAITCONT',opt,1) |,
Abbrev('WAITON',opt,1) then Do
Parse var opts msg_wait opts
If pos('.',msg_wait)=1 then msg_wait='0'msg_wait
msg_wait = '+' || msg_wait
End
Otherwise popts = Strip(popts opt)
End /* select */
End
If popts'' then what = what'('popts')'
If iRc 0 then Exit iRc
/*---*---*---*---*---*---*/
/* Ensure secuser isn't directing msgs elsewhere */
/*---*---*---*---*---*---*/
dscd = Word(Diag(8,'Q CONS'),3) == 'DISCONNECTED'
If dscd then Do
Parse value DiagRc(8,'Q PRIV') with . '15'x . ':' myprivs . '15'x
If Verify(myprivs,'AC','M')0 then do_me = '*'
Else do_me = ''
Parse value DiagRc(8,'Q SECUSER *'),
with . '15'x . '15'x suinfo '15'x
Parse var suinfo . whoisit .
If whoisit'not'
then Parse value DiagRc(8,'SET SECUSER' do_me 'OFF') with .
Else whoisit = ''
End
'Commit 0' /* hot to trot */
x=Diag(8,'SET MSG IUCV' || '15'x || 'SET CPCONIO IUCV')
Return
CleanUp:
xRc = Rc
x = Diag(8,'SET MSG' wasmsg || '15'x || 'SET CPCONIO' wascpcio)
If dscd then if whoisit''
then Parse value Diag(8,'SET SECUSER' do_me whoisit) with .
Return
--
Mike Harding
z/VM System Support
mhard...@us.ibm.com
mike.b.hard...@kp.org
mikehard...@mindless.com
(925) 926-3179 (w)
(925) 323-2070 (c)
IM: VMBearDad (AIM), mbhcpcvt (Y!)
The IBM z/VM Operating System IBMVM@LISTSERV.UARK.EDU wrote on 08/04/2011
10:48:04 AM:
From: Mike Walter mike.wal...@aonhewitt.com
To: IBMVM@LISTSERV.UARK.EDU
Date: 08/04/2011 11:07 AM
Subject: Re: Trapping SMSG messages
Sent by: The IBM z/VM Operating System IBMVM@LISTSERV.UARK.EDU
Frank,
See below for an old, generalized, EXEC that I’ve been using and re-
using for years to use WAKEUP reliably. We have it in our tools
disk, available to all applications programmers as a sample, using
the WAKEUP operands I use most often. It requires requires anyone
using it to plug in their processing at the appropriate points.
Mike Walter
Aon Corporation
The opinions expressed herein are mine alone, not my employer's.
Re: Capturing response from SCS
Okay, as long as we're posting code...
My version is a bit more generic, but also takes into account that it might
be issued from a SECUSER-ed disconnected id.
/*
** SMSG's an arbitrary target SVM, captures responses and inserts
** into the pipeline.
*/
Parse Upper arg tgtmach what '(' opts ')' ignored
Call InitRtn
'CallPipe (Name GetSMsgResp End ?)',
'Literal' timeout_value,
'|Delay',
'|stopper:Faninany',
'|xx:Gate',
'?',
'Starmsg *MSG CP SMSG' tgtmach what ||,
'|xx:',
'|ours:Find 0001' || Left(tgtmach,8,'_') ||,
'|dec:Fanout',
'|Take 1',
'|Spec /' || msg_wait || '/ 1',
'|Elastic',
'|Delay',
'|stopper:',
'?dec:',
'|Spec 17-* n',
'|*:',
'?ours:',
'|obnd:Pick 17.10 == /HCPMSG045E/',
'|Elastic',
'|stopper:',
'?obnd:',
'|Spec /From/ 1 9.8 strip nw /:/ n 17-* nw',
'|Cons'
Call CleanUp
Exit xRc
InitRtn:
timeout_value = '+20';msg_wait='+1'
what = Strip(what)
Parse value Diag(8,'Q SET') with . 'MSG' wasmsg . 'CPCONIO' wascpcio .
wasmsg = Strip(wasmsg,'T',',')
wascpcio = Strip(wascpcio,'T',',')
iRc = 0
popts=''
Do while opts ''
Parse var opts opt opts
Select
When Abbrev('TIMEOUT',opt,1) |,
Abbrev('DELAY',opt,3) then Do
Parse var opts timeout_value opts
If Pos('.',timeout_value)=1 then
timeout_value='0'timeout_value
timeout_value = '+' || timeout_value
End
When Abbrev('WAITCONT',opt,1) |,
Abbrev('WAITON',opt,1) then Do
Parse var opts msg_wait opts
If pos('.',msg_wait)=1 then msg_wait='0'msg_wait
msg_wait = '+' || msg_wait
End
Otherwise popts = Strip(popts opt)
End /* select */
End
If popts'' then what = what'('popts')'
If iRc 0 then Exit iRc
/*---*---*---*---*---*---*/
/* Ensure secuser isn't directing msgs elsewhere */
/*---*---*---*---*---*---*/
dscd = Word(Diag(8,'Q CONS'),3) == 'DISCONNECTED'
If dscd then Do
Parse value DiagRc(8,'Q PRIV') with . '15'x . ':' myprivs . '15'x
If Verify(myprivs,'AC','M')0 then do_me = '*'
Else do_me = ''
Parse value DiagRc(8,'Q SECUSER *'),
with . '15'x . '15'x suinfo '15'x
Parse var suinfo . whoisit .
If whoisit'not'
then Parse value DiagRc(8,'SET SECUSER' do_me 'OFF') with .
Else whoisit = ''
End
'Commit 0' /* hot to trot */
x=Diag(8,'SET MSG IUCV' || '15'x || 'SET CPCONIO IUCV')
Return
CleanUp:
xRc = Rc
x = Diag(8,'SET MSG' wasmsg || '15'x || 'SET CPCONIO' wascpcio)
If dscd then if whoisit''
then Parse value Diag(8,'SET SECUSER' do_me whoisit) with .
Return
--
Mike Harding
z/VM System Support
mhard...@us.ibm.com
mike.b.hard...@kp.org
mikehard...@mindless.com
(925) 926-3179 (w)
(925) 323-2070 (c)
IM: VMBearDad (AIM), mbhcpcvt (Y!)
The IBM z/VM Operating System IBMVM@LISTSERV.UARK.EDU wrote on 07/20/2011
10:09:48 AM:
From: A. Harry Williams ha...@vm.marist.edu
To: IBMVM@LISTSERV.UARK.EDU
Date: 07/20/2011 10:11 AM
Subject: Re: Capturing response from SCS
Sent by: The IBM z/VM Operating System IBMVM@LISTSERV.UARK.EDU
/*
*
* ROUTINE: RSCS REXX (pipeline driver for RSCS 3.1)
-- etc --
Re: Capturing response from SCS
Good answer, and it's there because in one application there was another stage which wouldn't go to ready (commit 0) until everyone else did. In most cases it's a harmless artifact. -- Mike Harding z/VM System Support mhard...@us.ibm.com mike.b.hard...@kp.org mikehard...@mindless.com (925) 926-3179 (w) (925) 323-2070 (c) IM: VMBearDad (AIM), mbhcpcvt (Y!) The IBM z/VM Operating System IBMVM@LISTSERV.UARK.EDU wrote on 07/20/2011 02:45:41 PM: From: Scott Rohling scott.rohl...@gmail.com To: IBMVM@LISTSERV.UARK.EDU Date: 07/20/2011 02:46 PM Subject: Re: Capturing response from SCS Sent by: The IBM z/VM Operating System IBMVM@LISTSERV.UARK.EDU It's a plumbing thing .. HELP PIPE COMMIT .. commit 0 requests that the commit level of the TCOMMT stage be raised to 0. The TCOMMT stage is then suspended until all the other stages in the pipeline have committed at least to level 0 or have ended. The return code from COMMIT is then set to the current aggregate code. That explains it - right? ;-) Scott Rohling On Wed, Jul 20, 2011 at 2:34 PM, Fran Hensler f...@zvm.sru.edu wrote: What is line 78 supposed to do? 'Commit 0' /* hot to trot */ /Fran Hensler at Slippery Rock University of Pennsylvania USA for 48 years mailto:f...@zvm.sru.edu http://zvm.sru.edu/~fjh +1.724.794.6172 Yes, Virginia, there is a Slippery Rock
Re: Two simple TCPIP / FTPSERVE questions.
You've been wearing your Linux appliance hat too long. Much lighter-weight would be a few lines of Rexx with or without Romney's FTP package, running periodically as a task in your automation solution or a standalone (CMS) VSM. -- Mike Harding z/VM System Support mhard...@us.ibm.com mike.b.hard...@kp.org mikehard...@mindless.com (925) 926-3179 (w) (925) 323-2070 (c) IM: VMBearDad (AIM), mbhcpcvt (Y!) The IBM z/VM Operating System IBMVM@LISTSERV.UARK.EDU wrote on 07/06/2011 07:35:19 AM: From: David Boyes dbo...@sinenomine.net To: IBMVM@LISTSERV.UARK.EDU Date: 07/06/2011 07:35 AM Subject: Re: Two simple TCPIP / FTPSERVE questions. Sent by: The IBM z/VM Operating System IBMVM@LISTSERV.UARK.EDU Very simple way: set up a small Linux instance and install Nagios on it. Configure a FTP probe in Nagios, and configure a notification to a user on the VM system. The Nagios system will test the FTP server by connecting and attempting to transfer a small file periodically. If it fails, it sends a notification email. Handle the email with PROP. That approach tests not only whether the server is logged in, but whether it’s actually functioning. Works well for lots of things, and is low-cost (no cost if you run Debian or Fedora for Z).
Re: Where console message is stored using Operation Manager
Beg to differ. While all messages for all monitored userids are logged to Operations Manager's log on disk, recent (for various values of recent) console activity is kept in data spaces, the size of which is specifiable. That's why, for a particularly active (console-wise) userid, one can only page back so far. Actually, that can be several days for low-console-activity userids, but may be only an hour or a few for those which really pump out messages. -- Mike Harding z/VM System Support mhard...@us.ibm.com mike.b.hard...@kp.org mikehard...@mindless.com (925) 926-3179 (w) (925) 323-2070 (c) IM: VMBearDad (AIM), mbhcpcvt (Y!) The IBM z/VM Operating System IBMVM@LISTSERV.UARK.EDU wrote on 07/04/2011 08:23:37 PM: From: Alan Altmark/Endicott/IBM@IBMUS To: IBMVM@LISTSERV.UARK.EDU Date: 07/04/2011 08:24 PM Subject: Re: Where console message is stored using Operation Manager Sent by: The IBM z/VM Operating System IBMVM@LISTSERV.UARK.EDU On Monday, 07/04/2011 at 10:13 EDT, Lu GL Gao lu...@cn.ibm.com wrote: If we use Operation Manager on z/VM, we can supervise user's console by GOMCMD OPMGRM1 VIEWCON USER(). This console message includes historical loging messages for that user. What these messages were stored in? in spool or in storage? How can I check the space left to store these messages? They are stored on disk. Read the Log Management appendix of the Operations Manager Administration Guide. Alan Altmark Senior Managing z/VM and Linux Consultant IBM System Lab Services and Training ibm.com/systems/services/labservices office: 607.429.3323 mobile; 607.321.7556 alan_altm...@us.ibm.com IBM Endicott
Re: Where console message is stored using Operation Manager
Okay, I was keying off the OP's mention of VIEWCON. -- Mike Harding z/VM System Support mhard...@us.ibm.com mike.b.hard...@kp.org mikehard...@mindless.com (925) 926-3179 (w) (925) 323-2070 (c) IM: VMBearDad (AIM), mbhcpcvt (Y!) The IBM z/VM Operating System IBMVM@LISTSERV.UARK.EDU wrote on 07/05/2011 10:15:29 AM: From: Alan Altmark/Endicott/IBM@IBMUS To: IBMVM@LISTSERV.UARK.EDU Date: 07/05/2011 10:17 AM Subject: Re: Where console message is stored using Operation Manager Sent by: The IBM z/VM Operating System IBMVM@LISTSERV.UARK.EDU On Tuesday, 07/05/2011 at 12:42 EDT, Michael Harding/Oakland/IBM@IBMUS wrote: Beg to differ. While all messages for all monitored userids are logged to Operations Manager's log on disk, recent (for various values of recent) console activity is kept in data spaces, the size of which is specifiable. That's why, for a particularly active (console-wise) userid, one can only page back so far. Actually, that can be several days for low-console-activity userids, but may be only an hour or a few for those which really pump out messages. We don't really differ on this. I read stored as permanently stored. The messages are permanently[1] stored on disk, but as you say, recent messages are also kept in a data space, one for each monitored user. The amount of data in a user's private data space is controlled by DEFDSPS (default 1M). I believe all of the VIEWxxx commands get their data only from the data spaces, not the log file(s). Alan Altmark Senior Managing z/VM and Linux Consultant IBM System Lab Services and Training ibm.com/systems/services/labservices office: 607.429.3323 mobile; 607.321.7556 alan_altm...@us.ibm.com IBM Endicott [1] Subject to your retention policy. Obviously you can't accumulate it on local disk forever!
Re: VM Workshop - Session Grid Now Available
Well my first was at Asilomar in 86 (I think) or 87. I remember Rich's being there, but not you; though I do recall you from others. -- Mike Harding z/VM System Support mhard...@us.ibm.com mike.b.hard...@kp.org mikehard...@mindless.com (925) 926-3179 (w) (925) 323-2070 (c) IM: VMBearDad (AIM), mbhcpcvt (Y!) From: Kent E. Taylor email...@stny.rr.com I think I've been to all the Workshops from the first one at Waterloo through 1989's one at U of Arkansas. I recall Maine, Wichita State, and Michigan State as well as Waterloo and Arkansas. I think there might have been at least one more, but I can't think of it just now. Senior moment, doncha know Kent Mongo Taylor
Re: RMSMASTR and shutdowns
It might be nice if you could tell CP to stagger its shutdown signals, but I don't think that's going to happen. That's what automation's for... What about a combination of your approaches? 1. Put the NOSHUTDOWNSIGNAL in the SFS servers' parms files as you said. 2. Have VM:Operator (or your other SHUTTRAP thingy) first do the dmsrm stop followed by a force if unsuccessful. 3. When RMSMASTER is down, or in the last 10 or so of your 300-second window send the SFS servers a STOP command. -- Mike Harding z/VM System Support mhard...@us.ibm.com mike.b.hard...@kp.org mikehard...@mindless.com (925) 926-3179 (w) (925) 323-2070 (c) IM: VMBearDad (AIM), mbhcpcvt (Y!) The IBM z/VM Operating System IBMVM@LISTSERV.UARK.EDU wrote on 06/23/2011 02:09:45 PM: From: Marcy Cortes marcy.d.cor...@wellsfargo.com To: IBMVM@LISTSERV.UARK.EDU Date: 06/23/2011 02:14 PM Subject: RMSMASTR and shutdowns Sent by: The IBM z/VM Operating System IBMVM@LISTSERV.UARK.EDU -- snip -- We'll probably work around it by one of these things 1. Use CA VM:Operator to FORCE RMSMASTR upon message HCPSHU6018I The processor controller has sent a shutdown signal with a timeout interval of 300 seconds 2. Use FORCE if dfsmsrm stop fails with DGTUDR2016E User not authorized to issue this command 3. Put NOSHUTDOWNSIGNAL in the parms file for VMSERVS and VMSERVU. Not nice to them, but what would we lose? Not much I think.
Re: Moving on
Richard, I too appreciate your years of contributing to the community through this and other fora. I hope you'll remain connected. -- Mike Harding z/VM System Support mhard...@us.ibm.com mike.b.hard...@kp.org mikehard...@mindless.com (925) 926-3179 (w) (925) 323-2070 (c) IM: VMBearDad (AIM), mbhcpcvt (Y!) The IBM z/VM Operating System IBMVM@LISTSERV.UARK.EDU wrote on 06/22/2011 09:51:14 AM: From: Schuh, Richard rsc...@visa.com To: IBMVM@LISTSERV.UARK.EDU Date: 06/22/2011 09:53 AM Subject: Moving on Sent by: The IBM z/VM Operating System IBMVM@LISTSERV.UARK.EDU After 48 years in the industry, involved with VM for the last 38 of them, I will be retiring early next month. I don't think it is possible to find a better group of people than the VM List. The professionalism, the willingness, even eagerness, to help others is outstanding. You have made my job easier. I wish you all the best. It has been nice, sometimes even fun, to know and work with such an exemplary group of people. Regards, Richard Schuh
Re: Sending messages to z/OS from z/VM using RSCS
Don't know if it still works or what authorizations might be required, but at one time you could use the operator send command: se 'your message',njenode.userid or something to that effect. -- Mike Harding z/VM System Support mhard...@us.ibm.com mike.b.hard...@kp.org mikehard...@mindless.com (925) 926-3179 (w) (925) 323-2070 (c) IM: VMBearDad (AIM), mbhcpcvt (Y!) The IBM z/VM Operating System IBMVM@LISTSERV.UARK.EDU wrote on 06/06/2011 09:40:45 AM: From: Hughes, Jim jim.hug...@doit.nh.gov To: IBMVM@LISTSERV.UARK.EDU Date: 06/06/2011 09:41 AM Subject: Sending messages to z/OS from z/VM using RSCS Sent by: The IBM z/VM Operating System IBMVM@LISTSERV.UARK.EDU I am able to send messages to a z/OS TSO userid using the RSCS command MSG from z/VM. How would the TSO userid send a message to me on the z/VM node? z/VM node is DIS3081. Z/OS node is MVSSYS. Would the z/OS TSO userid be able to issue commands to the z/VM system or would PROP be involved? TIA Jim Hughes Consulting Systems Programmer Mainframe Technical Support Group Department of Information Technology State of New Hampshire 27 Hazen Drive Concord, NH 03301 603-271-5586Fax 603.271.1516 Statement of Confidentiality: The contents of this message are confidential. Any unauthorized disclosure, reproduction, use or dissemination (either whole or in part) is prohibited. If you are not the intended recipient of this message, please notify the sender immediately and delete the message from your system.
Re: Sort IP addresses
Exactly: /*/ IP_addr.1 = '10.23.178.200' IP_addr.2 = '192.168.128.12' IP_addr.3 = '172.12.210.34' IP_addr.0 = 3 'PIPE (End ? Name IP_Sort) stem IP_addr.', '|Spec fs blank ws . pad 0 ', 'substr w1 of f1 n.3 right', 'substr w2 of f1 n.3 right', 'substr w3 of f1 n.3 right', 'substr w4 of f1 n.3 right', '1-* n', '|Sort 1.12', '|Spec 13-* n', '|Cons' Exit Rc If the ipaddress isn't at the front of each record you'd of course have to adjust the field #, and possibly the field separator. If your input was a spreadsheet saved as a csv for example, with the ip addresses in column D, you'd use fs , and f4. -- Mike Harding z/VM System Support mhard...@us.ibm.com mike.b.hard...@kp.org mikehard...@mindless.com (925) 926-3179 (w) (925) 323-2070 (c) IM: VMBearDad (AIM), mbhcpcvt (Y!) The IBM z/VM Operating System IBMVM@LISTSERV.UARK.EDU wrote on 05/24/2011 08:59:45 AM: From: Schuh, Richard rsc...@visa.com To: IBMVM@LISTSERV.UARK.EDU Date: 05/24/2011 09:01 AM Subject: Re: Sort IP addresses Sent by: The IBM z/VM Operating System IBMVM@LISTSERV.UARK.EDU Or, if you are sorting in a pipe, create a separate sort key and retain the original unmolested addresses. Regards, Richard Schuh -Original Message- From: The IBM z/VM Operating System [mailto:IBMVM@LISTSERV.UARK.EDU] On Behalf Of Alan Altmark Sent: Tuesday, May 24, 2011 8:49 AM To: IBMVM@LISTSERV.UARK.EDU Subject: Re: Sort IP addresses On Tuesday, 05/24/2011 at 11:30 EDT, Dave Jones d...@vsoft-software.com wrote: num1 = right(num1,3,'0') num2 = right(num2,3,'0') num3 = right(num3,3,'0') num4 = right(num4,3,'0') padded_IP_addr.i = num1 || '.' || num2 || '.' || num3 || '.' || num4 That's ok for an intermediate result for sorting, but dogma requires that include i in there so that you can relate it back to the original list. A dotted-quad element with leading zeros is traditionally interpreted as octal. Alan Altmark z/VM and Linux on System z Consultant IBM System Lab Services and Training ibm.com/systems/services/labservices office: 607.429.3323 mobile; 607.321.7556 alan_altm...@us.ibm.com IBM Endicott
Re: Short circuit SMTP
Sure, just leave the SMTP userid down. If you don't want to update your profile tcpip, issue a hold smtp logon from operator at system ipl time. Outgoing mail will pile up in its reader without going anywhere. -- Mike Harding z/VM System Support mhard...@us.ibm.com mike.b.hard...@kp.org mikehard...@mindless.com (925) 926-3179 (w) (925) 323-2070 (c) IM: VMBearDad (AIM), mbhcpcvt (Y!) The IBM z/VM Operating System IBMVM@listserv.uark.edu wrote on 05/24/2011 12:59:51 PM: From: Frank M. Ramaekers framaek...@ailife.com To: IBMVM@listserv.uark.edu Date: 05/24/2011 01:02 PM Subject: Short circuit SMTP Sent by: The IBM z/VM Operating System IBMVM@listserv.uark.edu Is there a way to short-circuit SMTP so that it will receive the outgoing mail, but not deliver it? We have some z/VSEs that have the z/VM SMTP has the SMTP server. In a DR situation, we don’t want to have to jerk out all of the EMAIL jobs or work around any email failures. So, is there a way to configure the z/VM SMTP to accept the incoming email requests, but just not do anything with them? TIA, Frank M. Ramaekers Jr. Systems Programmer MCP, MCP+I, MCSE RHCE American Income Life Insurance Co. Phone: (254)761-6649 1200 Wooded Acres Dr. Fax: (254)741-5777 Waco, Texas 76701 [image removed] _ This message contains information which is privileged and confidential and is solely for the use of the intended recipient. If you are not the intended recipient, be aware that any review, disclosure, copying, distribution, or use of the contents of this message is strictly prohibited. If you have received this in error, please destroy it immediately and notify us at privacy...@ailife.com.
Re: Short circuit SMTP
Oh (chagrined), I didn't understand what you were saying in your original post. In that case I like Alan's solution. -- Mike Harding z/VM System Support mhard...@us.ibm.com mike.b.hard...@kp.org mikehard...@mindless.com (925) 926-3179 (w) (925) 323-2070 (c) IM: VMBearDad (AIM), mbhcpcvt (Y!) The IBM z/VM Operating System IBMVM@LISTSERV.UARK.EDU wrote on 05/24/2011 01:38:55 PM: From: Frank M. Ramaekers framaek...@ailife.com To: IBMVM@LISTSERV.UARK.EDU Date: 05/24/2011 01:41 PM Subject: Re: Short circuit SMTP Sent by: The IBM z/VM Operating System IBMVM@LISTSERV.UARK.EDU Well, it doesn’t arrive in SMTP reader from z/VSE systems. The z/ VSE systems contact the z/VM SMTP server via SMTP. Frank M. Ramaekers Jr.
Re: DASD HA R0 ?
If you're going back that far, ISTR that R0, if writeable at all, was used on an otherwise bad track to point to its alternate. -- Mike Harding z/VM System Support mhard...@us.ibm.com mike.b.hard...@kp.org mikehard...@mindless.com (925) 926-3179 (w) (925) 323-2070 (c) IM: VMBearDad (AIM), mbhcpcvt (Y!) The IBM z/VM Operating System IBMVM@LISTSERV.UARK.EDU wrote on 05/20/2011 11:56:14 AM: From: Schuh, Richard rsc...@visa.com To: IBMVM@LISTSERV.UARK.EDU Date: 05/20/2011 11:56 AM Subject: Re: DASD HA R0 ? Sent by: The IBM z/VM Operating System IBMVM@LISTSERV.UARK.EDU Must have been a thing from OS/360, then, probably from a time before there was Sense id and RDC. Writing the capacity of the track in R0 might have been helpful in those days. The fact that the Write R0 CCW erases the entire track insures that the part about updating it is incorrect. Regards, Richard Schuh
Re: Nothing today?
That would be Tivoli. -- Mike Harding z/VM System Support mhard...@us.ibm.com mike.b.hard...@kp.org mikehard...@mindless.com (925) 926-3179 (w) (925) 323-2070 (c) IM: VMBearDad (AIM), mbhcpcvt (Y!) The IBM z/VM Operating System IBMVM@LISTSERV.UARK.EDU wrote on 05/17/2011 02:37:19 PM: From: Alan Altmark/Endicott/IBM@IBMUS To: IBMVM@LISTSERV.UARK.EDU Date: 05/17/2011 02:37 PM Subject: Re: Nothing today? Sent by: The IBM z/VM Operating System IBMVM@LISTSERV.UARK.EDU On Tuesday, 05/17/2011 at 04:14 EDT, Frank M. Ramaekers framaek...@ailife.com wrote: No posts today? Any time you want to know if there have been any posts, just go to the web portal for the listserver and see. No need to post. That just awakens us from perfectly good naps for no reason. Imagine if you woke up a sleeping operating system just to ask it if it had any work to do. That would be bad. :-) Alan Altmark z/VM and Linux on System z Consultant IBM System Lab Services and Training ibm.com/systems/services/labservices office: 607.429.3323 mobile; 607.321.7556 alan_altm...@us.ibm.com IBM Endicott
Re: RSCS CTCA between a first and second level system...
IOW what does the LOCAL statement in your RSCS CONFIGs specify? -- Mike Harding z/VM System Support mhard...@us.ibm.com mike.b.hard...@kp.org mikehard...@mindless.com (925) 926-3179 (w) (925) 323-2070 (c) IM: VMBearDad (AIM), mbhcpcvt (Y!) The IBM z/VM Operating System IBMVM@LISTSERV.UARK.EDU wrote on 02/07/2011 10:28:48 AM: From: Alan Altmark/Endicott/IBM@IBMUS To: IBMVM@LISTSERV.UARK.EDU Date: 02/07/2011 10:30 AM Subject: Re: RSCS CTCA between a first and second level system... Sent by: The IBM z/VM Operating System IBMVM@LISTSERV.UARK.EDU On Monday, 02/07/2011 at 11:53 EST, RPN01 nix.rob...@mayo.edu wrote: The systems are polar and npolar. DMTNCR916E Invalid NJE signon connection record received That message comes out because signon record contains - A node id that doesn't match the local system's expectation of who is at the other end - The signon record is too long (unusual) - There is a feature mismatch (unusual) - syntax errors in the signon protocol (unusual) Alan Altmark z/VM and Linux on System z Consultant IBM System Lab Services and Training ibm.com/systems/services/labservices office: 607.429.3323 alan_altm...@us.ibm.com IBM Endicott
Re: CMS disk weirdness between processors
And thanks for owning up instead of leaving the rest of us wondering. Those pesky 0s... -- Mike Harding z/VM System Support mhard...@us.ibm.com mike.b.hard...@kp.org mikehard...@mindless.com (925) 926-3179 (w) (925) 323-2070 (c) IM: VMBearDad (AIM), mbhcpcvt (Y!) The IBM z/VM Operating System IBMVM@LISTSERV.UARK.EDU wrote on 01/18/2011 12:44:28 PM: From: Marcy Cortes marcy.d.cor...@wellsfargo.com To: IBMVM@LISTSERV.UARK.EDU Date: 01/18/2011 12:45 PM Subject: Re: CMS disk weirdness between processors Sent by: The IBM z/VM Operating System IBMVM@LISTSERV.UARK.EDU Ah, glad it was simple! Good luck! Marcy -Original Message- From: The IBM z/VM Operating System [mailto:IBMVM@LISTSERV.UARK.EDU] On Behalf Of Martha McConaghy Sent: Tuesday, January 18, 2011 12:39 PM To: IBMVM@LISTSERV.UARK.EDU Subject: Re: [IBMVM] CMS disk weirdness between processors ...blush I have to admit, I found the problem not long after sending the note to the list. It was a rookie mistake. The disk was defined as 100 cylinders on one system, but only 10 cylinders on the other. So, files written on the 2nd system were usable, but files written by the 1st system were not. I fixed the definition on the 2nd system and all is now OK. Just trying to do too many things at once, trying to rush into production. Martha On Tue, 18 Jan 2011 14:23:31 -0600 Marcy Cortes said: That doesn't sound right. MDC getting in your way? Marcy -Original Message- From: The IBM z/VM Operating System [mailto:IBMVM@LISTSERV.UARK.EDU ] On Behalf Of Martha McConaghy Sent: Monday, January 17, 2011 9:16 AM To: IBMVM@LISTSERV.UARK.EDU Subject: [IBMVM] CMS disk weirdness between processors I'm in the process of migrating our production LPARs from a z9 to a z10 and I've found a bit of weirdness. Since the z10 has been around awhile, I assume this isn't anything new, but I wonder why it is happening. I've found that a CMS minidisk that is created while on the z9, is readable by a VM system on the z10. However, if (from the z10) a fle is modified, that file is no longer readable by the CMS system on the z9. I get a DMSXIN104S error code 3 when trying to read the file. Moreover, if (from the z9), I try to write a new file to the disk, I get a different error, and CMS crashes. (All of these z/VM systems are the same by the way, z/VM 5.4.0 RSU 1001.) I've always been able to share disks between systems on different processors before, so I wonder what is different now? I've got a z990 that I still have to maintain and this is going to make life more difficult. Martha
Re: Toolsrun function without RSCS
Faced with similar circumstances, I used the UFT support in the free RSCS and the UFTD server that comes with TCPIP. Then it was a simple exercise to note and propagate changes. -- Mike Harding z/VM System Support mhard...@us.ibm.com mike.b.hard...@kp.org mikehard...@mindless.com (925) 926-3179 (w) (925) 323-2070 (c) IM: VMBearDad (AIM), mbhcpcvt (Y!) The IBM z/VM Operating System IBMVM@LISTSERV.UARK.EDU wrote on 12/29/2010 09:01:44 AM: From: Lee Stewart lstewart.dsgr...@attglobal.net To: IBMVM@LISTSERV.UARK.EDU Date: 12/29/2010 09:01 AM Subject: Toolsrun function without RSCS Sent by: The IBM z/VM Operating System IBMVM@LISTSERV.UARK.EDU Hi... I fondly remember TOOLSRUN from my IBM days... We're looking for a similar function - a tools repository mirrored between many VMs, some distant. But we aren't licensed for RSCS, and that cost becomes prohibitive for this customer... So short of writing our FTP based tool, does anyone have any thoughts on any easy way to keep a set of local tools in sync across multiple systems? Thanks, Lee -- Lee Stewart, Senior SE Sirius Computer Solutions Phone: (303) 996-7122 Email: lee.stew...@siriuscom.com Web: www.siriuscom.com
Re: Configuration Puzzler
The fact that you had to logon to B, and detach/relink the disk tells me that either (1) B never really logged off, or more likely (2) B wasn't linking the disk you thought it was, but when you did it manually you got the disk you thought it should have (the one A updated). -- Mike Harding z/VM System Support mhard...@us.ibm.com mike.b.hard...@kp.org mikehard...@mindless.com (925) 926-3179 (w) (925) 323-2070 (c) IM: VMBearDad (AIM), mbhcpcvt (Y!) The IBM z/VM Operating System IBMVM@LISTSERV.UARK.EDU wrote on 12/29/2010 03:17:53 PM: From: Schuh, Richard rsc...@visa.com To: IBMVM@LISTSERV.UARK.EDU Date: 12/29/2010 03:18 PM Subject: Re: Configuration Puzzler Sent by: The IBM z/VM Operating System IBMVM@LISTSERV.UARK.EDU As stated, one has it R/W the other R/O. Someone has to log on to the machine that has it R/W to update it, there is nothing in the machine, itself, that writes anything. I am aware of MDC, and it is not in play, here. Both are on the same VM system. The update was done while both were logged off. The file was only updated once. The trials, including several logoff/logon sequences, spanned a couple of hours on a system that is lightly loaded. Regards, Richard Schuh From: The IBM z/VM Operating System [mailto:ib...@listserv.uark.edu] On Behalf Of Kris Buelens Sent: Wednesday, December 29, 2010 2:09 PM To: IBMVM@LISTSERV.UARK.EDU Subject: Re: Configuration Puzzler Your machines don't share it in MW mode? If yes, anything is possible They are on the same z/VM system? If not, the MDC cache on the system that didn't update the disk can be backlevel. 2010/12/29 Schuh, Richard rsc...@visa.com We have two service machines, I will call them A and B for this discussion. These machines share a 191 disk. When A is xautologged, it initializes itself and then xautologs B. I logged both machines off and added two new ACCESS commands to the PROFILE EXEC. I then logged A on and checked its configuration. It reflected the changes from the PROFILE. It AUTOLOGGed B. B came up using the old profile. I stopped the server code on B and checked the configuration. It was indeed the old profile that was used. A q links 191 showed that A had it as its 191 in R/W mode, while B had it as 191 R/O. A list profile exec * found only one such file, on the A disk, , and on B it was the old configuration. I then logged both off and xautologged A. Again, B came up with the old configuration. I tried the logoff/ logon sequence several times, all with the same result. I finally detached the 191 disk from B and relinked it. This time, the new profile exec was there, like it should have been all along. How is this even possible? Are we going to be plagued by this every time we xautolog A? Clearly the pointers were all correct when the first machine logged on. Given that, I would certainly expect that they would be correct when the second machine linked to the same disk and accessed it. Regards, Richard Schuh -- Kris Buelens, IBM Belgium, VM customer support
Re: Shopz Function
At least it isn't binary: 01100110011100010 -- Mike Harding The IBM z/VM Operating System IBMVM@LISTSERV.UARK.EDU wrote on 11/17/2010 09:49:35 AM: From: Schuh, Richard rsc...@visa.com To: IBMVM@LISTSERV.UARK.EDU Date: 11/17/2010 09:49 AM Subject: Shopz Function Sent by: The IBM z/VM Operating System IBMVM@LISTSERV.UARK.EDU In the Shopz new function announcement that I just received, the salutation was, Dear 52450 Schuh,. I am not sure that I will recognize it if someone calls me by my new first name. It will take some time getting used to it. Regards, 52450 (Richard) Schuh
Re: No IPL VSWITCH Connectivity
George, it's easy enough to configure Notes to use an external browser rather than its embedded one. I use Firefox, but IE and Chrome (even Safari) work equally well. -- Mike Harding z/VM System Support The IBM z/VM Operating System IBMVM@LISTSERV.UARK.EDU wrote on 11/04/2010 07:18:15 AM: From: George Henke/NYLIC george_he...@newyorklife.com To: IBMVM@LISTSERV.UARK.EDU Date: 11/04/2010 07:18 AM Subject: Re: No IPL VSWITCH Connectivity Sent by: The IBM z/VM Operating System IBMVM@LISTSERV.UARK.EDU Frank found the problem, Lotus Notes. I just used the Goggle browser and no more TGZ extension. Downloaded it and unzipped it with WINZIP, np. Learn something new everyday.
Re: Spool file locations
You'd need more visibility to the spooling blocks than any published API gives you. A spool file's SFB points to a SPM (spool management block) on disk, which then points to its data blocks (and potentially more SPM blocks). I suspect, though I don't know, that something like VM:Spool reads the SPOL-allocated areas directly to go after files, which is why it needs full-volume references to all your spool volumes. It would be an interesting exercise. -- Mike Harding z/VM System Support The IBM z/VM Operating System IBMVM@LISTSERV.UARK.EDU wrote on 11/02/2010 10:45:05 AM: From: Bob Bates robert.ba...@wellsfargo.com To: IBMVM@LISTSERV.UARK.EDU Date: 11/02/2010 10:45 AM Subject: Spool file locations Sent by: The IBM z/VM Operating System IBMVM@LISTSERV.UARK.EDU Greeting all creative folks, I am looking at trying to get some spool volumes removed from a system. I have them drained and they are slowly being evacuated, which is great. However, I would like to be able to see what spool files are on a specific volume. I figure there has to be a pointer somewhere that says this file has blocks on volume x at cchh, volume y at cchh, etc chaining through all its records where x and y are probably the slot numbers from the CPOWNED list, which is what I really want. There must be a way to find it. Years ago (before VM:Spool) I wrote something using Diag D8 so I could see the largest files on the spool and the user occupying the most space but it doesn’t give me the location that I can figure out. Any ideas? Bob Bates Operating Systems Engineer, z/VM and Linux on System z Enterprise Hosting Services, Mainframe/Midrange Services Wells Fargo Bank | 4056 Old Denton Rd | Carrollton, TX 75007 MAC T5369-011 Tel 469-892-6660 | Cell 214-907-5071 robert.ba...@wellsfargo.com This message may contain confidential and/or privileged information. If you are not the addressee or authorized to receive this for the addressee, you must not use, copy, disclose, or take any action based on this message or any information herein. If you have received this message in error, please advise the sender immediately by reply e-mail and delete this message. Thank you for your cooperation.
Re: Spool file locations
Cool! I'd forgotten about that. Always better when someone else has already done the legwork. -- Mike Harding z/VM System Support The IBM z/VM Operating System IBMVM@LISTSERV.UARK.EDU wrote on 11/02/2010 10:57:53 AM: From: Mike Walter mike.wal...@hewitt.com To: IBMVM@LISTSERV.UARK.EDU Date: 11/02/2010 10:58 AM Subject: Re: Spool file locations Sent by: The IBM z/VM Operating System IBMVM@LISTSERV.UARK.EDU Take a peek at SPFPACK EXEC on the IBM VM Download page: http://www.vm.ibm.com/download/packages/descript.cgi?SPFPACK
Re: High Level Assembler
Of course there's nothing preventing you from doing your zvm assemblies on zos unless local policy prevents submitting zos jobs from zvm. -- Mike Harding z/VM System Support mhard...@us.ibm.com mike.b.hard...@kp.org mikehard...@mindless.com (925) 926-3179 (w) (925) 323-2070 (c) IM: VMBearDad (AIM), mbhcpcvt (Y!) The IBM z/VM Operating System IBMVM@LISTSERV.UARK.EDU wrote on 10/26/2010 10:48:33 AM: From: William D Carroll william.d.carr...@jpmchase.com To: IBMVM@LISTSERV.UARK.EDU Date: 10/26/2010 10:50 AM Subject: Re: High Level Assembler Sent by: The IBM z/VM Operating System IBMVM@LISTSERV.UARK.EDU Been through this VM HLA and zOS HLA are separate products. One license does not fit all. William 'Doug' Carroll On 10/26/2010 12:02 PM, Brian Nielsen wrote: Something I've been wondering for a while is: We have a license for High Level Assembler for z/OS on our box, does that also cover using High Level Assembler for z/VM on the same box, or does that require a second license? If it's all covered by one license, is there any special process to get the VM version shipped as already licensed? Brian Nielsen
Re: High Level Assembler
Actually, I ripple the source, extract the needed macro definitions from their maclibs and the first step of my z/OS job constructs a temp maclib for the assemble step. Just a little fun plumbing. -- Mike Harding The IBM z/VM Operating System IBMVM@LISTSERV.UARK.EDU wrote on 10/26/2010 11:59:42 AM: From: Brian Nielsen bniel...@sco.idaho.gov To: IBMVM@LISTSERV.UARK.EDU Date: 10/26/2010 12:01 PM Subject: Re: High Level Assembler Sent by: The IBM z/VM Operating System IBMVM@LISTSERV.UARK.EDU True. Transfering the z/VM CMS MACLIBs to z/OS would be a pain, bu t doable. Brian Nielsen
Re: trsource question
Have you issued a trsave? -- Mike Harding z/VM System Support mhard...@us.ibm.com mike.b.hard...@kp.org mikehard...@mindless.com (925) 926-3179 (w) (925) 323-2070 (c) IM: VMBearDad (AIM), mbhcpcvt (Y!) The IBM z/VM Operating System IBMVM@LISTSERV.UARK.EDU wrote on 10/22/2010 04:45:06 PM: From: Tom Huegel tehue...@gmail.com To: IBMVM@LISTSERV.UARK.EDU Date: 10/22/2010 04:47 PM Subject: trsource question Sent by: The IBM z/VM Operating System IBMVM@LISTSERV.UARK.EDU Can anyone see what I am doing wrong? Thanks trsource id io1 set ioset type io ldev l191 user ctilinx1 iodata 200 Ready; T=0.01/0.01 16:42:32 q trsource SET IOSET ID TYPE SET STATUS LDEVS USER IODATA IO1 IO IOSET DISABLED 0191 CTILINX1 0200 Ready; T=0.01/0.01 16:42:39 trsource enable all HCPTXI477E Traceid IO1 not enabled; incomplete definition Ready(00477); T=0.01/0.01 16:42:45
Re: RSU or PSU?
In that case Mike, the cplevel reported at ipl time wouldn't show the new build date. The lack of any maintenance in the RSU for HCPCPE would indicate the RSU wasn't complete in that regard and it's time to open a PMR. -- Mike Harding z/VM System Support mhard...@us.ibm.com mike.b.hard...@kp.org mikehard...@mindless.com (925) 926-3179 (w) (925) 323-2070 (c) IM: VMBearDad (AIM), mbhcpcvt (Y!) The IBM z/VM Operating System IBMVM@LISTSERV.UARK.EDU wrote on 10/20/2010 02:10:34 PM: From: Mike Walter mike.wal...@hewitt.com To: IBMVM@LISTSERV.UARK.EDU Date: 10/20/2010 02:10 PM Subject: Re: RSU or PSU? Sent by: The IBM z/VM Operating System IBMVM@LISTSERV.UARK.EDU George, One more thing... might you have moved the CF1, CF2, and or CF3 MDISK location (perhaps to enlarge them) and forgotten to re-run CPFMTXA to change the PARM disk allocations? If so, that could be it... when CP is IPLed, it's going to look at the first PARM disk allocation. At that point CP knows nothing about MDISKs defined in the directory, it's too soon in the IPL to have read in and processed the DRCT (object directory) cylinders. Mike Walter Aon Hewitt The opinions expressed herein are mine alone, not my employer's.
Re: z/VSE dispatch of multi-CPU under VM
Also... you haven't mentioned whether you adjusted the share value when you added virtual cpus to your VSE guest. Remember that each v-cpu will get only 1/n of the userid's share, which may place them at a disadvantage if competing with the virtual cpus of your other guests. So if I'm running most guests with one v-cpu at the default share of relative 100, then I'd give a 4-cpu guest a share of 400 (to put all v-cpus on an equal footing). -- Mike Harding z/VM System Support mhard...@us.ibm.com mike.b.hard...@kp.org mikehard...@mindless.com (925) 926-3179 (w) (925) 323-2070 (c) IM: VMBearDad (AIM), mbhcpcvt (Y!) The IBM z/VM Operating System IBMVM@LISTSERV.UARK.EDU wrote on 09/29/2010 02:52:15 PM: From: Rob van der Heij rvdh...@velocitysoftware.com To: IBMVM@LISTSERV.UARK.EDU Date: 09/29/2010 02:52 PM Subject: Re: z/VSE dispatch of multi-CPU under VM Sent by: The IBM z/VM Operating System IBMVM@LISTSERV.UARK.EDU On Wed, Sep 29, 2010 at 8:54 PM, Tom Huegel tehue...@gmail.com wrote: With VSE's using only 1 CPU (non-dedicated) I carfully selected a one hour job mix. Giving VSE's 4 CPU's (non-dedicated) the same job mix ran close to 1hr 20min... This is wall clock time, which in final analysis is the only one that counts. If you think we disagree, then I was obviously not clear enough. With 7 VSE guests, the amount of resources each could get at any time will be (far) less than 400% (all 4 CPUs). If more than 4 of them working, each gets even less than one CPU worth of cycles. So one virtual CPU will do. The drawback is that with just one virtual CPU you can not get more than 100% of a CPU, not even when all the others are idle. That may or may not be a true concern. While you're right that wall clock time is what counts, performance measurements help you understand the difference between two experiments and allow you to improve performance other than through trial and error. Rob -- Rob van der Heij Velocity Software http://www.velocitysoftware.com/
Re: Applying Maintenance - Best Practice
Being the paranoid sort, I take it further. My second-level maintenance image has everything but page/spool on a single mod9. Before applying maintenance I make a backup of that volume. Once I'm satisfied with the outcome of a maintenance run I do a minidisk-by-minidisk compare of the changed system vs. the backup for all possibly involved userids. The catches deletions as well, and from the difference files I can generate execs to apply the same changes to my running images (includes the SES inventory files). -- Mike Harding The IBM z/VM Operating System IBMVM@LISTSERV.UARK.EDU wrote on 09/24/2010 10:16:26 AM: From: Kris Buelens kris.buel...@gmail.com To: IBMVM@LISTSERV.UARK.EDU Date: 09/24/2010 10:16 AM Subject: Re: Applying Maintenance - Best Practice Sent by: The IBM z/VM Operating System IBMVM@LISTSERV.UARK.EDU 2010/9/23 Mike Walter mike.wal...@hewitt.com BTW, after applying maintenance I consider it a good idea for each of the component which were serviced, to use VMFSETUP so that their disks are linked and accessed, then issue: FILELIST * * * (TODAY ISO then browse around to see what was changed. That breeds even *more* familiarity with VMSES/E and what it has done for you. That familiarity can be handy when something goes bump in the dark. :-) Mike Walter Hewitt Associates Yes, that's what I doo too but: Such a FILELIST will not detect all changes: COPYFILE (OLDDATE is used during install (and that's fine). So, I wrote a SERVICED EXEC back in 1998 that consults the VMSES PARTCAT files to see what was changed, today or since a date you pass. VMSES PARTCATs do tell when a given CMS file has been changed/installed on a minidisk/SFS dir. Available on request. One drawback: it doesn't work after installing an RSU: it will find every file that is on the RSU as being changed, even if you already had that file living there before the RSU. Not my fault, but that's what is found in the VMSES PARTCATs. -- Kris Buelens, IBM Belgium, VM customer support
Re: Listfile
It does not. Any apparent order is an artifact of how it accesses in-storage directories. For RO minidisks they'll be ordered since their directories are, but for R/W minidisks files written since the disks were accessed may appear out of sequence. -- Mike Harding z/VM System Support mhard...@us.ibm.com mike.b.hard...@kp.org mikehard...@mindless.com (925) 926-3179 (w) (925) 323-2070 (c) IM: VMBearDad (AIM), mbhcpcvt (Y!) The IBM z/VM Operating System IBMVM@LISTSERV.UARK.EDU wrote on 09/21/2010 10:02:47 AM: From: Scott Rohling scott.rohl...@gmail.com To: IBMVM@LISTSERV.UARK.EDU Date: 09/21/2010 10:03 AM Subject: Re: Listfile Sent by: The IBM z/VM Operating System IBMVM@LISTSERV.UARK.EDU As far as I know - it's alphabetical (A-Z,0-9). Scott Rohling On Tue, Sep 21, 2010 at 10:52 AM, Mark Pace pacemainl...@gmail.com wrote: Does LISTFILE have a default sort order? The help file doesn't mention in what sequence files are listed. -- Mark D Pace Senior Systems Engineer Mainline Information Systems
Re: PIPEline how to question..
Trivial, but since I felt like playing
The treatment of filemode may not be what you have in mind, but try this
for starters:
/*
**
*/
Address Command
Arg infn inft infm outhow .
Select
When Abbrev('DISK',outhow,1) then Do
outs = '| SUCCESS FILE A'
outf = '| FAILURE FILE A'
End
When Abbrev('CONS',outhow,1) | outhow = '' then Do
outs = '|Spec 1-* n /Erased/ nw|Cons'
outf = '|Spec 1-* n /*Erase Failed*/ nw|Cons'
End
Otherwise Do
Say Unrecognized parameter outhow
Exit 1
End
End
'PIPE (End ? Name Sample1)',
'' infn inft infm,
'|Pick substr 1.1 of w1 == /D/',
'|Pick substr 1.1 of w2 == /T/',
'|Pick substr 1.1 of w3 == /'infm'/',
'|du:Fanout',
'|Elastic',
'|cm:Spec w1.3 n / / n select 1 w1 nw',
'|de:Pick w -1;-1 == /0/',
'|Spec w1.3 n',
outs,
'?de:',
'|Spec w1.3 n',
outf,
'?du:',
'|Spec /ERASE/ n w1.2 nw substr 1.1 of w3 nw',
'|Not Command',
'|cm:'
Exit Rc
--
Mike Harding
z/VM System Support
mhard...@us.ibm.com
mike.b.hard...@kp.org
mikehard...@mindless.com
(925) 926-3179 (w)
(925) 323-2070 (c)
IM: VMBearDad (AIM), mbhcpcvt (Y!)
The IBM z/VM Operating System IBMVM@LISTSERV.UARK.EDU wrote on 09/20/2010
12:22:59 PM:
From: Steve Perez sspe...@corelogic.com
To: IBMVM@LISTSERV.UARK.EDU
Date: 09/20/2010 12:23 PM
Subject: PIPEline how to question..
Sent by: The IBM z/VM Operating System IBMVM@LISTSERV.UARK.EDU
Hello Listers,
I have the following scenario and would like to know how some of you woul
d
go about doing it using REXX Pipeline. If you have an example, that would
be great too.
Scenario:
1. Read a file ( PIPE fn ft fm | )
2. Select specified records with D* T* fm (format of each row is: fn ft f
m)
3. Issue the CMS command to ERASE the file
4. If the ERASE command issued for each file completed successfully, I
want to output the fn ft fm to the CONSOLE with a 'success' message OR
write the fn ft fm to a SUCCESS FILE.
5. However if the ERASE command failed for a file, I want to output that
fn ft fm to the CONSOLE with an error message OR write the fn ft fm to a
FAILED FILE.
I know I probably will need to create multistream pipelines. Can all the
above be performed in one PIPE instance or several PIPE instance?
The above is just a small section of a larger REXX EXEC doing automation
of mini-disk checking of files and clean-up.
Any and all assistance will be appreciated.
Thanks,
Steve.
Re: RSCS Messages
It depends too on how your procedures define operator. Do they refer to the OPERATOR userid or the supposedly human console operator? -- Mike Harding z/VM System Support mhard...@us.ibm.com mike.b.hard...@kp.org mikehard...@mindless.com (925) 926-3179 (w) (925) 323-2070 (c) IM: VMBearDad (AIM), mbhcpcvt (Y!) The IBM z/VM Operating System IBMVM@LISTSERV.UARK.EDU wrote on 08/16/2010 08:54:33 AM: From: Kris Buelens kris.buel...@gmail.com To: IBMVM@LISTSERV.UARK.EDU Date: 08/16/2010 08:55 AM Subject: Re: RSCS Messages Sent by: The IBM z/VM Operating System IBMVM@LISTSERV.UARK.EDU Yes indeed, but you can replace OPERATOR by any other user that has the right RSCS privs. I hoped that was obvious. 2010/8/16 Schuh, Richard rsc...@visa.com Doesn't SEND CP OPERATOR ... or FOR OPERATOR ... constitute having the operator do it? Neither of those is an acceptable solution, at least not here. Regards, Richard Schuh
Re: RSCS Messages
The CP for command may be your friend here; after all, SMSG IS a CP command... -- Mike Harding z/VM System Support The IBM z/VM Operating System IBMVM@LISTSERV.UARK.EDU wrote on 08/12/2010 01:18:40 PM: From: Schuh, Richard rsc...@visa.com To: IBMVM@LISTSERV.UARK.EDU Date: 08/12/2010 01:19 PM Subject: Re: RSCS Messages Sent by: The IBM z/VM Operating System IBMVM@LISTSERV.UARK.EDU Having the operator do anything other than a simple START, including PARM anything requires an approval process. That said, a scan of the config file reveals that an id that rarely logs on is authorized. I will use it as my surrogate. Thanks for the idea. Regards, Richard Schuh
Re: DISKACNT records
Well... Not recommended as a general practice, or for the faint of heart, and installation rules may prevent, but: d hl998 HL0998 E00036 R0998 Ready; T=0.01/0.01 09:13:05 d hle8c8.20 HLE8C8 D6D7C5D9 C1E3D6D9 D6D7C5D9 C1E3D6D9 06 RE8C8 HLE8D8 000A3C02 03040205 0A904040 40404040 Ready; T=0.01/0.01 09:13:44 d hlte8c8.20 HLE8C0 01B3F000 01B3F000 D6D7C5D9 C1E3D6D9 06 *..0...0.OPERATOR* RE8C0 HLE8D0 D6D7C5D9 C1E3D6D9 000A3C02 03040205*OPERATOR* HLE8E0 0A904040 40404040 40404040 40404040*.. * Ready; T=0.01/0.01 09:13:50 q journal HCPJRL003E Invalid option - JOURNAL Ready(3); T=0.01/0.01 09:14:34 cp st hlse8d8 40 RPIMGR055E COMMAND STORE.C NOT DEFINED TO RACF Store complete. Ready; T=0.01/0.01 09:15:23 q journal Journal: LOGON- off, LINK- off Ready; T=0.01/0.01 09:15:26 Note this was done on a 5.4 sandbox image -- Mike Harding z/VM System Support mhard...@us.ibm.com mike.b.hard...@kp.org mikehard...@mindless.com (925) 926-3179 (w) (925) 323-2070 (c) IM: VMBearDad (AIM), mbhcpcvt (Y!) The IBM z/VM Operating System IBMVM@LISTSERV.UARK.EDU wrote on 07/21/2010 09:02:44 AM: From: Schuh, Richard rsc...@visa.com To: IBMVM@LISTSERV.UARK.EDU Date: 07/21/2010 09:04 AM Subject: Re: DISKACNT records Sent by: The IBM z/VM Operating System IBMVM@LISTSERV.UARK.EDU You are correct. Regards, Richard Schuh From: The IBM z/VM Operating System [mailto:ib...@listserv.uark.edu] On Behalf Of Frank M. Ramaekers Sent: Wednesday, July 21, 2010 8:54 AM To: IBMVM@LISTSERV.UARK.EDU Subject: Re: DISKACNT records It appears to require an IPL to pickup the SYSTEM CONFIG changes for JOURNALING. Anyone know any different? Frank M. Ramaekers Jr. From: The IBM z/VM Operating System [mailto:ib...@listserv.uark.edu] On Behalf Of Aria Bamdad Sent: Wednesday, July 21, 2010 10:34 AM To: IBMVM@LISTSERV.UARK.EDU Subject: Re: DISKACNT records You must login to an account with Class A or E privilege. Logon to MAINT and issue from there. From: The IBM z/VM Operating System [mailto:ib...@listserv.uark.edu] On Behalf Of Frank M. Ramaekers Sent: Wednesday, July 21, 2010 11:29 AM To: IBMVM@LISTSERV.UARK.EDU Subject: Re: DISKACNT records cp q journal HCPJRL003E Invalid option - JOURNAL Ready(3); T=0.01/0.01 10:29:11 Frank M. Ramaekers Jr. From: The IBM z/VM Operating System [mailto:ib...@listserv.uark.edu] On Behalf Of Aria Bamdad Sent: Wednesday, July 21, 2010 10:22 AM To: IBMVM@LISTSERV.UARK.EDU Subject: Re: DISKACNT records Is it possible you have turned off Journaling Facility? Issue CP Q JOURNAL and check your SYSTEM CONFIG file. Aria From: The IBM z/VM Operating System [mailto:ib...@listserv.uark.edu] On Behalf Of Frank M. Ramaekers Sent: Wednesday, July 21, 2010 11:14 AM To: IBMVM@LISTSERV.UARK.EDU Subject: DISKACNT records I’m only finding ‘01’, ‘02’ (mostly) and ‘0B’ records generated. I was hoping for some ‘04’ records. Does anyone know why I wouldn’t get any of these? (password violations) Frank M. Ramaekers Jr. Systems Programmer MCP, MCP+I, MCSE RHCE American Income Life Insurance Co. Phone: (254)761-6649 1200 Wooded Acres Dr. Fax: (254)741-5777 Waco, Texas 76701 _ This message contains information which is privileged and confidential and is solely for the use of the intended recipient. If you are not the intended recipient, be aware that any review, disclosure, copying, distribution, or use of the contents of this message is strictly prohibited. If you have received this in error, please destroy it immediately and notify us at privacy...@ailife.com. _ This message contains information which is privileged and confidential and is solely for the use of the intended recipient. If you are not the intended recipient, be aware that any review, disclosure, copying, distribution, or use of the contents of this message is strictly prohibited. If you have received this in error, please destroy it immediately and notify us at privacy...@ailife.com. _ This message contains information which is privileged and confidential and is solely for the use of the intended recipient. If you are not the intended recipient, be aware that any review, disclosure, copying, distribution, or use of the contents of this message is strictly prohibited. If you have received this in error, please destroy it immediately and notify us at privacy...@ailife.com.
Re: DISKACNT records
Effectively there were optical card punches, also known as #2 pencils. -- Mike Harding z/VM System Support mhard...@us.ibm.com mike.b.hard...@kp.org mikehard...@mindless.com (925) 926-3179 (w) (925) 323-2070 (c) IM: VMBearDad (AIM), mbhcpcvt (Y!) The IBM z/VM Operating System IBMVM@LISTSERV.UARK.EDU wrote on 07/21/2010 11:07:38 AM: From: Mike Walter mike.wal...@hewitt.com Hey... if they had optical card readers, why weren't there any optical card punches? Think of all the chaff that could have been saved! ;-)
Re: Pipe question
It can be quiet for days or even weeks, but if you'd made your original post there you'd have seen a flood of activity. -- Mike Harding z/VM System Support mhard...@us.ibm.com mike.b.hard...@kp.org mikehard...@mindless.com (925) 926-3179 (w) (925) 323-2070 (c) IM: VMBearDad (AIM), mbhcpcvt (Y!) The IBM z/VM Operating System IBMVM@LISTSERV.UARK.EDU wrote on 07/09/2010 09:34:23 AM: From: Mark Pace mpac...@gmail.com To: IBMVM@LISTSERV.UARK.EDU Date: 07/09/2010 09:34 AM Subject: Re: Pipe question Sent by: The IBM z/VM Operating System IBMVM@LISTSERV.UARK.EDU I signed up for CMSPIP-L yesterday. Haven't seen any traffic on it yet. -- Mark Pace Mainline Information Systems 1700 Summit Lake Drive Tallahassee, FL. 32317
Re: DIRMAINT /RACF adduser error
So does the directory point to the new or original sysres for racfvm's 200/300? Q mdisk user racfvm 200 loc -- Mike Harding z/VM System Support mhard...@us.ibm.com mike.b.hard...@kp.org mikehard...@mindless.com (925) 926-3179 (w) (925) 323-2070 (c) IM: VMBearDad (AIM), mbhcpcvt (Y!) The IBM z/VM Operating System IBMVM@LISTSERV.UARK.EDU wrote on 06/22/2010 12:14:55 PM: From: Troy A Slaughter t...@ntrs.com To: IBMVM@LISTSERV.UARK.EDU Date: 06/22/2010 12:36 PM Subject: Re: DIRMAINT /RACF adduser error Sent by: The IBM z/VM Operating System IBMVM@LISTSERV.UARK.EDU Yes. Racf's 200 and 300 are still on the SYSRES, so they copied along with everything else. [image removed] ___ Troy Slaughter | Software Consultant | Mainframe Platform Engineering 840 South Canal, Chicago, Illinois, 60607 | Phone 312-557-6322 | Cell 312-208-3735 | t...@ntrs.com Please visit northerntrust.com CONFIDENTIALITY NOTICE: This communication is confidential, may be privileged and is meant only for the intended recipient. If you are not the intended recipient, please notify the sender ASAP and delete this message from your system. IRS CIRCULAR 230 NOTICE: To the extent that this message or any attachment concerns tax matters, it is not intended to be used and cannot be used by a taxpayer for the purpose of avoiding penalties that may be imposed by law. For more information about this notice, see http://www.northerntrust.com/circular230 P Please consider the environment before printing this e-mail. Kris Buelens kris.buel...@gmail.com Sent by: The IBM z/VM Operating System IBMVM@LISTSERV.UARK.EDU 06/22/2010 01:07 PM Please respond to The IBM z/VM Operating System IBMVM@LISTSERV.UARK.EDU To IBMVM@LISTSERV.UARK.EDU cc Subject Re: DIRMAINT /RACF adduser error Did you copy the RACF databases (RACFVM 200 and 300)? 2010/6/22 Troy A Slaughter t...@ntrs.com I've cloned a VM sysres volume. I then linked to it's maint CF1 mdisk and made changes. I brought up my cloned SYSRES second level and all looked OK to a casual inspection. However, when I attempt to add a new user via Dirmaint. Dirmaint is fine, but RACF doesn't like things. If I do a RACF LISTUSER on the guest I just added via DIRMAINT, RACF cannot 'see' it. I know that I could rebuild the RACF database or create a VMXEVENT to ignore SPOOL and TAG. My question is why is it occurring at all. Is there a RACF system value that I need to be alert of when cloning a VM Sysres? Something maybe that points to the old system and it's name. I changed the system name of the VM OS while I was in the CF1 mdisk. RACF error is below: dirm add VSWCTRL1 RPIMGR031E RESOURCE DIRMAINT SPECIFIED BY SPOOL COMMAND NOT FOUND RPIMGR031E RESOURCE TNTVM02 SPECIFIED BY TAG COMMAND NOT FOUND PUN FILE 0131 SENT TO DIRMAINT RDR AS 0112 RECS 0019 CPY 001 0 NOHOLD NOKEEP * ___ Troy Slaughter | Software Consultant | Mainframe Platform Engineering * 840 South Canal, Chicago, Illinois, 60607 | Phone 312-557-6322 | Cell 312-208-3735 | *t...@ntrs.com * t...@ntrs.com Please visit *northerntrust.com* http://www.northerntrust.com/ CONFIDENTIALITY NOTICE: This communication is confidential, may be privileged and is meant only for the intended recipient. If you are not the intended recipient, please notify the sender ASAP and delete this message from your system. IRS CIRCULAR 230 NOTICE: To the extent that this message or any attachment concerns tax matters, it is not intended to be used and cannot be used by a taxpayer for the purpose of avoiding penalties that may be imposed by law. For more information about this notice, see * http://www.northerntrust.com/circular230*http:// www.northerntrust.com/circular230 P Please consider the environment before printing this e-mail. -- Kris Buelens, IBM Belgium, VM customer support [attachment C.htm deleted by Troy A Slaughter/CHI/NTRS]
Re: Question About Read console output under REXX
Not the way I'd do it, but building on your original exec, try this; /* */ Address Command Arg vcmd If vcmd='' then vcmd='D NET,APPLS' onq = Queued() 'Q SECUSER VTAM (LIFO' /* cms will route to cp, stack response */ Parse pull . oldsecu . Do while Queued()onq; Parse pull; End If oldsecu='not' then oldsecu = 'RESET' 'CP SET SECUSER VTAM *' 'CP SET CPCONIO IUCV' 'CP SEND VTAM VTAM' vcmd DO FOREVER 'WAKEUP +00:05 (QUIET IUCVMSG' /* set timeout value */ IF RC = 5 THEN DO while Queued()onq PARSE PULL MSG Say - msg 'EXECIO 1 DISKW VTAM RESULT A (VAR MSG' END ELSE Leave END 'CP SET CPCONIO OFF' 'CP SET SECUSER VTAM' oldsecu Do while Queued()onq; Parse pull cruft; Say cruft; End Exit -- Mike Harding z/VM System Support mhard...@us.ibm.com mike.b.hard...@kp.org mikehard...@mindless.com (925) 926-3179 (w) (925) 323-2070 (c) IM: VMBearDad (AIM), mbhcpcvt (Y!) The IBM z/VM Operating System IBMVM@LISTSERV.UARK.EDU wrote on 04/22/2010 10:59:45 AM: From: Hughes, Jim jim.hug...@doit.nh.gov To: IBMVM@LISTSERV.UARK.EDU Date: 04/22/2010 11:00 AM Subject: Re: Question About Read console output under REXX Sent by: The IBM z/VM Operating System IBMVM@LISTSERV.UARK.EDU There isn’t anything saying one message per interrupt. The interrupt handler keeps pushing them onto the program stack whether you are there to retrieve them or not. Stay in your loop until you decide it is time to exit. The timer suggestion is a good one. If VTAM sends a message indicating “end of command”, I’d use it as my exit condition too. Good Luck. Jim Hughes 603-271-5586 It is fun to do the impossible. From: The IBM z/VM Operating System [mailto:ib...@listserv.uark.edu] On Behalf Of Sergio Lima Sent: Thursday, April 22, 2010 1:55 PM To: IBMVM@LISTSERV.UARK.EDU Subject: Re: Question About Read console output under REXX Hello Jim, Thanks from your help. But, Jim, it's well, if I have all records with only one time correct ? Regards, Sergio Date: Thu, 22 Apr 2010 12:38:30 -0400 From: jim.hug...@doit.nh.gov Subject: Re: Question About Read console output under REXX To: IBMVM@LISTSERV.UARK.EDU Queue puts data at the end of the program stack. Push puts data at the beginning of the program stack. I think you have used PUSH instead of queue. Also, do this to retrieve your responses: $q = queued() “EXECIO” $q “diskw vtam result a” I’ve not tested this either. Jim Hughes 603-271-5586 It is fun to do the impossible. From: The IBM z/VM Operating System [mailto:ib...@listserv.uark.edu] On Behalf Of Sergio Lima Sent: Thursday, April 22, 2010 12:26 PM To: IBMVM@LISTSERV.UARK.EDU Subject: Re: Question About Read console output under REXX Hello Mr. Scott, We already test this sample here, but still don't run well, We write this : /* */ TRACE R 'CP SET SECUSER VTAM *' 'CP SET CPCONIO IUCV' 'CP SEND VTAM VTAM D NET,APPLS' DO FOREVER 'WAKEUP (IUCVMSG' IF RC = 5 THEN DO PARSE PULL MSG PARSE VAR MSG queue msg 'EXECIO 1 DISKW' VTAM RESULT A END ELSE EXIT END But, the response of my command don't return. I wait few seconds, and my file was wrote with this data : VTAM RESULT A1 V 87 Trunc=87 Size=4 Line=0 Col=1 Alt=0 === |...+1+2+3+4+5+ 6+7.. * * * Top of File * * * 0001 *SCIF VTAM VTAM: IST663I IPS SRQ REQUEST FROM ISTAPNCP FAILED, 0002 *SCIF VTAM VTAM: IST664I REAL OLU=CEF.CICHABE ALIAS D 0003 *SCIF VTAM VTAM: IST889I SID = D5CBC1D3CE560499 0004 *SCIF VTAM VTAM: IST314I END Another words, this data is the result of another thing. Do you seee some mistake here ? I understand, that the WAKEUP (IUCVMSG receive the RC = 5 all times that my virtual machine receive one messagem from VTAM machine correct? If this is ok, why the result of my DISPLAY don't run ? Thanks again. Sergio Date: Thu, 22 Apr 2010 09:23:20 -0600 From: scott.rohl...@gmail.com Subject: Re: Question About Read console output under REXX To: IBMVM@LISTSERV.UARK.EDU Sergio -- The problem here is that you ARE getting the output of your command -- but what you want to capture is the asynchronous response to that command. In other words -- the CP SEND worked fine, and the command ended -- but what you wanted to capture was the response from VTAM that followed after the CP SEND command ended. The common way to do this is using WAKEUP (IUCVMSG -- setting CPCONIO to IUCV, and looping to capture the response.. something like this: 'CP SET SECUSER VTAM *' 'CP SET CPCONIO IUCV' 'CP SEND VTAM VTAM D NET.APPLS' Do Forever 'WAKEUP (IUCVMSG' If rc = 5 Then Do Parse pull msg Parse var msg /* Do something with output - make sure it's from VTAM, etc */ End Else Exit End Just a very rough sample - but hopefully enough to get you
Re: RSCS purge files HELP
If you've redefined your printer dynamically, stopping/starting the link (PRTCR2) should take care of it. I don't believe the ip address is resolved until a file is selected by the line driver. If you haven't done it dynamically, shutting rscs down and restarting it should also do the trick (SMSG RSCS SHUTDOWN QUICK CP IPL GCS). -- Mike Harding z/VM System Support mhard...@us.ibm.com mike.b.hard...@kp.org mikehard...@mindless.com (925) 926-3179 (w) (925) 323-2070 (c) IM: VMBearDad (AIM), mbhcpcvt (Y!) The IBM z/VM Operating System IBMVM@LISTSERV.UARK.EDU wrote on 04/22/2010 11:12:31 AM: From: Bill Munson william.mun...@bbh.com To: IBMVM@LISTSERV.UARK.EDU Date: 04/22/2010 11:13 AM Subject: Re: RSCS purge files HELP Sent by: The IBM z/VM Operating System IBMVM@LISTSERV.UARK.EDU Joan, If you have class D privileges you should be able to enter: purge RSCS rdr 3 and that will purge the files from RSCS's rdr queue If you need them to print you need to change the TAG information for the file. query TAG to find out how. good luck Bill Munson Sr. z/VM Systems Programmer Brown Brothers Harriman CO. 525 Washington Blvd. Jersey City, NJ 07310 201-418-7588 President - MVMUA http://www2.marist.edu/~mvmua/ VM Project Officer - SHARE http://www.linkedin.com/in/BillMunson Joan Gerads jger...@scicom.com Sent by: The IBM z/VM Operating System IBMVM@LISTSERV.UARK.EDU 04/22/2010 01:54 PM Please respond to The IBM z/VM Operating System IBMVM@LISTSERV.UARK.EDU To IBMVM@LISTSERV.UARK.EDU cc Subject RSCS purge files HELP z/VM 5.2 we recently changed the IP address on the printer we had set up using RSCS on VM 5.2. I changed the RSCS config to reflect the new IP address for printer named PRTCR2, but it seems there are some old print files that have backed up the queue. Some of these entries (below) may have been queued up with the old, invalid IP address in place. How do I clean off the queue of files on RSCS (from MAINT) so that all of these old entries are gone and I can try RSCS again with the new IP address in place? smsg rscs q files Ready; T=0.01/0.01 12:40:23 Loc Origin Destination IDID Node Userid Node Userid Status 0003 0003 ZVMV5R20 MAINTPRTCR2 SYSTEM sending 0005 0005 ZVMV5R20 MAINTPRTCR2 SYSTEM waiting 0006 0006 ZVMV5R20 MAINTPRTCR2 SYSTEM waiting 0004 0004 ZVMV5R20 MAINTPRTCR2 SYSTEM waiting 0007 0007 ZVMV5R20 MAINTPRTCR2 SYSTEM waiting 0008 0008 ZVMV5R20 MAINTPRTCR2 SYSTEM waiting 6 files found Joan Gerads Systems Programmer SCICOM Data Services | 10101 Bren Road East | Minnetonka MN 55343 Direct: 952.936.4170 | jger...@scicom.com Visit our web site at: www.scicom.com This e-mail message, including any attachments, is intended only for the use of the recipient(s) and may contain privileged and confidential information, including but not limited to information that is protected under HIPAA or other state/federal privacy rules. Any unauthorized review, disclosure, copying, distribution or use is prohibited. If you have received this e-mail in error, please notify the sender immediately by reply e-mail and destroy all copies of the original message. *** IMPORTANT NOTE*-- The opinions expressed in this message and/or any attachments are those of the author and not necessarily those of Brown Brothers Harriman Co., its subsidiaries and affiliates (BBH). There is no guarantee that this message is either private or confidential, and it may have been altered by unauthorized sources without your or our knowledge. Nothing in the message is capable or intended to create any legally binding obligations on either party and it is not intended to provide legal advice. BBH accepts no responsibility for loss or damage from its use, including damage from virus.
Re: Question About Read console output under REXX
If you're already doing any sort of automated system monitoring, I'd just include this routine, How depends on what you're using. For Operations Manager, you'd define a scheduled action to execute it; for one of the WAKEUP-based utilities available on the VM download page you'd include it in the WAKEUP TIMES file. Any other similar product, you include a call to it in whatever routine you run at the desired interval. Note that if you're going to run this iteratively, you'll also want something else periodically to clean up your disk log or it'll grow until it fills your A-disk. Also, before exiting you should do a WAKEUP (RESET as part of restoring the environment. -- Mike Harding z/VM System Support mhard...@us.ibm.com mike.b.hard...@kp.org mikehard...@mindless.com (925) 926-3179 (w) (925) 323-2070 (c) IM: VMBearDad (AIM), mbhcpcvt (Y!) The IBM z/VM Operating System IBMVM@LISTSERV.UARK.EDU wrote on 04/22/2010 12:23:16 PM: From: Sergio Lima sergiovm...@hotmail.com To: IBMVM@LISTSERV.UARK.EDU Date: 04/22/2010 12:35 PM Subject: Re: Question About Read console output under REXX Sent by: The IBM z/VM Operating System IBMVM@LISTSERV.UARK.EDU Hello Mike, Of course We are very happy, but only more one thing : We think run this exec in a Virtual machine running disconnected , and also START this exec from time to time (5 minutes) for example. This sample also run ? My question is where I put the loop of control, and, what is better ? 1 - Send a SMSG to this machine STOP the process, or ? (If yes, can i put WEKUP SMSG also in the exec ?) 2 - Give a LOGOFF / FORCE in this machine ? Sergio
Re: ACM award
You caught the hedge too. z/VM - or any mainframe OS - is probably considered classic as opposed to modern. But truly modern today would be hand-helds, phones or all-pervasive (built into the surroundings), desktops are becoming mini-dinosaurs. -- Mike Harding z/VM System Support mhard...@us.ibm.com mike.b.hard...@kp.org mikehard...@mindless.com (925) 926-3179 (w) (925) 323-2070 (c) IM: VMBearDad (AIM), mbhcpcvt (Y!) The IBM z/VM Operating System IBMVM@LISTSERV.UARK.EDU wrote on 03/30/2010 02:50:36 PM: From: Mike Walter mike.wal...@hewitt.com To: IBMVM@LISTSERV.UARK.EDU Date: 03/30/2010 02:52 PM Subject: Re: ACM award Sent by: The IBM z/VM Operating System IBMVM@LISTSERV.UARK.EDU sigh I can understand modern computing organizations being ignorant of historical modern computing environments such as z/VM -- but the ACM? Perhaps their selection committee was comprised of youngsters fresh out of college, with no historical computing knowledge (or concern)?? Double: sigh Mike Walter Hewitt Associates The opinions expressed herein are mine alone, not my employer's. Chip Davis c...@aresti.com Sent by: The IBM z/VM Operating System IBMVM@LISTSERV.UARK.EDU 03/30/2010 04:42 PM Please respond to The IBM z/VM Operating System IBMVM@LISTSERV.UARK.EDU To IBMVM@LISTSERV.UARK.EDU cc Subject ACM award Today the Association for Computing Machinery (of which I have been a member since 1970) made the following award: VMware Workstation 1.0, the Software System Award, for bringing virtualization technology to modern computing environments, spurring a shift to virtual-machine architectures, and allowing users to efficiently run multiple operating systems on their desktops. Aside from the run multiple OSes on the desktop part, shouldn't we be insulted? -Chip- The information contained in this e-mail and any accompanying documents may contain information that is confidential or otherwise protected from disclosure. If you are not the intended recipient of this message, or if this message has been addressed to you in error, please immediately alert the sender by reply e-mail and then delete this message, including any attachments. Any dissemination, distribution or other use of the contents of this message by anyone other than the intended recipient is strictly prohibited. All messages sent to and from this e-mail address may be monitored as permitted by applicable law and regulations to ensure compliance with our internal policies and to protect our business. E-mails are not secure and cannot be guaranteed to be error free as they can be intercepted, amended, lost or destroyed, or contain viruses. You are deemed to have accepted these risks if you communicate with us by e-mail.
Re: z/OS and UFT(D)
Agreed, 'twould be nice to have. Faced with a similar situation, though, I simply ftp to my vm rdr as the last step in a job which was submitted from vm by ftp to jes. Works for anything but the jcl listing. -- Mike Harding z/VM System Support mhard...@us.ibm.com mike.b.hard...@kp.org mikehard...@mindless.com (925) 926-3179 (w) (925) 323-2070 (c) IM: VMBearDad (AIM), mbhcpcvt (Y!) The IBM z/VM Operating System IBMVM@LISTSERV.UARK.EDU wrote on 03/10/2010 10:46:15 AM: From: Mark Wheeler mwheele...@hotmail.com To: IBMVM@LISTSERV.UARK.EDU Date: 03/10/2010 10:46 AM Subject: z/OS and UFT(D) Sent by: The IBM z/VM Operating System IBMVM@LISTSERV.UARK.EDU Is anyone sending files from z/OS to z/VM via z/VM's UFTD server? Would sure be nice, since we don't have RSCS. I checked doc for the TSO TRANSMIT command (most logical place) but (not surprisingly) nothing about UFT there. Best regards, Mark Wheeler UnitedHealth Group Your E-mail and More On-the-Go. Get Windows Live Hotmail Free. Sign up now.
Re: Automate z/VM RACF SMF process to z/OS
I've done the same for other svm's, but the special CMS running on RACFVM doesn't understand disk load (at least on systems I can play with). -- Mike Harding z/VM System Support mhard...@us.ibm.com mike.b.hard...@kp.org mikehard...@mindless.com (925) 926-3179 (w) (925) 457-9183 (c) IM: VMBearDad (AIM), mbhcpcvt (Y!) The IBM z/VM Operating System IBMVM@LISTSERV.UARK.EDU wrote on 12/04/2009 11:24:37 AM: From: Kris Buelens kris.buel...@gmail.com To: IBMVM@LISTSERV.UARK.EDU Date: 12/04/2009 11:25 AM Subject: Re: Automate z/VM RACF SMF process to z/OS Sent by: The IBM z/VM Operating System IBMVM@LISTSERV.UARK.EDU What has been shown is an easy way. I did sometimes things like this: - LINK in RR, copy the file to your A-disk and change it. - SP PUNCH RACFM - DISK DUMP fn ft A - SET SECUSER RACFVM * - SEND RACFVM DISK LOAD
Re: Automate z/VM RACF SMF process to z/OS
Like Paul's and unlike yours, our SMF CONTROL file has 2 blanks following the SEVER NO. If the following is positionally parsed rather than white-space, that would account for the attempt to xautolog ACFSMF. -- Mike Harding z/VM System Support mhard...@us.ibm.com mike.b.hard...@kp.org mikehard...@mindless.com (925) 926-3179 (w) (925) 457-9183 (c) IM: VMBearDad (AIM), mbhcpcvt (Y!) The IBM z/VM Operating System IBMVM@LISTSERV.UARK.EDU wrote on 12/02/2009 06:26:03 PM: From: Feller, Paul pfel...@aegonusa.com To: IBMVM@LISTSERV.UARK.EDU Date: 12/02/2009 06:26 PM Subject: Re: Automate z/VM RACF SMF process to z/OS Sent by: The IBM z/VM Operating System IBMVM@LISTSERV.UARK.EDU Here is what our control file looks like. The switch works okay for us.: |...+1+2+3+4+5+6 +7+8 0 * * * Top of File * * * 1 CURRENT 301 K PRIMARY 301 K SECONDARY 302 K 1 VL03 CLOSE 001 SEVER NO 0 RACFSMF 2 * * * End of File * * * Paul Feller AIT Mainframe Technical Support From: The IBM z/VM Operating System [mailto:ib...@listserv.uark.edu] On Behalf Of Martin, Terry R. (CMS/CTR) (CTR) Sent: Wednesday, December 02, 2009 5:33 PM To: IBMVM@LISTSERV.UARK.EDU Subject: Re: Automate z/VM RACF SMF process to z/OS It appears that there is something wrong with the SMF CONTROL file when I do a SMF SWITCH to RACFVM and he tries to autolog RACFSMF I get and error stating that user ACFSMF is not in the CP Directory. Notice that the ‘R’ in RACFSMF is missing. Here is a screen print of the control file I can’t see the issue maybe I am missing it: = * * * Top of File * * * |...+1+2+3+4+5+ 6+7... = CURRENT 302 K PRIMARY 301 K SECONDARY 302 K 1 LVD1 CLOSE 001 SEVER NO 0 RACF = * * * End of File * * * And here it is after I hit PF10: = * * * Top of File * * * +3+4+5+6+7+ 8+9... = Y 301 K SECONDARY 302 K 1 LVD1 CLOSE 001 SEVER NO 0 RACFSMF = * * * End of File * * * X E D I T 1 File Thank You, Terry Martin Lockheed Martin - Information Technology z/OS z/VM Systems - Performance and Tuning Cell - 443 632-4191 Work - 410 786-0386 terry.mar...@cms.hhs.gov WFH Tuesdays and Fridays From: The IBM z/VM Operating System [mailto:ib...@listserv.uark.edu] On Behalf Of Kris Buelens Sent: Wednesday, December 02, 2009 9:55 AM To: IBMVM@LISTSERV.UARK.EDU Subject: Re: Automate z/VM RACF SMF process to z/OS Append you code to the PROFILE EXEC of RACFSMF. append is a general word here, you could imbed your code in the PROFILE EXEC, have the PROFILE EXEC call your exec, or your exec may replace the current PROFILE EXEC. To make it possible to recover from a failed FTP, it might indeed be good to keep the old SMF log on RACFSMF's A-disk and tell FTP to send that (and not send the one from RACFVM 301/302, because that will be ERASEd a while later. 2009/12/2 Martin, Terry R. (CMS/CTR) (CTR) terry.mar...@cms.hhs.gov Great thanks just for clarity on my part when the SMF file is either switched due to being FULL or told to switch by the command it writes the file to the A disk (191) of RACFSMF so when I invoke my code to FTP it to z/OS the file mode will by default be looking at the A disk for the FN FT that I pass on the PUT correct? Thanks again! Thank You, Terry Martin! Lockheed Martin - Information Technology z/OS z/VM Systems - Performance and Tuning Cell - 443 632-4191 Work - 410 786-0386 terry.mar...@cms.hhs.gov WFH Tuesdays and Fridays From: The IBM z/VM Operating System [mailto:ib...@listserv.uark.edu] On Behalf Of Kris Buelens Sent: Wednesday, December 02, 2009 2:26 AM To: IBMVM@LISTSERV.UARK.EDU Subject: Re: Automate z/VM RACF SMF process to z/OS You should place your code in user RACFSMF: this user is autologged when RACF's SMF disk is full (that is this RACFVM 301 or 302). Th standard code will copyfile it onto RACFSMF 191 and erase it from 301/302. Extend the code with your FTP stuff. If you surely want to process each night (and not only when the disk gets full) use your favorite automation software to issue a CP SMSG RACFVM SWITCH (or SMF SWITCH or something alike, I don't have the manual here) then RACF will proceed as it the disk is full and start RACFSMF. To be able to send such a SWITCH command, the issuer must be defined in some file you must ASSEMBLE (afair: CSTCONS ASSEMBLE, hence CSTCONS TEXT). By default OPERATOR is inside, so a CP CLASS C user can fool RACF with CP SEND CP OPERATOR SMSG RACFVM SWITCH By using RACFSMF directly, you will be sure to process at the time you want, but also when the disk gets full sooner than you expect. 2009/12/2 Martin, Terry R. (CMS/CTR) (CTR) terry.mar...@cms.hhs.gov Hi I want to automate the
Re: PIPE question about RC
This question would be better asked on the CMS-Pipelines forum, but... First, I don't think you want to use pipmod stop. It would end asynchronous stages, but you aren't running any. As Doug says, you need to utilize the secondary output of CP. Try something like: Pipe (end ?) a:fanin | b:gate ? literal C000 C001 C002 C003 | split | b: | Spec /VARY OFF/ n w1 nw | c:cp | cons ? c: | Nfind 0| copy | a: Note that CP doesn't automatically uppercase its input, so if you're feeding it mixed case you'll probably get an error right off. If you can't depend on the case of your input, place a translate (XLATE) stage in front of the CP stage. -- Mike Harding z/VM System Support mhard...@us.ibm.com mike.b.hard...@kp.org mikehard...@mindless.com (925) 926-3179 (w) (925) 457-9183 (c) IM: VMBearDad (AIM), mbhcpcvt (Y!) The IBM z/VM Operating System IBMVM@LISTSERV.UARK.EDU wrote on 11/04/2009 11:27:12 AM: From: Doug Breneman/Endicott/i...@ibmus To: IBMVM@LISTSERV.UARK.EDU Date: 11/04/2009 11:28 AM Subject: Re: PIPE question about RC Sent by: The IBM z/VM Operating System IBMVM@LISTSERV.UARK.EDU Alain, You can use another stream and put a label on the CP stage. The return codes will go to the secondary stream. The following is just an example and not really useful: pipe (end ?) LITERAL QUERY TIME|DUP 3|A:CP|CONS?A:|SPEC /RC=/ 1 1-* NW| CONS TIME IS 14:24:24 EST WEDNESDAY 11/04/09 CONNECT= 05:46:41 VIRTCPU= 000:01.24 TOTCPU= 000:04.53 RC= 0 TIME IS 14:24:24 EST WEDNESDAY 11/04/09 CONNECT= 05:46:41 VIRTCPU= 000:01.24 TOTCPU= 000:04.53 RC= 0 TIME IS 14:24:24 EST WEDNESDAY 11/04/09 CONNECT= 05:46:41 VIRTCPU= 000:01.24 TOTCPU= 000:04.53 RC= 0 TIME IS 14:24:24 EST WEDNESDAY 11/04/09 CONNECT= 05:46:41 VIRTCPU= 000:01.24 TOTCPU= 000:04.53 RC= 0 Ready; You can see that the secondary output stream contains all of the return codes from the CP commands. I hope this helps. Doug Breneman z/VM Development IBM Endicott [image removed] Alain Benveniste ---11/04/2009 02:15:40 PM---Is it possible to test the return code for EACH CP command as partially shown above : Is it possible to test the return code for EACH CP command as partially shown above : PIPE LITERAL C000 c001 c002 c003 ! split ! specs /vary off/ 1 W1 NW ! CP ! LITERAL RC ! CONSOLE and if a RC/=0 straight to execute a PIPMOD STOP to live the PIPE ? I have the default PIPE environment. Alain Benveniste
Re: CP Message HCP401I
On the other hand, if you have Velocity Software's ESAMON friends, or CA's VM:Spool you could set up for alerts at a lower trip value - or higher, for that matter - and ignore the HCP401I message. If you had the V/Spool option of VM:Spool you could even have it freeze users writing to spool once it had reached whatever point you considered critical. -- Mike Harding z/VM System Support mhard...@us.ibm.com mike.b.hard...@kp.org mikehard...@mindless.com (925) 926-3179 (w) (925) 457-9183 (c) IM: VMBearDad (AIM), mbhcpcvt (Y!) The IBM z/VM Operating System IBMVM@LISTSERV.UARK.EDU wrote on 10/29/2009 03:19:02 PM: From: Wandschneider, Scott scott.wandschnei...@infocrossing.com To: IBMVM@LISTSERV.UARK.EDU Date: 10/29/2009 03:20 PM Subject: Re: CP Message HCP401I Sent by: The IBM z/VM Operating System IBMVM@LISTSERV.UARK.EDU Thank you! Thank you, Scott -Original Message- From: The IBM z/VM Operating System [mailto:ib...@listserv.uark.edu] On Behalf Of Alan Altmark Sent: Thursday, October 29, 2009 5:06 PM To: IBMVM@LISTSERV.UARK.EDU Subject: Re: CP Message HCP401I On Thursday, 10/29/2009 at 05:47 EDT, Wandschneider, Scott scott.wandschnei...@infocrossing.com wrote: This message is displayed if the page|spool area reaches 90%. Can the value of 90 be changed? No. Alan Altmark z/VM Development IBM Endicott Confidentiality Note: This e-mail, including any attachment to it, may contain material that is confidential, proprietary, privileged and/or Protected Health Information, within the meaning of the regulations under the Health Insurance Portability Accountability Act as amended. If it is not clear that you are the intended recipient, you are hereby notified that you have received this transmittal in error, and any review, dissemination, distribution or copying of this e-mail, including any attachment to it, is strictly prohibited. If you have received this e-mail in error, please immediately return it to the sender and delete it from your system. Thank you.
Re: Date/Time functions for REXX program?
Oops, the conversion in the last spec stage should be x2t, not c2t. Also, it will have to be adjusted to local time. -- Mike Harding z/VM System Support mhard...@us.ibm.com mike.b.hard...@kp.org mikehard...@mindless.com (925) 926-3179 (w) (925) 457-9183 (c) IM: VMBearDad (AIM), mbhcpcvt (Y!) Michael Harding/Oakland/IBM wrote on 09/24/2009 08:35:46 AM: From: Michael Harding/Oakland/IBM To: The IBM z/VM Operating System IBMVM@LISTSERV.UARK.EDU Date: 09/24/2009 08:35 AM Subject: Re: Date/Time functions for REXX program? Pipe literal LOC OPERATOR|CP|Spec /D H/ n substr 1;-4 of w3 n /230. 8/ n|CP|Spec w2 n w3 n|Spec w1 c2t n|Cons
Re: Date/Time functions for REXX program?
Pipe literal LOC OPERATOR|CP|Spec /D H/ n substr 1;-4 of w3 n /230.8/ n|CP| Spec w2 n w3 n|Spec w1 c2t n|Cons -- Mike Harding z/VM System Support mhard...@us.ibm.com mike.b.hard...@kp.org mikehard...@mindless.com (925) 926-3179 (w) (925) 457-9183 (c) IM: VMBearDad (AIM), mbhcpcvt (Y!) The IBM z/VM Operating System IBMVM@LISTSERV.UARK.EDU wrote on 09/24/2009 08:10:27 AM: From: Horlick, Michael michael.horl...@cgi.com To: IBMVM@LISTSERV.UARK.EDU Date: 09/24/2009 08:14 AM Subject: Date/Time functions for REXX program? Sent by: The IBM z/VM Operating System IBMVM@LISTSERV.UARK.EDU Greetings, Would like a few suggestions for a small REXX program I’m writing. I would like to determine the date and time since a user is logged on. I can do a ‘CP IND USER userid EXP’ and get the CTIME as the number of days, hours, minutes and seconds that user is logged on, which is good, but I would like to determine the actual day, hour, minute and second. For example, right now my EXEC displays the following: xxx has been logged on for 1 day(s) 7 hour(s) 1 minute(s) 1 second (s). If it is, say 11:30:00 AM right now, I would like it to say additionally ‘since Wednesday, September 22 at 4:28:59AM’. Gets a bit complicated, I guess, for year changes, leap years, etc… Also, I would like to determine the amount of time between the current time and a date in the future (our next scheduled VSE IPL, for example) I plan to do the same for the VM IPL time derived from the ‘CP Q CPLEVEL’ command. Any suggestions would be appreciated. Thanks, Mike
Re: Trace I/O for a 3490 tape drive
To see all that, you'll probably need the CP TRSOURCE ... TYPE IO... command, et seq. -- Mike Harding z/VM System Support mhard...@us.ibm.com mike.b.hard...@kp.org mikehard...@mindless.com (925) 926-3179 (w) (925) 457-9183 (c) IM: VMBearDad (AIM), mbhcpcvt (Y!) The IBM z/VM Operating System IBMVM@LISTSERV.UARK.EDU wrote on 06/17/2009 08:58:43 AM: [image removed] Trace I/O for a 3490 tape drive Hughes, Jim to: IBMVM 06/17/2009 10:00 AM Sent by: The IBM z/VM Operating System IBMVM@LISTSERV.UARK.EDU Please respond to The IBM z/VM Operating System Base system is Z/VM 5.4. I’d like to trace all i/o, interrupts, etc for a 3490 tape drive. I am ipl’ing the IPL DDRXA from the S disk and defining the output as 181 3490. The trace set looks like this: NAME VTAP(ACTIVE) 1 I/O FROM - HEX 0181 TERMPRINTRUNSIMCCWIODATA 0008 SKIP 0 PASS 0 STOP 0 STEP 0 CMD NONE My trace command is: CP TRACE IO 181 CCW INS INT BOTH RUN I’ve used various other combinations of TRACE SIO and TRACE SSSCH and etc… with no happiness. I can get the TSCH and SSCH commands to appear and nothing else. What can I do to get ALL the tape i/o for address 181 to show up? Thanks. Jim Hughes 603-271-5586 It is fun to do the impossible.
Re: Last release for 3420s?
The early Hollywood depictions tended to feature card sorters or collators, only occasionally tape drives. Had to have some sort of visible action. I remember one though (Goliath, I think) about a computer that was taking over the world, which had a room whose walls were covered with panels of flashing lights and a control console I recognized as an IBM 1620. -- Mike Harding z/VM System Support mhard...@us.ibm.com mike.b.hard...@kp.org mikehard...@mindless.com (925) 926-3179 (w) (925) 457-9183 (c) IM: VMBearDad (AIM), mbhcpcvt (Y!) The IBM z/VM Operating System IBMVM@LISTSERV.UARK.EDU wrote on 06/05/2009 11:37:25 AM: [image removed] Re: Last release for 3420s? Alan Altmark to: IBMVM 06/05/2009 11:39 AM Sent by: The IBM z/VM Operating System IBMVM@LISTSERV.UARK.EDU Please respond to The IBM z/VM Operating System On Friday, 06/05/2009 at 02:21 EDT, Adam Thornton athorn...@sinenomine.net wrote: There's some in Virginia free to a good home. Free to any home, in fact. Just take it away. As long as you provide all the labor and all the transport, it's yours. Not kidding. You would think that some Hollywood museum would want them as a cultural icon for 1st-generation movies with/about computers. I suppose you're already checked with the Smithsonian and Walt Disney World. :-) Alan Altmark z/VM Development IBM Endicott
