RE: Indicator 'overlay' array or data structure

The simplest way to reset indicators is to use the MOVEA op-code - as
follows:
C                   movea     '000000'      *in(81)        
C                   movea     '000000'      *in(90)        

But I don't know how to use the overlay - yet!!!!

-----Original Message-----
From: CarollaT@xxxxxxxxxxxxxx [mailto:CarollaT@xxxxxxxxxxxxxx]
Sent: Thursday, February 12, 2004 4:07 PM
To: rpg400-l@xxxxxxxxxxxx
Subject: Indicator 'overlay' array or data structure


I have a simple question.  I can't seem to find out how to accomplish the
following.  

 

I have a display file that contains, for each input field, an indicator-line
that reverse-images the field.  This indicator is turned on by the program
if the data in that field is invalid.  Before I step into my error-checking
SR, I want to turn off all of these indicators.  Right now, this is
accomplished by the following:

 

     C     IndOff        BegSR

     C                   Eval      *In81 = *Off

     C                   Eval      *In82 = *Off

     C                   Eval      *In83 = *Off

     C                   Eval      *In84 = *Off

     C                   Eval      *In85 = *Off

     C                   Eval      *In86 = *Off

     C                   Eval      *In90 = *Off

     C                   Eval      *In91 = *Off

     C                   Eval      *In92 = *Off

     C                   Eval      *In93 = *Off

     C                   Eval      *In94 = *Off

     C                   Eval      *In95 = *Off

     C                   EndSR

 

I have seen an example of this done by using an indicator array or indicator
data structure that 'overlaid' a set of indicators, so that I could do
something like

 

     C                   Eval      MyInds = '000000000000'

 

What D-spec would I need to create such a structure?

 

Tony Carolla

MedAmerica Billing Services, Inc.

 

_______________________________________________
This is the RPG programming on the AS400 / iSeries (RPG400-L) mailing list
To post a message email: RPG400-L@xxxxxxxxxxxx
To subscribe, unsubscribe, or change list options,
visit: http://lists.midrange.com/mailman/listinfo/rpg400-l
or email: RPG400-L-request@xxxxxxxxxxxx
Before posting, please take a moment to review the archives
at http://archive.midrange.com/rpg400-l.