Re: INDARA INDDS() not working

Oh Crap! Of course!. That's what i get for copying someone else's
display file!

Thanks!

Paul

On 2018-07-18 16:42, Craig Richards wrote:

In your Display File do you have:

CF03(03)

On 18 July 2018 at 21:36, Therrien, Paul <ptherrien@xxxxxxxxxxx> wrote:

Hey all. I am working with a display file that has INDARA defined.
I have an RPG file Spec for the DSPF with an INDDS() specification for a
data structure.

DCL-DS DSPIndicators;
F3Exit ind pos(3);
F12Cancel ind pos(12);
End-DS;

This has ALWAYS worked.

The thing that is different about this DSPF is I am using the INVITE
keyword and I am attempting to do an auto-update screen that shows the

time

progressing a second at-a-time.

For each loop of the screen (Write to the record, read from the file), I
am accessing a database file looking for a record. Once the record is
found I exit the screen.
This is also a window DSPF. I have window format and a flat record

format

that references the window. I am writing to the flat format reading

from

the display file.

I seem to have the logic working well enough. But I cannot get the
INDARA/INDDS() logic working.
The users have the ability to hit F3 or F12 to cancel.
But, I am having to check for *INKC for F3 instead of F3Exit. In

debug I

never see the F3Exit getting set ON, but I do see *INKC getting set on.

What am I not understanding?

Any help appreciated.

Thanks,

PJT

+++++ This email and related attachments may contain confidential
information intended exclusively for the addressee. Unauthorized use,
disclosure or distribution of this material is prohibited. If you

received

this message in error, please advise the sender and delete all copies of
it. Content is provided by the individual sender and does not

necessarily

reflect the views of the Company. Though sender believes this

transmission

to be virus-free, it is the recipient's responsibility to ensure that

it is.

--
This is the RPG programming on the IBM i (AS/400 and iSeries) (RPG400-L)
mailing list
To post a message email: RPG400-L@xxxxxxxxxxxx
To subscribe, unsubscribe, or change list options,
visit: https://lists.midrange.com/mailman/listinfo/rpg400-l
or email: RPG400-L-request@xxxxxxxxxxxx
Before posting, please take a moment to review the archives
at https://archive.midrange.com/rpg400-l.

Please contact support@xxxxxxxxxxxx for any subscription related
questions.

Help support midrange.com by shopping at amazon.com with our affiliate
link: http://amzn.to/2dEadiD

--
This is the RPG programming on the IBM i (AS/400 and iSeries) (RPG400-L)
mailing list
To post a message email: RPG400-L@xxxxxxxxxxxx
To subscribe, unsubscribe, or change list options,
visit: https://lists.midrange.com/mailman/listinfo/rpg400-l
or email: RPG400-L-request@xxxxxxxxxxxx
Before posting, please take a moment to review the archives
at https://archive.midrange.com/rpg400-l.

Please contact support@xxxxxxxxxxxx for any subscription related
questions.

Help support midrange.com by shopping at amazon.com with our affiliate
link: http://amzn.to/2dEadiD