Re: DOW vs DOU

[cmassoglia@xxxxxxxxxxx (Charlie Massoglia)]

>
>>problem and you scan for *IN9 to find all the 90's (*IN90 - *IN99) and you
>>won't.    I'd cut off the hands of programmers (just kidding,... kinda)
>>who use
>>the SETON or SETOFF instead of MOVE *ON, *OFF for that reason.  Left hand
>>indicators. are the same problem( how many 5,0 fields did you find in
>>RPGIII
>
If you want to search for all resulting indicators in SEU on an RPG III
program, just key in the following:

F 20 50 54 A

This will all ocurrences of a '20' in columns 50-54 (the resulting indicator
columns).

You would still also have to do

F *IN20 A

To see all of the code at once, do the following:

H ' ' A           Hides all code
F 20 50 54 A      Finds resulting indicator 20
F 20 10 17 A      Finds conditioning indicator 20
F *IN20 A         Finds *IN20 anywhere it is used

You will now see just the calcs which use indicator 20 no matter how it is
coded with all other lines of code excluded.  Instead of the H ' ' A you can
key in an X9999 on the first sequence number field followed by the Finds on
the command line.


Charlie Massoglia, Massoglia Technical Consulting, Inc.
PO Box 1065, Okemos, MI 48854, USA
517-676-9700  Fax: 517-676-1006  EMAIL: cmassoglia@voyager.net


* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
* This is the Midrange System Mailing List!  To submit a new message,   *
* send your mail to "MIDRANGE-L@midrange.com".  To unsubscribe from     *
* this list send email to MAJORDOMO@midrange.com and specify            *
* 'unsubscribe MIDRANGE-L' in the body of your message.  Questions      *
* should be directed to the list owner / operator: david@midrange.com   *
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *