RE: Indicator DS not working

That's the problem
You have to specify
EVAL gPC_FIELD3 = '1'

NOT
EVAL *in33 ='1'

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



David FOXWELL
<David.FOXWELL@ag
ipi.com> To
Sent by: RPG programming on the IBM i /
rpg400-l-bounces@ System i <rpg400-l@xxxxxxxxxxxx>
midrange.com cc

Subject
11/04/2010 08:08 RE: Indicator DS not working
AM


Please respond to
RPG programming
on the IBM i /
System i
<rpg400-l@midrang
e.com>






Thanks All,

In answer to your questions,

INDARA is specified.
The value of gDSPATR_PC in debug is GDSPATR_PC = '0010000000' when I want
to position the cursor on FIELD3, and gPC_FIELD3 ='1'
Although the indicators *IN31 to *IN33 are off. But I think they are not
used when INDDS is used. In any case, doing EVAL *in33 ='1' before the
EXFMT has no effect.

-----Message d'origine-----
De : rpg400-l-bounces@xxxxxxxxxxxx
[mailto:rpg400-l-bounces@xxxxxxxxxxxx] De la part de
J.Beckeringh@xxxxxxxxxxxxxxxxxxxxxxxxxx
Envoyé : jeudi 4 novembre 2010 10:56
À : RPG programming on the IBM i / System i
Objet : Re: Indicator DS not working

David,

Have you checked the actual value of gDSPATR_PC in debug?

Joep Beckeringh

David FOXWELL

Hi all,

I've already done this before, and I've just copied from a working
program, but it's not working and I can't see what I'm doing
differently. Apart from the fact that my program uses the

MAIN keyword.

FMYDSPF CF E WORKSTN INDDS ( gIndDS )

* Indicateurs.
D gIndDS DS
D gFunctionKeys 1 24
D gF3 3 3N
D gF4 4 4N
D gF12 12 12N
D gF23 23 23N

* . Positionnement du curseur DSPATR(PC).
D gDSPATR_PC 31 40
D gPC_FIELD1 31 31N
D gPC_FIELD2 32 32N
D gPC_FIELD3 33 33N

In the program, I can use my named function keys ok, but I

want to set

the cursor on a particular field. The cursor is always set

on FIELD1,

even when gPC_FIELD1 is off and gPC_FIELD2 or gPC_FIELD3 is on.

A FIELD1 R B 14 34REFFLD(...
A 31 DSPATR(PC)
A FIELD2 R B 15 34REFFLD(...
A 32 DSPATR(PC)
A FIELD3 R B 16 34REFFLD(...
A 33 DSPATR(PC)

Anyone see what's occurring?

--
This is the RPG programming on the IBM i / System i
(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 IBM i / System i (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.