Re: INDDS Data Structure

[Paul Tuohy <tuohyp@xxxxxxxxxxxxx>]

Hi Paul,

Brian already answered this for you, I just want to add my bit - cause I like
INDARA and INDDS!

As Brian said, the INDARA/INDDS provides a SEPERATE area for the indicators used
with the display/printer file. Therefore they are not mapped to the "standard"
indicators 01 to 99 in you program.

The technique Brian described if the way to map the indicators 01 to 99 to
meaningful names.

But.....

With the introduction of INDDS and of the %EOF, %FOUND etc. BIFS, how many 
places
do you need to use the 01 to 99 indicators?

hth

Paul Tuohy.

"Dugas, Paul-Exch" wrote:

> I'm trying to use named Indicators for the first time. I have a data
> structure set up as follows:
>
> D DSIND           DS
> D F03KEY                        3      3N   INZ(*OFF)
> D DISPLAYSFL             30     30N   INZ(*OFF)
> D CLEARSFL                 31     31N   INZ(*OFF)
> D PAGEDOWN              98     98N   INZ(*OFF)
> D SFLEND                      99     99N   INZ(*OFF)
>
> I'm finding that in the following statement, when *IN99 comes on, SFLEND
> doesn't come on.  Aren't they the same since I put SFLEND at position 99 in
> the indicator data structure?
>
>  READ      ICE100R                                99
>
>  DOW       SFLEND = *OFF
>         .
>         .
>         .
> READ      ICE100R                                99
> ENDDO
>
> Also, using the INDDS keyword should make this data structure available to
> the Subfile.  How do I reference it in the subfile?
>
> Ex.     FICE100S1  CF   E             WORKSTN SFILE(ACTSFL:RRN) INDDS(DSIND)
>
> Thanks in advance for any help you can give!!
>
> Paul M. Dugas Jr.
> EDI Programmer/Analyst
> Pameco Corp
> 1000 Center Place
> Norcross, GA 30093
> 770/798-0700 phone(ext3401)
> 770/734-1008 fax
> 800/764-9307pager
> dugas.paul@pameco.com
> www.pameco.com
>
> +---
> | This is the RPG/400 Mailing List!
> | To submit a new message, send your mail to RPG400-L@midrange.com.
> | To subscribe to this list send email to RPG400-L-SUB@midrange.com.
> | To unsubscribe from this list send email to RPG400-L-UNSUB@midrange.com.
> | Questions should be directed to the list owner/operator: david@midrange.com
> +---

+---
| This is the RPG/400 Mailing List!
| To submit a new message, send your mail to RPG400-L@midrange.com.
| To subscribe to this list send email to RPG400-L-SUB@midrange.com.
| To unsubscribe from this list send email to RPG400-L-UNSUB@midrange.com.
| Questions should be directed to the list owner/operator: david@midrange.com
+---