HP3000-L Archives

May 2002, Week 4

HP3000-L@RAVEN.UTC.EDU

Options: Use Monospaced Font
Show Text Part by Default
Show All Mail Headers

Message: [<< First] [< Prev] [Next >] [Last >>]
Topic: [<< First] [< Prev] [Next >] [Last >>]
Author: [<< First] [< Prev] [Next >] [Last >>]

Print Reply
Subject:
From:
"Clark, Rick" <[log in to unmask]>
Reply To:
Clark, Rick
Date:
Tue, 28 May 2002 11:36:18 -0400
Content-Type:
text/plain
Parts/Attachments:
text/plain (110 lines)
Peter,

Here is a command file I use that I modify based on my mood or project...

SYSOPR SYS:help fkey
USER DEFINED COMMAND FILE:  FKEY.DPAICMD.SYS

COMMENT ******************************************************
COMMENT    Program FKEY written by Rick Clark 06/20/91
COMMENT    Defines softkeys with user defined labels and
COMMENT    commands.   L1 = softkey label
COMMENT                S1 = command
COMMENT                A1 = function of softkey (TRANSMIT)
COMMENT ******************************************************
SETVAR KEY 1
SETVAR L1 "SJE"
SETVAR S1 "SHOWJOB JOB=@J;EXEC;JOBQ"
SETVAR A1 2
IF HPJOBTYPE="S" AND HPDUPLICATIVE THEN
    ECHO ![CHR(27)]&f!"KEY"k!"A1"a![LEN("!L1")]d![LEN("!S1")]L!L1!S1
ENDIF
SETVAR KEY 2
SETVAR L1 "SJ W"
SETVAR S1 "SHOWJOB WAIT;JOBQ"
SETVAR A1 2
IF HPJOBTYPE="S" AND HPDUPLICATIVE THEN
    ECHO ![CHR(27)]&f!"KEY"k!"A1"a![LEN("!L1")]d![LEN("!S1")]L!L1!S1
ENDIF
SETVAR KEY 3
SETVAR L1 "SHOWQ"
SETVAR S1 "SHOWQ;ACTIVE"
SETVAR A1 2
IF HPJOBTYPE="S" AND HPDUPLICATIVE THEN
    ECHO  ![CHR(27)]&f!"KEY"k!"A1"a![LEN("!L1")]d![LEN("!S1")]L!L1!S1
ENDIF
SETVAR KEY 4
SETVAR L1 "MPEX"
SETVAR S1 "MPEX"
SETVAR A1 2
IF HPJOBTYPE="S" AND HPDUPLICATIVE THEN
    ECHO ![CHR(27)]&f!"KEY"k!"A1"a![LEN("!L1")]d![LEN("!S1")]L!L1!S1
ENDIF
SETVAR KEY 5
SETVAR L1 "IBS"
SETVAR S1 "HELLO !HPJOBNAME,MGR.IBS"
SETVAR A1 2
IF HPJOBTYPE="S" AND HPDUPLICATIVE THEN
    ECHO ![CHR(27)]&f!"KEY"k!"A1"a![LEN("!L1")]d![LEN("!S1")]L!L1!S1
ENDIF
SETVAR KEY 6
SETVAR L1 "WWA"
SETVAR S1 "HELLO !HPJOBNAME,MGR.WWA"
SETVAR A1 2
IF HPJOBTYPE="S" AND HPDUPLICATIVE THEN
    ECHO ![CHR(27)]&f!"KEY"k!"A1"a![LEN("!L1")]d![LEN("!S1")]L!L1!S1
ENDIF
SETVAR KEY 7
SETVAR L1 "MANAGER SYS"
SETVAR S1 "HELLO !HPJOBNAME,MANAGER.SYS"
SETVAR A1 2
IF HPJOBTYPE="S" AND HPDUPLICATIVE THEN
    ECHO ![CHR(27)]&f!"KEY"k!"A1"a![LEN("!L1")]d![LEN("!S1")]L!L1!S1
ENDIF
SETVAR KEY 8
SETVAR L1 "QUIT"
SETVAR S1 "QUIT"
SETVAR A1 2
IF HPJOBTYPE="S" AND HPDUPLICATIVE THEN
    ECHO ![CHR(27)]&f!"KEY"k!"A1"a![LEN("!L1")]d![LEN("!S1")]L!L1!S1
ENDIF
ECHO ![CHR(27)]&jB
SYSOPR SYS:


-----Original Message-----
From: Peter Smithson [mailto:[log in to unmask]]
Sent: Monday, May 27, 2002 6:17 AM
To: [log in to unmask]
Subject: [HP3000-L] OT ( I think) Help a newbie with simple HP 700/92
terminal question.


When I press "f1" I'd like the host to get the escape sequence.
Instead it puts a little star next to "Device control".

I've found that in qcterm I can select Terminal->Define function keys
and hit "OK".  Then the labels change to f1, f2 etc. and it works
fine.

I don't know how to do this on a genuine 700/92 and I'd idealy like to
send an escape sequence from the host ( I think I want to do that ) to
enable them.

So if someone could let me know about that and perhaps point me to
some online documentation.  I've tried ordering a manual from HP but
they are no longer available.

Thanks

Peter
--
http://www.wadmag.org.uk
http://uk.geocities.com/ukwebring - UK Motorcycle site webring

* 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 *

ATOM RSS1 RSS2