Re: screen to rpg indicator pointer

Hi Jay,
I have used something like...

d IndicatorPtr2 s * Inz(%Addr(*In))
d ds_s2Errors ds Based(IndicatorPtr2)
d s2_Errors...
d 3a Overlay(ds_s2Errors:51) inz('000')
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)

Reset s2_Errors;

Rob

On Thu, Jul 11, 2019 at 12:21 PM 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