Does RHEL 5.2 support Guest Platform Management Providers (GPMP)

[Martin, Terry R. (CMS/CTR) (CTR)]

HI

We are planning to exploit the Workload Management function on zManager (URM). 
Are GPMPs supported for z/Linux RHEL 5.2?

Thank You,

Terry Martin
Lockheed Martin
CMS - CITIC
3300 Lord Baltimore Drive, Suite 200, 21244
Engineering Computing
Mainframe Support
Cell - 443 632-4191

Re: Capturing response from SCS

[Michael Harding]

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  wrote on 07/20/2011
02:45:41 PM:

> From: Scott Rohling 
> 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 
>
> 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  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: Capturing response from SCS

[Scott Rohling]

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  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"
> --
> On Wed, 20 Jul 2011 10:27:15 -0700 Michael Harding said:
> >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
> >
>

Re: Capturing response from SCS

[Fran Hensler]

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"
--
On Wed, 20 Jul 2011 10:27:15 -0700 Michael Harding said:
>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
>

Re: IBM 2nd Qtr

[Dave Jones]

And in some prepared remarks, IBM's CFO Mark Loughridge noted  that IBM
has added 68 new mainframe customers in the past year. About a third of
those are in IBM's "growth markets" (i.e. outside North America, Western
Europe, and Japan) — "planting the flag," he said. Loughridge also
remarked that System z had its best four quarter period in five years.

So, yes, the mainframe base is expanding into organizations that did not
have such an environment before, it seems.

DJ

On 07/20/2011 01:48 PM, Jim Elliott wrote:
>> Any word on processor mix in there (CP vs IFL, etc)?
> 
>> Would be interesting to see how much is new and additional Linux on Z.
> 
> Jonathan:
> 
> Check out my System z update deck at
> http://www.vm.ibm.com/devpages/jelliott/pdfs/coug-zup.pdf
> 
> Chart 5 shows graphically the last few years (without numbers of course)
> on the MIPS split between CPs and each type of specialty engine.
> 
> Chart 6 shows IFL growth.
> 
> Both charts are to YE 2010. We tend to only create these charts after YE,
> not after each quarter.
> 
> Jim
> 

-- 
Dave Jones
V/Soft Software
www.vsoft-software.com
Houston, TX
281.578.7544

SMTP IPMAILERADDRESS

[Ewald Roller]

Hello,

I tried so setup a new SMTP-Server on z/VM 5.4.
I want to remove the seperate TCPIP DATA on SMTPs 191
(w/o DNS) and use the Parameter IPMAILERADDRESS instead
to forward all mails to our exchange-server:

IPMAILERADDRESS  
 ALL  1.2.3.4
ENDIPMAILERADDRESS   

This doesn't work, the SMTP Consolelog shows
IP Mailer Address/Hostname : 1.2.3.4
IP Mailer ALL enabled  : No 

Searching the archives, I noticed, that this problem should have been
solved since z/VM 5.2 .

What do I miss ??

Kind regards
Ewald Roller

Re: IBM 2nd Qtr

[Jim Elliott]

> Any word on processor mix in there (CP vs IFL, etc)?

> Would be interesting to see how much is new and additional Linux on Z.

Jonathan:

Check out my System z update deck at
http://www.vm.ibm.com/devpages/jelliott/pdfs/coug-zup.pdf

Chart 5 shows graphically the last few years (without numbers of course)
on the MIPS split between CPs and each type of specialty engine.

Chart 6 shows IFL growth.

Both charts are to YE 2010. We tend to only create these charts after YE,
not after each quarter.

Jim

Re: REXEC and RXAGENT1

[Tom Duerbusch]

Thanks Alan

I was somewhat confused with the Planning and Customization manual, with the 
section:
Starting and Stopping TCP/IP Servers

It lists many of the servers and how to stop them, usually with SMSG.
It didn't list REXECD which was part of my questioning Kris' post.
Apparently, I was in the wrong part of the manual...again..


And the OBEY command you pointed me at, does work at resetting the MaxRestart 
parm:

netstat obey port 512 tcp tcpip  
VM TCP/IP Netstat Level 520  
 
OBEY command response is: OK 
OBEY return code = 0 

And I see REXECD and RXAGENT1 being xautologged.

And...imagine thatit works as advertised!

However, now that it all worked, I logged onto REXECD.
When I ran my same tests (from MAINT), they still worked.
When using "guest", it seemed to use the RXAGENT1 server.
When using a "userid", it xautologged on the user and executed the command.

So, I thought that the "communication" problem that being logged on to the 
server may only be at startup.

#CP IPL CMS  (from REXECD)
and brought the server up.

Both my tests still ran fine.

So, is the caution about not being logged on to REXECD or having the secondary 
user, one of mere caution, or are there occasional things might happen, later, 
perhaps much later, that fouls up things, perhaps recovery?

Anyway, for testing, it seems I can be logged on.
But now that it works, I would only be logged on to update the a-disk with some 
rexx programs that I will be executing remotely.

Thanks for your help

Tom Duerbusch
THD Consulting



>>> Alan Altmark  7/20/2011 9:35 AM >>>
On Wednesday, 07/20/2011 at 10:18 EDT, Tom Duerbusch 
 wrote:
> My manuals (z/VM 5.2) do not show a method of recycling REXECD using the 

> OBEYFILE command.  It does show it for about a dozen other servers, but 
not for 
> REXECD.
> 
> Searching the archives, I found very few questions about REXECD and 
nothing 
> concerning OBEYFILE.
> 
> Is it possible that your comment about OBEYFILE to restart TCPIP 
servers, a 
> general comment and not explicitly for the REXECD server?

The OBEYFILE technique for resetting the restart counter applies to any 
server actually monitored by the stack.  That is, those with PORT 
reservations that do not have NOAUTOLOG in them.  You will not find any 
server-specific reference; only the generic usage note on the MaxRestart 
statement.  (And it doesn't apply to RXAGENTx servers because they don't 
even talk to TCP/IP!)

> 06:01:09 AUTO LOGON  ***   RXAGENT1 USERS = 62BY REXECD
> 06:01:09 USER DSC   LOGOFF AS  REXECD   USERS = 61
> USER DSC   LOGOFF AS  REXECD   USERS = 61
> 06:01:12 DTCIPI030W STARTANEWLIFE: VICTIM REXECD
>   CALLED FOR REASON: CLIENT HAS ENDED TCP/IP SERVICE

REXECD's and RXAGENT1's console logs should have some information on them. 
 REXECD is ending *itself*.  Perhaps there is a problem with RXAGENT1's 
use of RXSNDIU?  Perhaps some authority problem?

But whatever you do, don't logon to REXECD or RXAGENT1, or use SET SECUSER 
to figure out what's happening.  If you try to look at their consoles in 
real time, you interfere with their communications.  Rome will burn and 
civilization will end.  (SET OBSERVER might be ok...dunno.)

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: Capturing response from SCS

[Michael Harding]

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  wrote on 07/20/2011
10:09:48 AM:

> From: "A. Harry Williams" 
> 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 
>
> /*
> *
> *  ROUTINE:  RSCS REXX (pipeline driver for RSCS 3.1)


-- etc --

Re: Capturing response from SCS

[A. Harry Williams]

/*
*
*  ROUTINE:  RSCS REXX (pipeline driver for RSCS 3.1)
*
*  PURPOSE:  Pipeline driver to issue RSCS 3.1 command and trap
*output. No inputs; output sent to primary output.
*
*  PACKAGE:  USERTOOL
*
*  CALLS:CP SET SMSG
*
*  DEPENDENCIES: Calling programs may need to be aware that this
*driver can CP SET SMSG IUCV at beginning and
*CP SET SMSG OFF at the end.
*
*  AUTHOR:   Robert Fowles2/25/92
*
*  REVISIONS:
*/

arg RSCScmd '(' opts

call Scanopts

if setsmsg then address command 'CP SET SMSG IUCV'
sig = right(time('L'),6)   /* Unique CRI signature for this call */

'maxstrm output'
if rc = 0
then sec = ''
else sec = '\ Rscs: | *.output.1:'   /* Write to secondary */

'CALLPIPE (end \)',
  '|STARMSG *MSG CP SM RSCSX (SL.'sig')' RSCScmd,
  '|Rscs: find 0004RSCS',   /* only SMSGS from RSCS */
  '|spec 22-*',  /* Strip STARMSG header and part of othr*/
  '|locate 20.6 /'sig'/',/* Just ones with CRI signature */
  '|tolabel 0001'||, /* Until "End of Response" msg num */
  '|spec 31-*',  /* Keep just message text */
  '|buffer', /* Prevent halt before last line */
  '|f: fanout',  /* Save output for below */
  '|take 1', /* Discard output */
  '|c: faninany',/* Come here to stop pipeline */
  '|spec /pipmod stop/', /* Set up to stop */
  '|subcom cms', /* Stop STARMSG and DELAY */
 '\literal +00:10',  /* Set timer to stop pipeline */
  '|delay',
  '|c:', /* Go stop pipeline */
 '\immcmd stop', /* Set immediate command "stop" */
  '|c:', /* Go stop pipeline */
 '\ f:', /* Send to primary output */
  '|*:',
  sec

if setsmsg then address command 'CP SET SMSG OFF'

exit rc

ScanOpts:
   setsmsg = 1
   rscs = 'RSCSX'
   do while opts <> ''
  parse var opts opt opts
  select
 when opt = 'NOSET' then setsmsg = 0
 when opt = 'RSCS' then do
parse var opts rscs opts
if rscs = '' then rscs = 'RSCSX'
 end
 otherwise call Errstop 'Incorrect argument'
  end
   end
   parse value diagrc(8,'QUERY USER' rscs) with cprc cpcc m
   if cprc > 0 then exit cprc
   return

Errstop:
   say arg(1)
   exit 100

Re: Capturing response from SCS

[Fran Hensler]

This will do it:
 
 
/* REXX */
 
   address "COMMAND"
 
  "CP SET  MSG IUCV"
 
  "PIPE (ENDCHAR ?) STARMSG *MSG CP SMSG RSCS QUERY LINKS ",
 "| specs 17-* 1",   /* Drop the first 16 chars  */
 "| STEM REC.",
 "| LITERAL +5  | DELAY",
 "| PIPESTOP"
 
   say "HowMany" rec.0
 
   Do i = 1 to rec.0
 say rec.i
   End
 
exit
 
/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"
--
On Wed, 20 Jul 2011 10:28:49 -0500 =?iso-8859-1?Q?Richard_Baek?= said:
>I'm writing a REXX exec in which I'm issuing a command 'SM RSCS Q LINKS'
>and I'd like to capture the response back from RSCS.  Does anyone know how
>to do this?  Maybe you have an example of the code I need to use?

Re: Capturing response from SCS

[Dave Jones]

Hi, Richard.

Go to the IBM VM download site at
http://www.vm.ibm.com/download/packages/ and get the NETLIST package. It
will show you how to capture the responses back from RSCS and may even
do what you want right out of the box.

Have a good one, too.

DJ



On 07/20/2011 10:28 AM, Richard Baek wrote:
> I'm writing a REXX exec in which I'm issuing a command 'SM RSCS Q
> LINKS' and I'd like to capture the response back from RSCS.  Does
> anyone know how to do this?  Maybe you have an example of the code I
> need to use?
> 

-- 
Dave Jones
V/Soft Software
www.vsoft-software.com
Houston, TX
281.578.7544

Capturing response from SCS

[Richard Baek]

I'm writing a REXX exec in which I'm issuing a command 'SM RSCS Q LINKS' 

and I'd like to capture the response back from RSCS.  Does anyone know ho
w 
to do this?  Maybe you have an example of the code I need to use?

Re: REXEC and RXAGENT1

[Alan Altmark]

On Wednesday, 07/20/2011 at 10:18 EDT, Tom Duerbusch 
 wrote:
> My manuals (z/VM 5.2) do not show a method of recycling REXECD using the 

> OBEYFILE command.  It does show it for about a dozen other servers, but 
not for 
> REXECD.
> 
> Searching the archives, I found very few questions about REXECD and 
nothing 
> concerning OBEYFILE.
> 
> Is it possible that your comment about OBEYFILE to restart TCPIP 
servers, a 
> general comment and not explicitly for the REXECD server?

The OBEYFILE technique for resetting the restart counter applies to any 
server actually monitored by the stack.  That is, those with PORT 
reservations that do not have NOAUTOLOG in them.  You will not find any 
server-specific reference; only the generic usage note on the MaxRestart 
statement.  (And it doesn't apply to RXAGENTx servers because they don't 
even talk to TCP/IP!)

> 06:01:09 AUTO LOGON  ***   RXAGENT1 USERS = 62BY REXECD
> 06:01:09 USER DSC   LOGOFF AS  REXECD   USERS = 61
> USER DSC   LOGOFF AS  REXECD   USERS = 61
> 06:01:12 DTCIPI030W STARTANEWLIFE: VICTIM REXECD
>   CALLED FOR REASON: CLIENT HAS ENDED TCP/IP SERVICE

REXECD's and RXAGENT1's console logs should have some information on them. 
 REXECD is ending *itself*.  Perhaps there is a problem with RXAGENT1's 
use of RXSNDIU?  Perhaps some authority problem?

But whatever you do, don't logon to REXECD or RXAGENT1, or use SET SECUSER 
to figure out what's happening.  If you try to look at their consoles in 
real time, you interfere with their communications.  Rome will burn and 
civilization will end.  (SET OBSERVER might be ok...dunno.)

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: REXEC and RXAGENT1

[Tom Duerbusch]

After a restart of TCPIP, yep, I got that.  I have too frequent of restarts.

06:00:37 DTCIPI030W STARTANEWLIFE: VICTIM REXECD, REASON "RESTARTING YO   
 BEEN RESTARTED"  
06:00:37 AUTO LOGON  ***   REXECD   USERS = 60BY TCPIP
AUTO LOGON  ***   REXECD   USERS = 60 
06:00:38 DTCMON442I CP FORCE RXAGENT1 ISSUED BY REXECD; RESULTS PENDING 
06:00:38 USER DSC   LOGOFF AS  RXAGENT1 USERS = 60FORCED BY TCPIP   
USER DSC   LOGOFF AS  RXAGENT1 USERS = 60FORCED BY TCPIP
06:00:38 DTCMON443I CP FORCE RXAGENT1 ISSUED BY REXECD; COMMAND SUCCESS 
06:00:38 DTCMON442I CP FORCE RXAGENT1 ISSUED BY REXECD; RESULTS PENDING 
06:00:38 DTCMON443I CP FORCE RXAGENT1 ISSUED BY REXECD; COMMAND SUCCESS 
06:00:38 DTCMON442I CP FORCE RXAGENT2 ISSUED BY REXECD; RESULTS PENDING 
06:00:38 DTCMON443I CP FORCE RXAGENT2 ISSUED BY REXECD; COMMAND SUCCESS 
06:01:09 AUTO LOGON  ***   RXAGENT1 USERS = 62BY REXECD  
06:01:09 USER DSC   LOGOFF AS  REXECD   USERS = 61   
USER DSC   LOGOFF AS  REXECD   USERS = 61
06:01:12 DTCIPI030W STARTANEWLIFE: VICTIM REXECD, REASON "RESTARTING YO  
 CALLED FOR REASON: CLIENT HAS ENDED TCP/
IP SERVICE"  
06:01:12 AUTO LOGON  ***   REXECD   USERS = 62BY TCPIP   
AUTO LOGON  ***   REXECD   USERS = 62
06:01:13 DTCMON442I CP FORCE RXAGENT1 ISSUED BY REXECD; RESULTS PENDING  
06:01:13 USER DSC   LOGOFF AS  RXAGENT1 USERS = 61FORCED BY TCPIP
USER DSC   LOGOFF AS  RXAGENT1 USERS = 61FORCED BY TCPIP 
06:01:13 DTCMON443I CP FORCE RXAGENT1 ISSUED BY REXECD; COMMAND SUCCESS  
06:01:13 DTCMON442I CP FORCE RXAGENT1 ISSUED BY REXECD; RESULTS PENDING  
06:01:13 DTCMON443I CP FORCE RXAGENT1 ISSUED BY REXECD; COMMAND SUCCESS  
06:01:13 DTCMON442I CP FORCE RXAGENT2 ISSUED BY REXECD; RESULTS PENDING  
06:01:13 DTCMON443I CP FORCE RXAGENT2 ISSUED BY REXECD; COMMAND SUCCESS  
06:01:44 AUTO LOGON  ***   RXAGENT1 USERS = 62BY REXECD 
06:01:44 USER DSC   LOGOFF AS  REXECD   USERS = 61  
USER DSC   LOGOFF AS  REXECD   USERS = 61   
06:01:47 DTCIPI030W STARTANEWLIFE: VICTIM REXECD, REASON "RESTARTING YO 
 CALLED FOR REASON: CLIENT HAS ENDED TCP/   
IP SERVICE" 
06:01:47 AUTO LOGON  ***   REXECD   USERS = 62BY TCPIP  
AUTO LOGON  ***   REXECD   USERS = 62   
06:01:47 DTCMON442I CP FORCE RXAGENT1 ISSUED BY REXECD; RESULTS PENDING 
06:01:47 USER DSC   LOGOFF AS  RXAGENT1 USERS = 61FORCED BY TCPIP   
USER DSC   LOGOFF AS  RXAGENT1 USERS = 61FORCED BY TCPIP
06:01:47 DTCMON443I CP FORCE RXAGENT1 ISSUED BY REXECD; COMMAND SUCCESS 
06:01:47 DTCMON442I CP FORCE RXAGENT1 ISSUED BY REXECD; RESULTS PENDING 
06:01:47 DTCMON443I CP FORCE RXAGENT1 ISSUED BY REXECD; COMMAND SUCCESS 
06:01:47 DTCMON442I CP FORCE RXAGENT2 ISSUED BY REXECD; RESULTS PENDING 
06:01:47 DTCMON443I CP FORCE RXAGENT2 ISSUED BY REXECD; COMMAND SUCCESS 
06:02:19 AUTO LOGON  ***   RXAGENT1 USERS = 62BY REXECD 
06:02:19 USER DSC   LOGOFF AS  REXECD   USERS = 61  
USER DSC   LOGOFF AS  REXECD   USERS = 61   
06:02:22 DTCIPI030W STARTANEWLIFE: VICTIM REXECD, REASON "RESTARTING YO 
 CALLED FOR REASON: CLIENT HAS ENDED TCP/   
IP SERVICE" 
06:02:22 AUTO LOGON  ***   REXECD   USERS = 62BY TCPIP  
AUTO LOGON  ***   REXECD   USERS = 62   
06:02:22 DTCMON442I CP FORCE RXAGENT1 ISSUED BY REXECD; RESULTS PENDING 
06:02:22 USER DSC   LOGOFF AS  RXAGENT1 USERS = 61FORCED BY TCPIP   
USER DSC   LOGOFF AS  RXAGENT1 USERS = 61FORCED BY TCPIP
06:02:22 DTCMON443I CP FORCE RXAGENT1 ISSUED BY REXECD; COMMAND SUCCESS 
06:02:22 DTCMON442I CP FORCE RXAGENT1 ISSUED BY REXECD; RESULTS PENDING 
06:02:22 DTCMON443I CP FORCE RXAGENT1 ISSUED BY REXECD; COMMAND SUCCESS 
06:02:22 DTCMON442I CP FORCE RXAGENT2 ISSUED BY REXECD; RESULTS PENDING 
06:02:22 DTCMON443I CP FORCE RXAGENT2 ISSUED BY REXECD; COMMAND SUCCESS 
06:02:53 AUTO LOGON  ***   RXAGENT1 USERS = 62BY REXECD 
06:02:53 USER DSC   LOGOFF AS  REXECD   USERS = 61  
USER DSC   LOGOFF AS  REXECD   USERS = 61   
06:02:56 DTCIPI030W STARTANEWLIFE: VICTIM REXECD, REASON "RESTARTING YO 
 CALLED FOR REASON: CLIENT HAS ENDED TCP/   
IP SERVICE" 
06:02:56 AUTO LOGON  ***   REXECD   USERS = 62BY TCPIP  
AUTO L

PostScript errors from RSCS output?

[David Boyes]

Thanks, Alan. 

I'm getting some annoying issues with RSCS printing to printers using the CUPS 
PostScript conversion (to non-PS datastreams). The separator page prints OK 
some of the time, and aborts about half-way into the page the rest of the time 
(and the job totally fails). 

>From the CUPS log, I see: 

D [20/Jul/2011:09:14:27 -0400] [Job 2263] Error: /undefined in a
D [20/Jul/2011:09:14:27 -0400] [Job 2263] Operand stack:
D [20/Jul/2011:09:14:27 -0400] [Job 2263] c   true
D [20/Jul/2011:09:14:27 -0400] [Job 2263] Execution stack:
D [20/Jul/2011:09:14:27 -0400] [Job 2263] %interp_exit   .runexec2   
--nostringval--   --nostringval--   --nostringval--   2   %stopped_push   
--nostringval--   --nostringval--   --nostringval--   false   1   %stopped_push 
  1846   1   3   %oparray_pop   1845   1   3   %oparray_pop   1829   1   3   
%oparray_pop   1723   1   3   %oparray_pop   --nostringval--   %errorexec_pop   
.runexec2   --nostringval--   --nostringval--   --nostringval--   2   
%stopped_push   --nostringval--
D [20/Jul/2011:09:14:27 -0400] [Job 2263] Dictionary stack:
D [20/Jul/2011:09:14:27 -0400] [Job 2263] --dict:1170/1684(ro)(G)--   
--dict:1/20(G)--   --dict:94/200(L)--
D [20/Jul/2011:09:14:27 -0400] [Job 2263] Current allocation mode is local
D [20/Jul/2011:09:14:27 -0400] [Job 2263] GPL Ghostscript 8.70: Unrecoverable 
error, exit code 1
D [20/Jul/2011:09:14:27 -0400] [Job 2263] Process 3940 ending: 
"foomatic-gswrapper -q -dBATCH -dPARANOIDSAFER -dQUIET -dNOPAUSE -sDEVICE=ijs 
-sIjsServer=hpijs -dDEV..."
D [20/Jul/2011:09:14:27 -0400] [Job 2263] renderer return value: 1
D [20/Jul/2011:09:14:27 -0400] [Job 2263] renderer received signal: 1
D [20/Jul/2011:09:14:27 -0400] [Job 2263] Process dying with "Possible error on 
renderer command line or PostScript error. Check options.", exit stat: 3
D [20/Jul/2011:09:14:27 -0400] [Job 2263] error: Illegal seek (29)
D [20/Jul/2011:09:14:27 -0400] [Job 2263] Cleaning up ...
D [20/Jul/2011:09:14:27 -0400] [Job 2263] Killing process 3939 (KID4) with 
signal 15
D [20/Jul/2011:09:14:27 -0400] [Job 2263] KID3 exited with status 3
D [20/Jul/2011:09:14:27 -0400] [Job 2263] Renderer exit stat: 3
D [20/Jul/2011:09:14:27 -0400] [Job 2263] Process dying with "Caught 
termination signal: Job canceled", exit stat: 0
D [20/Jul/2011:09:14:27 -0400] [Job 2263] error: Interrupted system call (4)
D [20/Jul/2011:09:14:27 -0400] [Job 2263] Cleaning up ...
D [20/Jul/2011:09:14:27 -0400] [Job 2263] 
D [20/Jul/2011:09:14:27 -0400] [Job 2263] Closing foomatic-rip.
D [20/Jul/2011:09:14:27 -0400] [Job 2263] Killing process 3939 (KID4) with 
signal 9
D [20/Jul/2011:09:14:27 -0400] [Job 2263] 
D [20/Jul/2011:09:14:27 -0400] [Job 2263] Closing foomatic-rip.
D [20/Jul/2011:09:14:27 -0400] [Job 2263] Renderer process finished
D [20/Jul/2011:09:14:27 -0400] [Job 2263] Process dying with "Error closing 
renderer", exit stat: 3
D [20/Jul/2011:09:14:27 -0400] [Job 2263] error: Bad file descriptor (9)
D [20/Jul/2011:09:14:27 -0400] [Job 2263] Cleaning up ...
D [20/Jul/2011:09:14:27 -0400] [Job 2263] Killing process 3938 (KID3) with 
signal 15
D [20/Jul/2011:09:14:27 -0400] [Job 2263] Killing process 3938 (KID3) with 
signal 9
D [20/Jul/2011:09:14:27 -0400] [Job 2263] Error closing renderer
D [20/Jul/2011:09:14:27 -0400] [Job 2263] 
D [20/Jul/2011:09:14:27 -0400] [Job 2263] Closing foomatic-rip.
D [20/Jul/2011:09:14:27 -0400] [Job 2263] ready to print
D [20/Jul/2011:09:14:27 -0400] [Job 2263] End of messages

Which looks like what would happen if the Postscript code coming from RSCS is 
malformed in some way that's causing a value to be undefined.   Has anyone else 
encountered this? It doesn't seem to be linked to the type of non-PS printer 
(all the HP inkjets I have fail in the same way), but my PostScript is a little 
rusty. 

-- db

Re: Where is PPS EXEC?

[Alan Altmark]

On Wednesday, 07/20/2011 at 08:47 EDT, David Boyes  
wrote:
> On a standard RSCS install, where do PPS EXEC and PPS XEDIT land?

On the 406 disk or .PACKAGE subdirectory.

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

Where is PPS EXEC?

[David Boyes]

On a standard RSCS install, where do PPS EXEC and PPS XEDIT land?   

-- db

Re: Ficon CTC's between LPAR's in same Box

[Crispin Hugo]

Typo CSE

 

Crispin Hugo

Systems Programmer

Macro 4 Limited

 

Direct Line: +44 (0)1293 872121, Switchboard: +44 (0)1293 872000, Fax:
+44 (0)1293 872001

 

A Division of the UNICOM Group of Companies

www.macro4.com 

 

Macro 4 Registered office :The Orangery, Turners Hill Road, Worth,
Crawley, West Sussex, RH10 4SS

Registered in England no. 927588

 

Please consider the environment and THINK before you print this email.

 

Email Disclaimer  

-Original Message-
From: The IBM z/VM Operating System [mailto:IBMVM@LISTSERV.UARK.EDU] On
Behalf Of Frank M. Ramaekers
Sent: 20 July 2011 13:15
To: IBMVM@LISTSERV.UARK.EDU
Subject: Re: Ficon CTC's between LPAR's in same Box

 

"CSI in z/VM"?

 

 

Frank M. Ramaekers Jr.

 

 



From: The IBM z/VM Operating System [mailto:IBMVM@LISTSERV.UARK.EDU] On
Behalf Of Crispin Hugo
Sent: Wednesday, July 20, 2011 1:30 AM
To: IBMVM@LISTSERV.UARK.EDU
Subject: Re: Ficon CTC's between LPAR's in same Box

 

Thank you to all who responded, you have all been a great help.

I can't use Hipersocket as I am having to 'play' with CSI in z/VM.

 

I can't buy a switch so I will try the port to port route.

 

Am I right to assume, if I am clever(?) with the configuration, I could
connect all 15 LPARS to each other with CTC's ? 

 

 

Crispin Hugo

Systems Programmer

Macro 4 Limited

 

Direct Line: +44 (0)1293 872121, Switchboard: +44 (0)1293 872000, Fax:
+44 (0)1293 872001

 

A Division of the UNICOM Group of Companies

www.macro4.com 

 

Macro 4 Registered office :The Orangery, Turners Hill Road, Worth,
Crawley, West Sussex, RH10 4SS

Registered in England no. 927588

 

Please consider the environment and THINK before you print this email.

 

Email Disclaimer  

-Original Message-
From: The IBM z/VM Operating System [mailto:IBMVM@LISTSERV.UARK.EDU] On
Behalf Of David Boyes
Sent: 19 July 2011 19:55
To: IBMVM@LISTSERV.UARK.EDU
Subject: Re: Ficon CTC's between LPAR's in same Box

 


Replied by (mine, not so good) memory, see the IOCP manuals for
details...  ;-) 
__
Clovis 

 

Shimon Lebowitz wrote a very nice paper on how to do this with ESCON
channels; the FICON configuration is less complicated, but Shimon covers
that discussion too. http://www.sinenomine.net/node/265

 


-

This email has been scanned for all known viruses by the MessageLabs
Email
Security Service and the Macro 4 internal virus protection system.
.



-

This email has been scanned for all known viruses by the MessageLabs
Email
Security Service and the Macro 4 internal virus protection system.
.


_ 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 email has been scanned for all known viruses by the MessageLabs
Email
Security Service and the Macro 4 internal virus protection system.
.



- 
This email has been scanned for all known viruses by the MessageLabs Email
Security Service and the Macro 4 internal virus protection system.
. 

Re: Ficon CTC's between LPAR's in same Box

[Frank M. Ramaekers]

"CSI in z/VM"?

 

 

Frank M. Ramaekers Jr.

 

 



From: The IBM z/VM Operating System [mailto:IBMVM@LISTSERV.UARK.EDU] On
Behalf Of Crispin Hugo
Sent: Wednesday, July 20, 2011 1:30 AM
To: IBMVM@LISTSERV.UARK.EDU
Subject: Re: Ficon CTC's between LPAR's in same Box

 

Thank you to all who responded, you have all been a great help.

I can't use Hipersocket as I am having to 'play' with CSI in z/VM.

 

I can't buy a switch so I will try the port to port route.

 

Am I right to assume, if I am clever(?) with the configuration, I could
connect all 15 LPARS to each other with CTC's ? 

 

 

Crispin Hugo

Systems Programmer

Macro 4 Limited

 

Direct Line: +44 (0)1293 872121, Switchboard: +44 (0)1293 872000, Fax:
+44 (0)1293 872001

 

A Division of the UNICOM Group of Companies

www.macro4.com 

 

Macro 4 Registered office :The Orangery, Turners Hill Road, Worth,
Crawley, West Sussex, RH10 4SS

Registered in England no. 927588

 

Please consider the environment and THINK before you print this email.

 

Email Disclaimer  

-Original Message-
From: The IBM z/VM Operating System [mailto:IBMVM@LISTSERV.UARK.EDU] On
Behalf Of David Boyes
Sent: 19 July 2011 19:55
To: IBMVM@LISTSERV.UARK.EDU
Subject: Re: Ficon CTC's between LPAR's in same Box

 


Replied by (mine, not so good) memory, see the IOCP manuals for
details...  ;-) 
__
Clovis 

 

Shimon Lebowitz wrote a very nice paper on how to do this with ESCON
channels; the FICON configuration is less complicated, but Shimon covers
that discussion too. http://www.sinenomine.net/node/265

 


-

This email has been scanned for all known viruses by the MessageLabs
Email
Security Service and the Macro 4 internal virus protection system.
.



-

This email has been scanned for all known viruses by the MessageLabs
Email
Security Service and the Macro 4 internal virus protection system.
.



_
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.