the article to which Shawn refers is his COBOL#8. But try this (it's a UDC
in its present form)...
HOBBES:TRACY.VMS,PUB:help menukeys
USER DEFINED COMMAND FILE: MENUKEYS.PUB.SYS
COMMENT this is MENUKEYS.PUB.SYS
SETKEY 1 2 "MPE XL keys" "MPEXLKEYS"
SETKEY 2 2 "DEFAULT keys" "NORMKEYS"
SETKEY 3 2 "LOGON keys" "LOGKEYS"
SETKEY 4 2 "QUAD keys" "QUADKEYS"
SETKEY 5 2 "MPEX keys" "MPEXKEYS"
SETKEY 6 2 "SHOWJOB keys" "SHOWKEYS"
SETKEY 7 2 "OPERATORSYS" "HELLO !HPJOBNAME,OPERATOR.SYS"
SETKEY 8 2 "BYE " "BYE"
ENABLEUSERKEYS
HOBBES:TRACY.VMS,PUB:help mpexkeys
User-defined command:
MPEXKEYS
SETKEY 1 2 "MPEX VESOFT " "run mpex.pub.vesoft"
SETKEY 2 2 "LISTF FIVE " "listf @,5"
SETKEY 3 2 "LISTF FOUR " "listf @,4"
SETKEY 4 2 "LISTF THREE " "listF @,3"
SETKEY 5 2 "LISTF TWO " "listf @,2"
SETKEY 6 2 "unused key " " "
SETKEY 7 2 "OPERATORSYS " "HELLO !HPJOBNAME,OPERATOR.SYS"
SETKEY 8 2 " 'Menu' keys " "MENUKEYS"
ENABLEUSERKEYS
HOBBES:TRACY.VMS,PUB:help setkey
User-defined command:
SETKEY KEY="?" ATTR="?" LABEL="?" TEXT="?"
IF NOT (NUMERIC("!KEY") AND "!KEY">="1" AND "!KEY" <= "8") THEN
ECHO 1st parm is functionKEY; must be numeric in the range 1..8.
IF "!KEY" <> "?" THEN
RETURN
ENDIF
ENDIF
IF NOT (NUMERIC("!ATTR") AND "!ATTR" >= "0" AND "!ATTR" <= "3") THEN
ECHO 2nd parm is ATTRibute; must be one of...
ECHO 0 - 'normal' == function is displayed and transmitted.
ECHO 1 - 'local' == text is displayed but not transmitted.
ECHO 2 - 'transmit' == displayed, transmitted, with a C/R.
ECHO 3 - 'command' == invokes a Reflection command.
IF "!ATTR" <> "?" THEN
RETURN
ENDIF
ENDIF
SETVAR SK_LBLLEN LEN("!LABEL")
SETVAR SK_TXTLEN LEN("!TEXT")
CALC CHR(27) + "&f!'ATTR'a!'KEY'k" + "!'SK_LBLLEN'd!'SK_TXTLEN'L" +
"!'LABEL'!'T
EXT'" + CHR(27) + "A"
comment that's all on one line!
HOBBES:TRACY.VMS,PUB:help enableuserkeys
User-defined command:
ENABLEUSERKEYS
CALC CHR(27) + "&jB"
HOBBES:TRACY.VMS,PUB:help hideuserkeys
User-defined command:
HIDEUSERKEYS
CALC CHR(27) + "&j@"
HOBBES:TRACY.VMS,PUB:help enablemodeskeys
User-defined command:
ENABLEMODESKEYS
CALC CHR(27) + "&jA"
HOBBES:TRACY.VMS,PUB:
> -----Original Message-----
> From: Shawn Gordon [mailto:[log in to unmask]]
> Sent: Friday, October 27, 2000 8:42 AM
> To: [log in to unmask]
> Subject: Re: Softkey capture
>
>
> At 07:44 AM 10/27/2000, Jon Backus wrote:
> > I'm looking for a freeware utility for my HP3000
> that will capture
> >my function definitions into a file. I remember programs
> like this from way
> >back but I don't remember their names and/or where I can get them.
> >
> >Thanx,
> > Jonathan M. Backus ~ Director of Technology
> > AB&C Group ~ One Executive Way ~ Ranson, WV ~ 25438
> > Email: [log in to unmask] ~ AIM: JMBackus
> > Vmail: 304.725.7050 ext 497 ~ Fmail: 304.728.6770&2314#
> > Web: www.abcgroup.com
>
> I published this in one of my COBOL columns some years ago,
> it should be on
> my web site, I just don't know which article it was. Take a look at
> www.smga3000.com under Papers & Articles and follow the COBOL
> link. Not
> all of the articles are properly formatted yet.
>
>
> Regards,
>
> Shawn Gordon
> President
> theKompany.com
> www.thekompany.com
> 949-713-3276
>
|