As per other posts, your user menu needs to recognise the Run of
Reflection's file transfer program etc.
In our case we have restructured our menus thus. Our production users
have a standard s/3000 menus that don't allow them to invoke file
transfers. We did this because as soon as you allow file transfers,
then the user has the ability to accidentally overwrite critical files
in their logon account.
Any user that required the ability to transfer a file to, or from, the
HP were therefore given a special logon in a download account for this
purpose - and the menus in that account were structured to recognise the
"Run" command that reflections and minisoft invoke when starting a file
transfer session.
We're in the process of removing this option - having decided to use FTP
instead.
Here's a working example :
Each user menu presents the options and then invokes a single, central
menu which waits on the user's selection. In the examples below the
user is CAPEAMNU and the central menu is SELECNEW which also invokes
another "menu" file called LASTMENU. The last menu recognises special
key words - including "C" to allow them to change their VESSOFT
password.
(1) capeamnu.secnew.swims
*HEADER {termpos(0,0)} {termclear()}
*HEADER {termpos(0,20)} Capital Events Menu CAPEAMNU
*COMMENT
*COMMENT V1.12 Fantasia run direcly from GA/GB/GE ADS Nov 99
*COMMENT 01.13 swutm given own versions of GA/GC ADS Oct 01
*COMMENT
*CAPTIONL {termpos(2,1)} !MENUOPTION. Goldilox (General Enquiries)
FILE DFQAPF;DEV=!PRINTER
RUN PRQA.PUB.SWIMS
*CAPTION Setup Corporate Actions
FILE FORMLIST=S2GA!HPJOBNAME;DEV=COMP6,2
FILE FFFGA=FFFGA.PUB.SWIMS
FILE DFGAPF;DISC=1000000
FILE DFGAPF2;DISC=1000000
RUN PRGA.PUB.SWIMS;PARM=0
RESET FORMLIST
*CAPTION Modify Corporate Actions
FILE FFFGC=FFFGC.PUB.SWIMS
FILE DFGCPF;DEV=!PRINTER
RUN PRGC.PUB.SWIMS;PARM=0
<clip>
*CAPTIONL {termpos(21,2)} Type P to Review/Change Printers
*ENTERSELECTION
USE SELECNEW.SECNEW.SWIMS
:
(2) selecnew.secnew.swims
SETVAR CIERROR 0
NOMSG INPUT VEMENUSELECTION;WAIT=600;PROMPT=&
"Enter selection (or Exit/Redisplay/Lockup/Change password "
IF CIERROR = 9003 THEN
SETVAR VEMENUSELECTION "L"
ECHO {TERMPOS(0,0) + TERMCLEAR() }
ECHO System security
ECHO
ECHO Your terminal has been left unattended
ECHO Automatic lockup has been invoked.
ECHO User= !HPJOBNAME
ENDIF
SETVAR VEMENUSELECTION UPS(VEMENUSELECTION)
IF NUMERIC(LFT(VEMENUSELECTION,1)) &
OR VEMENUSELECTION="E" OR VEMENUSELECTION="R" &
OR VEMENUSELECTION=" " OR VEMENUSELECTION=""
COMMENT No special action required - return to upper menu
ELSE
USE LASTMENU.SECNEW.SWIMS
ENDIF
(3) lastmenu.secnew
Comment
COMMENT <clip>
COMMENT
IF VEMENUSELECTION="LOCAL"
IF LOCPR = "LP"
ECHO ** THERE IS NO LOCAL PRINTER CONFIGURED **
ELSE
SETVAR PRNT "!!LOCPR" + ",,"
SETVAR ENV ""
SETVAR PRINTER "!PRNT"+"!COPIES"+"!ENV"
ECHO **RESETTING PRINT TO LOCAL (!COPIES copies) **
ENDIF
<clip>
ELSEIF VEMENUSELECTION = "RUN PCLINK2.PUB.SYS"
IF HPACCOUNT = "DOWNLOAD"
RUN PCLINK2.PUB.SYS
SETVAR VEMENUSELECTION = "R"
ENDIF
ELSEIF VEMENUSELECTION = "RUN WS92LINK.PUB.SYS"
IF HPACCOUNT = "DOWNLOAD"
RUN WS92LINK.PUB.SYS
SETVAR VEMENUSELECTION = "R"
ENDIF
ELSEIF VEMENUSELECTION = "P"
RUN PRPRINT.PUB.SWIMS
ELSEIF LFT (VEMENUSELECTION, 1) = "C"
RUN LOGON.PUB.VESOFT,VEPASSWORD
ELSEIF LFT (VEMENUSELECTION, 1) = "L"
SETVAR SWERROR 9999
RUN PRSTOP.PUB.SWIMS
IF SWERROR <> 0
CONTINUE
BYE
EOJ
ENDIF
SETVAR VEMENUSELECTION = "L"
ENDIF
:
-----Original Message-----
From: HP-3000 Systems Discussion [mailto:[log in to unmask]] On
Behalf Of Paul Christidis
Sent: 02 February 2005 00:09
To: [log in to unmask]
Subject: Re: [HP3000-L] Vesoft Menus & File xfers
Larry,
You'll need to add an item in your menu that would invoke the file
transfer. The 'logic' associated with that item would depend on the
sophistication of your users. If your users are accustomed in
specifying their own options (file names, record sizes, transfer
methods, etc..) then the following MPE commands (they can also be placed
in a command file) should do the trick:
echo Initiating The file transfer
continue
echo ![CHR(27)]&oBRECEIVE{} from {}
continue
input rf_run_cmd;wait=120
if LEN(rf_run_cmd) > 6 then
!rf_run_cmd
input rf_ccode;wait=1 >$null
echo The file transfer was complete
else
echo **Request canceled or timed out** ![chr(7)] endif deletevar rf_@
If your user community uses different versions of Reflection or
additional emulators then something along the lines of what Chris
replied would be needed. I would not recommend Mark's suggestion,
however, since it would require changing the configuration for each
user.
You may need to add some 'validation' logic to the above to make sure
that the users do not change their 'file transfer' settings and thus
execute some other program instead of the 'pclink2....'. The following
sections are from another command file:
...
setvar pc_link_list &
"RUN PCLINK.PUB.SYS#;RUN PCLINK2.PUB.SYS#;/SYS/PUB/PCLINK2#"
....
input rf_run_cmd;wait=120
if POS(rf_run_cmd,pc_link_list) = 0 then
echo
echo ******** ERROR: Bad transfer utility
echo
escape 976
end
...
Regards
Paul Christidis
HP-3000 Systems Discussion <[log in to unmask]> wrote on 02/01/2005
02:25:29 PM:
> I have an interesting problem. I have placed users into a Vesoft Menu
> system and now the users involved can't do Reflection File Transfers.
> Does anyone out there know what I need to set to enable these users to
> perform their task?
>
> As always, thanks in advance.
>
> Larry A. Barnes
> Systems Administrator - HP3000
>
> Coldwater Creek
>
> * To join/leave the list, search archives, change list settings, *
> * etc., please visit http://raven.utc.edu/archives/hp3000-l.html *
* To join/leave the list, search archives, change list settings, *
* etc., please visit http://raven.utc.edu/archives/hp3000-l.html *
______________________________________________________________________
This email has been scanned by the MessageLabs Email Security System.
For more information please visit http://www.messagelabs.com/email
______________________________________________________________________
The contents of this email are confidential to the intended recipient
and may not be disclosed. Although it is believed that this email and
any attachments are virus free, it is the responsibility of the recipient to confirm this.
Smith & Williamson Corporate Finance Limited - A member of M&A
International Inc. http://www.mergers.net Registered in England No.
4533970. Authorised and regulated by the Financial Services Authority
Smith & Williamson Investment Management Limited, Registered No. 976145. Authorised and regulated by the Financial Services Authority.
Smith & Williamson Pension Consultancy Limited - Independent
Intermediary. Registered No. 3133226. Authorised and regulated by the
Financial Services Authority.
Smith & Williamson Fund Administration Limited, Registered No. 1934644. Authorised and regulated by the Financial Services Authority.
Smith & Williamson Limited - A member of Nexia International.
Registered in England No. 4534022. Regulated by the Institute of
Chartered Accountants in England & Wales for a range of investment
business activities.
Registered Office: No 1 Riding House Street, London W1A 3AS
Telephone: 020 7637 5377 http://www.smith.williamson.co.uk
Nexia Audit Limited - A member of Nexia International. Registered in
England No. 4469576. Registered to carry on audit work and regulated by the Institute of Chartered Accountants in England & Wales for a range of investment business activities.
Registered Office: No 1 Riding House Street, London W1A 3AS
Telephone: 020 7637 5377 http://www.nexiaaudit.co.uk
NCL Investments Limited, Registered No. 1913794.
Member of the London Stock Exchange authorised and regulated by the Financial Services Authority.
Registered Office: Bartlett House, 9-12 Basinghall Street, London EC2V 5NS
Telephone: 020 7600 2801
______________________________________________________________________
This email has been scanned by the MessageLabs Email Security System.
For more information please visit http://www.messagelabs.com/email
______________________________________________________________________
* To join/leave the list, search archives, change list settings, *
* etc., please visit http://raven.utc.edu/archives/hp3000-l.html *
|