Re: Running out of function keys -- RPG400-L

Thanks Gene
NOW the murky waters are becoming clearer
THAT is something I will have to store away for future use.
Thanks

Alan Shore
Programmer/Analyst, Direct Response
E:AShore@xxxxxxxxxxx
P:(631) 244-2000 ext. 5019
C:(631) 880-8640
"If you're going through Hell, keep going" - Winston Churchill

rpg400-l-bounces@xxxxxxxxxxxx wrote on 09/24/2008 01:48:35 PM:

In the program that I pulled that example from the user has the option of
entering a character into a selection field and hitting Enter, or

clicking

on the subfile line with the mouse (E09) to select the record.

In the display file:
A R SFLCTL1
A*%%TS DD 20060301 150350 GENEB REL-V5.0.1 WDSc
A SFLCTL(SUBFILE1)
A OVERLAY
A N51 SFLDSP
A N51 SFLDSPCTL
A 51 SFLCLR
A N51 SFLEND(*MORE)
A SFLSIZ(200)
A SFLPAG(6)
A WINDOW(11 9 10 34)
A WDWBORDER((*COLOR GRN)

(*DSPATR

RI)-
A (*CHAR ' '))
A MOUBTN(*ULR E09)
A SFLCSRRRN(&SFLRRN)

On Wed, Sep 24, 2008 at 12:31 PM, Alan Shore <AlanShore@xxxxxxxx> wrote:

Interesting - because that's what I use for the function keys
Here is the hex representation that I use
Are you saying that E09 (which you have defined as X'79') is the same

@Enter ( x'f1')

Thanks in advance

Alan Shore
Programmer/Analyst, Direct Response
E:AShore@xxxxxxxxxxx <E%3AAShore@xxxxxxxxxxx>
P:(631) 244-2000 ext. 5019
C:(631) 880-8640
"If you're going through Hell, keep going" - Winston Churchill
**********************************************************
* Standard include for all interactive programs
* named hexadecimal constants for function keys
**********************************************************
D @f01 c const(x'31')
D @f02 c const(x'32')
D @f03 c const(x'33')
D @f04 c const(x'34')
D @f05 c const(x'35')
D @f06 c const(x'36')
D @f07 c const(x'37')
D @f08 c const(x'38')
D @f09 c const(x'39')
D @f10 c const(x'3a')
D @f11 c const(x'3b')
D @f12 c const(x'3c')
D @f13 c const(x'b1')
D @f14 c const(x'b2')
D @f15 c const(x'b3')
D @f16 c const(x'b4')
D @f17 c const(x'b5')
D @f18 c const(x'b6')
D @f19 c const(x'b7')
D @f20 c const(x'b8')
D @f21 c const(x'b9')
D @f22 c const(x'ba')
D @f23 c const(x'bb')
D @f24 c const(x'bc')
D @clear c const(x'bd')
D @enter c const(x'f1')
D @help c const(x'f3')
D @pageup c const(x'f4')
D @pagedown c const(x'f5')
D @print c const(x'f6')
D @rcbksp c const(x'f8')
D @autoenter c const(x'3f')
D @exit C const(X'33')
D @cancel C const(X'3C')

rpg400-l-bounces@xxxxxxxxxxxx wrote on 09/24/2008 12:35:26 PM:

The aid byte comes from the INFDS

Fdisplayfile CF E WORKSTN infds(CFKEYS)

D CFKEYS DS
D AIDKey 1A overlay(CFKEYS:369)

On Wed, Sep 24, 2008 at 11:22 AM, Alan Shore <AlanShore@xxxxxxxx>

wrote:

Gene
either I'm getting myself completely lost in this e-mail thread, or

for

whatever reason, I'm NOT getting all the e-mails that I should.
What key, or combination of keys, should be pressed for this aid

byte?

Thanks in advance

Alan Shore
Programmer/Analyst, Direct Response
E:AShore@xxxxxxxxxxx <E%3AAShore@xxxxxxxxxxx> <E%

3AAShore@xxxxxxxxxxx<E%253AAShore@xxxxxxxxxxx>

P:(631) 244-2000 ext. 5019
C:(631) 880-8640
"If you're going through Hell, keep going" - Winston Churchill

rpg400-l-bounces@xxxxxxxxxxxx wrote on 09/24/2008 10:30:50 AM:

Just use E00 - E15 and check the aid byte just as you would for a

function

key.

if AIDKey = Enter OR
AIDKey = E09;
exsr process;
endif;

On Wed, Sep 24, 2008 at 8:37 AM, Brown, Stephen GRNRC <
Stephen.Brown@xxxxxxxxx> wrote:

Wasn't sure whether this had to be associated with a Function

key

ie.

MOUBTN(*ULP CA24)

So I dismissed it.

-----Original Message-----
From: rpg400-l-bounces@xxxxxxxxxxxx
[mailto:rpg400-l-bounces@xxxxxxxxxxxx] On Behalf Of Gene Burns
Sent: 24 September 2008 14:32
To: RPG programming on the AS400 / iSeries
Subject: Re: Running out of function keys

Have you thought of using the MOUBTN keyword?

* Event Ids - These can be associated with a mouse button

event

D E00 C X'70'
D E01 C X'71'
D E02 C X'72'
D E03 C X'73'
D E04 C X'74'
D E05 C X'75'
D E06 C X'76'
D E07 C X'77'
D E08 C X'78'
D E09 C X'79'
D E10 C X'7A'
D E11 C X'7B'
D E12 C X'7C'
D E13 C X'7D'
D E14 C X'7E'
D E15 C X'7F'

*ULP Unshifted Left button Pressed *ULR Unshifted Left

button

Released *ULD Unshifted Left button Double click *UMP

Unshifted

Middle button Pressed *UMR Unshifted Middle button Released

*UMD

Unshifted Middle button Double click *URP Unshifted Right

button

Pressed
*URR Unshifted Right button Released *URD Unshifted

Right

button

Double click *SLP Shifted Left button Pressed *SLR

Shifted

Left

button Released *SLD Shifted Left button Double click *SMP
Shifted
Middle button Pressed *SMR Shifted Middle button Released

*SMD

Shifted
Middle button Double click *SRP Shifted Right button

Pressed

*SRR

Shifted Right button Released *SRD Shifted Right button

Double

click

On Wed, Sep 24, 2008 at 5:19 AM, Brown, Stephen GRNRC <
Stephen.Brown@xxxxxxxxx> wrote:

Folks bit of a basic question compared to some of the current
discussions but I have a situation that I'd lie some advice

on.

I have a program that I need to modify to allow calls to some
additional programs via function keys. Problem is there is

not

enough

remaining unused function keys available. That is F1 -> F24

are

all

in

use, is there any way in which to extend the range. ?

Thanks

Stephen Brown
Analyst Programmer
CIGNA European Technology Group
1 Knowe Road
GREENOCK
United Kingdom
PA15 4RJ
Phone : +44 (0)1475 492274
Fax : +44 (0)1475 730385
E-Mail : Stephen.Brown@xxxxxxxxx

Confidential, unpublished property of CIGNA Do not duplicate

distribute. Use and distribution is limited solely to

authorised

personnel.
(c) Copyright 2008 (CIGNA Corporation)

----------------------------------------------------------------------

--------
CONFIDENTIALITY NOTICE: If you have received this email in

error,

please

immediately notify the sender by e-mail at the address shown.

This

email

transmission may contain confidential information. This

information

is

intended only for the use of the individual(s) or entity to

whom

it

is

intended even if addressed incorrectly. Please delete it

from

your

files if

you are not the intended recipient. Thank you for your

compliance.

Copyright 2008 CIGNA

======================================================================

========
--
This is the RPG programming on the AS400 / iSeries (RPG400-L)

mailing

list

To post a message email: RPG400-L@xxxxxxxxxxxx
To subscribe, unsubscribe, or change list options,
visit: http://lists.midrange.com/mailman/listinfo/rpg400-l
or email: RPG400-L-request@xxxxxxxxxxxx
Before posting, please take a moment to review the archives
at http://archive.midrange.com/rpg400-l.

--
This is the RPG programming on the AS400 / iSeries (RPG400-L)

mailing

list To post a message email: RPG400-L@xxxxxxxxxxxx To

subscribe,

unsubscribe, or change list options,
visit: http://lists.midrange.com/mailman/listinfo/rpg400-l
or email: RPG400-L-request@xxxxxxxxxxxx
Before posting, please take a moment to review the archives
at http://archive.midrange.com/rpg400-l.

------------------------------------------------------------------------------

CONFIDENTIALITY NOTICE: If you have received this email in

error,

please

immediately notify the sender by e-mail at the address shown.

This

email

transmission may contain confidential information. This

information is

intended only for the use of the individual(s) or entity to

whom it

is

intended even if addressed incorrectly. Please delete it from

your

files if

you are not the intended recipient. Thank you for your

compliance.

Copyright 2008 CIGNA

==============================================================================

--
This is the RPG programming on the AS400 / iSeries (RPG400-L)

mailing

list

To post a message email: RPG400-L@xxxxxxxxxxxx
To subscribe, unsubscribe, or change list options,
visit: http://lists.midrange.com/mailman/listinfo/rpg400-l
or email: RPG400-L-request@xxxxxxxxxxxx
Before posting, please take a moment to review the archives
at http://archive.midrange.com/rpg400-l.

--
This is the RPG programming on the AS400 / iSeries (RPG400-L)

mailing

list

To post a message email: RPG400-L@xxxxxxxxxxxx
To subscribe, unsubscribe, or change list options,
visit: http://lists.midrange.com/mailman/listinfo/rpg400-l
or email: RPG400-L-request@xxxxxxxxxxxx
Before posting, please take a moment to review the archives
at http://archive.midrange.com/rpg400-l.

--
This is the RPG programming on the AS400 / iSeries (RPG400-L)

mailing

list

To post a message email: RPG400-L@xxxxxxxxxxxx
To subscribe, unsubscribe, or change list options,
visit: http://lists.midrange.com/mailman/listinfo/rpg400-l
or email: RPG400-L-request@xxxxxxxxxxxx
Before posting, please take a moment to review the archives
at http://archive.midrange.com/rpg400-l.

--
This is the RPG programming on the AS400 / iSeries (RPG400-L) mailing

list

To post a message email: RPG400-L@xxxxxxxxxxxx
To subscribe, unsubscribe, or change list options,
visit: http://lists.midrange.com/mailman/listinfo/rpg400-l
or email: RPG400-L-request@xxxxxxxxxxxx
Before posting, please take a moment to review the archives
at http://archive.midrange.com/rpg400-l.

--
This is the RPG programming on the AS400 / iSeries (RPG400-L) mailing

list

To post a message email: RPG400-L@xxxxxxxxxxxx
To subscribe, unsubscribe, or change list options,
visit: http://lists.midrange.com/mailman/listinfo/rpg400-l
or email: RPG400-L-request@xxxxxxxxxxxx
Before posting, please take a moment to review the archives
at http://archive.midrange.com/rpg400-l.

--
This is the RPG programming on the AS400 / iSeries (RPG400-L) mailing

list

To post a message email: RPG400-L@xxxxxxxxxxxx
To subscribe, unsubscribe, or change list options,
visit: http://lists.midrange.com/mailman/listinfo/rpg400-l
or email: RPG400-L-request@xxxxxxxxxxxx
Before posting, please take a moment to review the archives
at http://archive.midrange.com/rpg400-l.