Randy,
Here is a command file that I used at my last MPE shop.
See the page at http://www.hpmmsupport.com/MPE%20Manual/5000/B3692090006.10442/11.htm for details on how it uses the envID (shadow) and nodename (hp979-2) parameters. You will need to change these to suit your own environment.
---------- Start ----------
anyparm parms = !['']
setvar rem_cmd word('!parms')
if lft(rem_cmd,1) = '?' then
setvar s chr(14)
setvar b chr(14)+':'+chr(15)
echo ![s+'R;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;']
echo ![b+' REM - Access the remote HPe3000.']
echo ![s+'5;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;']
echo ![b+'']
echo ![b+' Syntax:']
echo ![b+' REM [parms]']
echo ![b+'']
echo ![b+' Parameters:']
echo ![b+' parms Available commands are:']
echo ![b+' HELLO [logon] - Logon to the remote HPe3000.']
echo ![b+' BYE - Terminate the remote session.']
echo ![b+' [blank] - Switch to the remote session.']
echo ![b+' Note: Use ":" (colon) to return to']
echo ![b+' your local session.']
echo ![b+' cmd - Execute "cmd" on the remote session.']
echo ![b+' Notes: Must be a valid MPE/iX command.']
echo ![b+' : The local CIERROR and HPCIERR']
echo ![b+' will reflect the values on the']
echo ![b+' remote system.']
echo ![b+'']
echo ![b+' Restrictions:']
echo ![b+' None.']
echo ![b+'']
echo ![s+'F;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;']
#
# Author: Robert W.Mills, (C) Mills Thavasu Associates, 2005
#
# Modification History can be found at the end of this file.
#
deletevar s, b
return
endif
if ups(rem_cmd) = 'HELLO' then
#-- Create a session on the remote HPe3000.
errclear
setvar dserror 0
setvar nscierr 0
if bound(dsline_open) then
echo
echo ![chr(27)+'&dJ']You already have a remote session. Details are:
echo
remote showme
echo
return
endif
remote !parms;dsline=shadow=hp979-2
if nscierr = 0 then
setvar dsline_open true
endif
elseif ups(rem_cmd) = 'BYE' then
#-- Terminate session on the remote HPe3000.
if not bound(dsline_open) then
echo
echo ![chr(27)+'&dJ']You do not have a remote session to terminate.
echo
return
endif
remote !parms
deletevar dsline_open
elseif rem_cmd = '' then
#-- Switch user to the remote HPe3000 session.
echo ![chr(27)+'&dJ']Enter :[return] to return to local session.
remote
else
#-- Execute command on the remote HPe3000.
if not bound(DSLINE_OPEN) then
echo
echo ![chr(27)+'&dJ']You do not have a remote session to execute commands on.
echo
return
endif
purge rmstatus,temp > $null
build rmstatus;rec=-80,,f,ascii;temp
remote file rmstatus=rmstatus:$back,oldtemp
continue
remote !parms
remote echo setvar cierror !!cierror > *rmstatus
remote echo setvar hpcierr !!hpcierr >> *rmstatus
xeq rmstatus
endif
return
#-- DO NOT ENTER EXECUTABLE CODE AFTER ABOVE 'RETURN' STATEMENT.
Modification History:
Versn | Date | Who | Reason for Change
------+------------+-----+------------------------------------------
01.00 | 25/01/2005 | RWM | Initial version.
01.01 | 24/11/2006 | RWM | Added environment id of 'shadow'.
#===================================================================
# End of command file.
#===================================================================
---------- Finish ----------
regards,
Robert W.Mills
-----Original Message-----
From: HP-3000 Systems Discussion [mailto:[log in to unmask]] On Behalf Of Stanfield, Randy (Carrollton, TX)
Sent: 30 January 2012 18:13
To: [log in to unmask]
Subject: [HP3000-L] DSLINE commands - Email found in subject
Does anyone have command files built for evaluating DSLINE connections?
1. Is a DSLINE OPEN for specific system? Have multiple machines
2. evalulating remote logon(user/account)?
* To join/leave the list, search archives, change list settings, *
* etc., please visit http://raven.utc.edu/archives/hp3000-l.html *
_________________________________________________________
Disclaimer: This email transmission is privileged, confidential and intended solely for the person or
organisation to whom it is addressed. If you are not the intended recipient, you must not copy, forward,
distribute or disseminate the information, or take any action in reliance of it. Any views expressed
in this message are those of the individual sender, except where the sender specifically states them
to be the views of Forth Ports Limited. If you have received this message in error please notify
Forth Ports Limited immediately by email to [log in to unmask] , and delete the message from
your computer. All messages passing through this gateway are checked for viruses but we strongly
recommend that you check for viruses using your own virus scanner as Forth Ports Limited will not
take responsibility for any damage caused as a result of virus infection. Also, as Internet Communications
are capable of data corruption, it may be inappropriate to rely on advice contained in an e-mail without
obtaining written confirmation of it, and Forth Ports Limited takes no responsibility for changes
made to this message after it was sent. The expression "Forth Ports Limited" for the purposes of
this disclaimer includes all Forth Ports group and associated companies.
Forth Ports Registered Offices
Forth Ports Limited
Registered Office: 1 Prince of Wales Dock, Edinburgh, EH6 7DX, Registered in Scotland No 134741
Port of Tilbury London Limited, Registered Office: Leslie Ford House, Tilbury Freeport, Tilbury, Essex, RM18 7EH, Registered in England No 2659118
Port of Dundee Limited, Registered Office: 1 Prince of Wales Dock, Edinburgh, EH6 7DX, Registered in Scotland No 155442
Forth Estuary Towage Limited, Registered Office: 1 Prince of Wales Dock, Edinburgh, EH6 7DX, Registered in Scotland No 76746
Forth Properties Limited, Registered Office: 1 Prince of Wales Dock, Edinburgh, EH6 7DX, Registered in Scotland No 124730
Forth Property Developments Limited, Registered Office: 1 Prince of Wales Dock, Edinburgh, EH6 7DX, Registered in Scotland No 223863
Forth Property Holdings Limited, Registered Office: 1 Prince of Wales Dock, Edinburgh, EH6 7DX, Registered in Scotland No 223868
Forth Property Investments Limited, Registered Office: 1 Prince of Wales Dock, Edinburgh, EH6 7DX, Registered in Scotland No 102967
Ocean Terminal Limited, Registered Office: 1 Prince of Wales Dock, Edinburgh, EH6 7DX, Registered in Scotland No 178696
Nordic Limited, Leslie Ford House, Tilbury Freeport, Essex RM18 7EH Registered in England No 5396187
Nordic Holdings Limited, Leslie Ford House, Tilbury Freeport, Essex RM18 7EH Registered in England No 3118969
Nordic Recycling (Lincoln) Limited, Leslie Ford House, Tilbury Freeport, Essex RM18 7EH Registered in England No 06232146
Nordic Recycling Limited, Leslie Ford House, Tilbury Freeport, Essex RM18 7EH Registered in England No 2963790
Nordic Forest Terminals Limited, Leslie Ford House, Tilbury Freeport, Essex RM18 7EH Registered in England No 03112560
Nordic Data Management Limited, Leslie Ford House, Tilbury Freeport, Essex RM18 7EH Registered in England No 3033517
* To join/leave the list, search archives, change list settings, *
* etc., please visit http://raven.utc.edu/archives/hp3000-l.html *
|
