Re: INDARA INDDS() not working

Hi Paul,

Another thing thing occurred to me when I read your email - around the
comment *"Once the record is found I exit the screen"*

When I first started dabbling in java and playing with the some of the
basic patterns like MVC, it got me thinking more about event driven
processing and if / how I could apply it to some of my RPG Code.

To that end I had a bit of a play using data queues with Display Files -
you can specify a data queue on CRTDSPF and then if I remember correctly
you write to the screen formats but you always read from the data queue.
This means that an external process can also put data on the queue and
influence your program.

So you could for example do something on program startup to register your
screen as an observer of some data or process.
Then whatever is changing the data or whatever conditions you are
interested in knows to send an entry to your data queue when things change.

In the program when you read from the data queue - you can tell whether it
has come from the screen or from an external source.

It was a long time ago when I looked at this and I think I just found it
too messy - there was something awkward around CF and/or CA keys and I
thought it might be unusual and inconvenient for someone looking at the
screen to have it suddenly update on them.

However I mention it because in amongst the awkwardness there are some
interesting possibilities.

best regards,
Craig

On 19 July 2018 at 01:02, Mark Murphy <jmarkmurphy@xxxxxxxxx> wrote:

Good thing you weren't using Qualified on that file. The K indicators don't
work for that.

On Wed, Jul 18, 2018 at 4:53 PM Paul Therrien <
paultherrien@xxxxxxxxxxxxxxxxxx> wrote:

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

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