Re: Function key indicators

Hello there!

Can you give me an example of this Two things ?

Thank You !

Luis Martins




Please respond to RPG programming on the AS400 / iSeries
       <rpg400-l@xxxxxxxxxxxx>

Sent by:    rpg400-l-bounces@xxxxxxxxxxxx


To:    rpg400-l@xxxxxxxxxxxx
cc:
Subject:    Re: Function key indicators


Two things.

1) Instead of indicators, why not use the INFDS and the AID?

2) To use the DUP key I would have to DSs: one contain all the screen
fields, the other similar fields with obvious other names (on V5R1 you may
use key word QUALIFIED). Then first press, move from DS1 to DS2, second
press move from DS2 to DS1. Unless this is an old RPG III programme.

Regards,
Carel Teijgeler

*********** REPLY SEPARATOR  ***********

On 3-8-04 at 16:49 Tim Kredlo wrote:

>I am attempting to 'genericize' the routine I use to test for the 'dup'
key use.
>
>I would like it to be generic enough so that it would work without
modification when the length or layout of the input data changes.
>Most screens have I, O,and B data interspersed. (## represents the 'screen
number id')
>
>To do this I declare the input buffer (Input## -LikeRec(PgmScrn##:
*Input)). I cycle through the input data structure character by >character
substituting any found 'dup' characters with the corresponding character
from a 'saved' input buffer (PrvInput03  S   1 >Dim(%Len(Input##))), until
I get to the end (%Len(Input01)). For this to work I changed my typical
(all I ever use) 'exfmt' with a 'write >format' line, followed by a
'read-formatname-data structure' line. (I could not figure out how to
automatically fill the input buffer data >structure using 'exfmt')
>
>This works fine. However, changing from 'exfmt' to 'read-formatname-data
structure' stops the function key indicators (*InKA-*InKY) >from
automatically being set on when the corresponding function key is pressed.
>
>If I remove the data structure name from the 'read' line, hitting a
function key DOES set on the corresponding *InK? indicator >automatically,
just like when I used 'exfmt'. Why does the absence/presence of this data
structure name change this?
>
>Is there a way to set up the screen 'reads' so that functions keys
automatically set on the corresponding *InK? indicator (like 'exfmt' >does)
AND the input buffer data structure gets filled automatically like when the
'read-formatname-data structure' method is used?
>
>(Because of legacy issues I cannot (do not want to) use *In01-*In99 to
represent the function keys without a lot more code >modifications than I
care to do.) Or is there a different way of declaring the input buffer so
that all input
>fields are contiguous and its length can be determined?



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





Luis Martins
Finibanco, S.A.
Tel.: 21 0002331 - Fax: 21 3114509
http://www.finibanco.pt

__________________________________________________

Esta mensagem e quaisquer ficheiros anexos são confidenciais, destinando-se
ao uso exclusivo da pessoa e/ou entidade a que se dirigem. Caso não se lhe
destine, ou não seja responsável pelo seu encaminhamento ao destinatário,
informamos que a recebeu por engano. Qualquer utilização, distribuição,
reencaminhamento ou outra forma de revelação a terceiros, impressão ou
cópia são expressamente proibidos; sendo que agradecemos que destrua a
mensagem de imediato, informando o seu emissor ou o Finibanco do sucedido.
Não obstante o Finibanco utilizar software anti-vírus como precaução, não é
possível garantir que a presente mensagem e eventuais ficheiros anexos não
contêm vírus, pelo que não consideramos da responsabilidade desta
instituição eventuais consequências inerentes. Alerta-se, ainda, que as
mensagens transmitidas por este meio podem ser interceptadas, corrompidas,
perdidas, destruídas ou entregues com atraso ao destinatário.