Re: screen to rpg indicator pointer

Easiest way is to use either group fields like this:

d IndicatorPtr2 s * Inz(%Addr(*In))
d ds_indics ds Based(IndicatorPtr2)
d s2_errors Overlay(ds_s2Errors:51);
d s2_descriptionError...
d 1n Overlay(s2Errors)
d s2_investorsError...
d 1n Overlay(s2Errors:*Next)
d s2_statesError...
d 1n Overlay(s2Errors:*Next)

Alternatively you can just use POS and forget the overlay stuff. This is the way I would do it today e.g.

dcl-ds ds_indics Based(IndicatorPtr2);
d s2_errors char(3) Pos(51);
d s2_descriptionError ind Pos(51);
d s2_investorsError ind Pos(52);
d s2_statesErro ind P{os(53);


Jon Paris

www.partner400.com
www.SystemiDeveloper.com

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