You can, below my PTF3270 EXEC that does it all for you.
- LNK is a LINK and ACCESS exec, you can use VMLINK instead
- RxMB displays a selection panel
(useful if you have many VM systems)
- FINDNODE is an exec that find a userfriendly name for our VM systems
(you can do without)
2008/6/16 Howard Rifkind <[EMAIL PROTECTED]>:
> Off the top of the lists hat would anyone know if you can connect a second
> physical monitor for z/VM.
>
> I would like to have one in the computer room and one in the Systems
> Programmers area.
>
> I know you can have a web interface to the monitor but that isn't way the
> manager wants.
>
> Thanks.
>
>
--
Kris Buelens,
IBM Belgium, VM customer support
--------------------------------------------------------------------
/* This exec can be used to look at the VM Toolkit Performance data
from a 3270 screen
+-----------------------------------------------------------+
| format: | PTK3270 |
+-----------------------------------------------------------+
Written by: Kris Buelens IBM Belgium; KRIS at VMKBFF01 12 Jul 2007*/
parse upper source . . myname mytype . syn .
address command
Linked=0; RenProf=0
parse value findnode('* :suba :naam') ,
with . . suba . '15'x Vmnaam '15'x
'PIPE CP Q RESOURCE USER PERFSVM|StrFind /Resource/',
'|SPEC W2 1|SORT D|STEM R.'
Select
when r.0=0 then call ErrExit 55,'User PERFSVM does not seem active'
when r.0=1 then Resource='FCXRES'suba
Otherwise
if suba=75 then labels.1='Look at overview panel with all VMs'
else labels.1='Look at overview panel with some VMs'
labels.2='Look at data of VM' VmNaam
labels.0=2
RXMB_Title='Please select'
RXMB_Text =']GWith the first choice you can select a VM by',
'placing the cursor on it and pressing ENTER'
RXMB_Keys='Enter=Proceed PF3=Cancel'
RXMB_Style='Shadow=Yes Shadowcolor=Yellow',
'Border=Yes Bordercolor=Yellow Size=Normal',
'Place=Center Alarm=Yes'
RXMB_Select='Type=Cursor Lab=&labels'
Parse Value RXMB('SELECT') with key_pressed '#' selNb
If key_pressed='PF3' then call exit 0,'Goodbye'
Resource= r.selNb
end
'STATE FCONX $PROFILE A'
if rc=0 then do
'STATE -FCONX- $PROFILE A'
if rc=0 then call ErrExit 28,'We found both -FCONX- $PROFILE A',
'and FCONX $PROFILE A',,
'The -FCONX- version was a copy we RENAMED to assure you run',,
'with the standard KBC version. Please cleanup.'
'RENAME FCONX $PROFILE A -FCONX- = ='
end
'STATE PERFKIT MODULE'
if rc<>0 then do
'EXEC LNK PERFSVM 201; = 29D; = 1CC (NOMSG'
Linked=(rc=0)
if rc<>0 then exit rc
end
Say 'Press enter to view the Performance toolkit panel'
'PERFKIT FCONAPPC' resource
'STATE -FCONX- $PROFILE A'
if rc=0 then 'RENAME -FCONX- $PROFILE A FCONX = ='
if linked then
'EXEC LNK PERFSVM 201; PERFSVM 29D; PERFSVM 1CC (NOMSG RESTORE'
exit rc
ERREXIT: EXIT: /* general errorexit routine */
parse upper source . . myname mytype . syn .
do i=2 to arg() /* give errormessages (if any) */
say myname':' arg(i)
end
exit arg(1)
