Re: Indicator Coding Technique

Do you mean that any changes to the indicators will NOT be at the
individual level, but on the field FunctionKey?

If this is true, what a terrible idea. How are you going to change/check
indicator 03, with all the myriad of permutations and combinations? What do
you gain from using this method?

There is a very good chance that I have totally misunderstood what you are
trying to do with this method.



Alan Shore

NBTY, Inc
(631) 244-2000 ext. 5019
AShore@xxxxxxxx


                                                                           
             "Weber, Richard"                                              
             <Weberr@xxxxxxxxx                                             
             om>                                                        To 
             Sent by:                  "'rpg400-l@xxxxxxxxxxxx'"           
             rpg400-l-bounces@         <rpg400-l@xxxxxxxxxxxx>             
             midrange.com                                               cc 
                                                                           
                                                                   Subject 
             01/12/2006 02:10          Indicator Coding Technique          
             PM                                                            
                                                                           
                                                                           
             Please respond to                                             
              RPG programming                                              
              on the AS400 /                                               
                  iSeries                                                  
             <rpg400-l@midrang                                             
                  e.com>                                                   
                                                                           
                                                                           




We are developing a set of Free Form RPG coding standards.  (Yes, now.  We
are primarily a COBOL shop just moving over to RPG, stepping boldly into
the
1980's!) I want to get the opinion of the group on a technique for setting
DSPF indicators that was proposed.



The proposal was to code a data structure for the screen indicators using
the "N" data type and to use variable names that are meaningful.  The
technique that I am asking for opinions on is that the group of indicators
can be set or tested by using a string such as: '0010000000100000000".



I am intentionally not stating my opinion, so as not to affect your
comments.  Thanks for your input.  Code snips follow.  The purpose of this
code it to control which functions keys are available when the screen
displays:



D DspFInd         DS

D  FunctionKey            1     24

D  PageDown              25     25N

D  Request               28     30

.

.

.

BEGSR $S0Display;

   Request  = '100'  ;

   FunctionKey = '001000000001000000000000'   ;

   EXSR $SZGET;

   EXSR $S1DspFmt;

 ENDSR;





Richard L. Weber  |  Senior Systems Analyst, TOYS 'Я' US International  |
973.617.3497  |  weberr@xxxxxxxxxxx <mailto:weberr@xxxxxxxxxxx>




========================================================================
This email message is for the sole use of the intended recipient (s) and
may
contain confidential and privileged information. Any unauthorized review,
use, disclosure or distribution is prohibited. If you are not the intended
recipient, please contact the sender by reply email and destroy all copies
of the original message. To reply to our email administrator directly, send
an email to EmailAdmin@xxxxxxxxxxxx
Toys "R" Us, 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.