Re: INDDS Data Structure

[Gary Guthrie <GaryGuthrie@xxxxxxxx>]

Notice that you say when indicator 99 comes on, SFLEND doesn't come on.
However, in your code you're check for SFLEND = *Off. Is this perhaps
the source of your confusion?

Gary Guthrie
REAL Solutions Technical Support
NEWS/400 Technical Editor



"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
+---