Re: INDARA INDDS() not working

[Craig Richards <craig@xxxxxxxxxxxxxxxx>]

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