Re: screen to rpg indicator pointer

[Alan Campin <alan0307d@xxxxxxxxx>]

The way I handled this is that a function in a service program (Message
Handling)that received the array and a from and to range and looped through
and turned them all off.

You could maybe get fancier but is it worth it. Better to just encapsulate
it.

On Thu, Jul 11, 2019 at 9:21 AM Jay Vaughn <jeffersonvaughn@xxxxxxxxx>
wrote:

> i have the below code in my pgm...
>
> d IndicatorPtr    s               *   Inz(%Addr(*In))
> d Indicators      ds                  Based(IndicatorPtr)
> d  sf1_clear                     1n   Overlay(Indicators:80)
> d  sf1_#records                  1n   Overlay(Indicators:81)
> d  sf1_SflEnd                    1n   Overlay(Indicators:88)
> d  ws1_clear                     1n   Overlay(Indicators:90)
> d  ws1_#records                  1n   Overlay(Indicators:91)
> d  ws1_SflEnd                    1n   Overlay(Indicators:98)
> d  s2_error...
> d                                 n
> d  s2_Inquiry_Protect...
> d                                1n   Overlay(Indicators:35)
> d  s2_protectOnEdit...
> d                                1n   Overlay(Indicators:36)
> d  s3_error...
> d                                 n
> d                                 n
>
> d IndicatorPtr2   s               *   Inz(%Addr(*In))
> d ds_s2Errors     ds                  Based(IndicatorPtr2)
> d  s2_descriptionError...
> d                                1n   Overlay(ds_s2Errors:51)
> d  s2_investorsError...
> d                                1n   Overlay(ds_s2Errors:52)
> d  s2_statesError...
> d                                1n   Overlay(ds_s2Errors:53)
>
>
> I am wanting to simply set off all error indicators by doing...
>
> clear ds_s2Errors
>
> this works but it clears ALL indicators in the %Addr(*In)) pointer...
>
> How can I set a range of indicators off (or accomplish what I'm trying to
> do)... in this scenario?
> Hoping for a low impact change to %addr(*In) where I can specify an
> indicator range.
>
> tia
>
> jay
> --
> This is the RPG programming on IBM i (RPG400-L) mailing list
> To post a message email: RPG400-L@xxxxxxxxxxxxxxxxxx
> To subscribe, unsubscribe, or change list options,
> visit: https://lists.midrange.com/mailman/listinfo/rpg400-l
> or email: RPG400-L-request@xxxxxxxxxxxxxxxxxx
> 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: https://amazon.midrange.com