Re: Indicator coding technique

I, too, like that! I had never thought about grouping indicators like that.
That's a godsend for a lazy person like me.
Thanks.

Jerry C. Adams
IBM i Programmer/Analyst
If mathematically you end up with the incorrect answer, try multiplying by
the page number.
--
A&K Wholesale
Murfreesboro, TN
615-867-5070


-----Original Message-----
From: wdsci-l-bounces@xxxxxxxxxxxx [mailto:wdsci-l-bounces@xxxxxxxxxxxx] On
Behalf Of Terry Hertel
Sent: Friday, June 29, 2012 10:39 AM
To: 'wdsci-l@xxxxxxxxxxxx'
Subject: [WDSCI-L] Indicator coding technique

This is another way to do groups of indicators.

* Indicator array
D IndPtr s * Inz(%Addr(*In))
D IndDS ds Based(IndPtr)

* All indicators (1-99)
D IndAll N Dim(99) Overlay(IndDS)

* Header screen error indicators (02-36)
D IndErrHeader N Dim(35) Overlay(IndDS : 2)

* Detail screen error indicators (02-10)
D IndErrDetail N Dim(09) Overlay(IndDS : 2)

// Turn off header screen error indicators
IndErrHeader = *off;


------------------------------

message: 8
date: Fri, 29 Jun 2012 10:24:14 -0500
from: KBushard@xxxxxxxxxxxxxxxx
subject: Re: [WDSCI-L] RDP 8.5 Open Service Requests

Indicators also do not show up in Outline view when referenced as:

C movea '0000000' *in(60)

might anyone suggest a better coding technique? I like this because it's
short.



Also having an issue with indicators defined in the DSPF not showing in
Outline view for the RPGLE. They are showing in 8.0.3 as unreferenced.


Karleen Bushard || IBM i Software Devloper || HOM Furniture, Inc ||
763.767.3777 || VM1777 || kbushard@xxxxxxxxxxxxxxxx