Re: "If %scan(x:y)" is not valid???

Dan,

Summary:
It checks to see if the order is valid.
For more information I search my Notes documentation database for 
ValidOrder.

Detail:
How a valid order is determined is subject to change.  However, this way I 
don't have to remember to change every program - just update the service 
program.

Can you define what READ does, or do you need to look at that machine 
code?


Rob Berendt
-- 
"They that can give up essential liberty to obtain a little temporary 
safety deserve neither liberty nor safety." 
Benjamin Franklin 




Dan <dbcerpg@yahoo.com>
Sent by: rpg400-l-bounces+rob=dekko.com@midrange.com
02/12/2003 04:16 PM
Please respond to RPG programming on the AS400 / iSeries
 
        To:     RPG programming on the AS400 / iSeries 
<rpg400-l@midrange.com>
        cc: 
        Fax to: 
        Subject:        Re: "If %scan(x:y)" is not valid???


--- Jon Paris <Jon.Paris@Partner400.com> wrote:
>  >> But, I would never, ever, turn a one-line function into a 
subroutine,
> sub-procedure, or service program.  Blllleeeeaaaahhhh!
> 
> We're going to have to agree to disagree.  I don't personally think the 
line
> count is particularly relevant - I just wanna read main line like pseudo
> code.  I don't want indicators twiddled (except possible LR) - hell I 
don't
> even really want to see a READ or CHAIN.

I'm sorry Jon, but please, please answer this question:
The example is in a lengthy program written by someone you don't know...
     c             If      ValidOrder( Order# )

Please tell me what ValidOrder does with Order#.

If you answer correctly, I will forever be sworn to use procedures for 
every little function, even
a SETON LR!

> But - I have work to do or my missus will kill me - and this thread is 
in
> danger of being as never ending as the /free and MOVE debates

Want to have the last word, eh?  Answer the above question correctly, and 
I won't ask you another.
 Promise!  <g>

- Dan

__________________________________________________
Do you Yahoo!?
Yahoo! Shopping - Send Flowers for Valentine's Day
http://shopping.yahoo.com
_______________________________________________
This is the RPG programming on the AS400 / iSeries (RPG400-L) mailing list
To post a message email: RPG400-L@midrange.com
To subscribe, unsubscribe, or change list options,
visit: http://lists.midrange.com/mailman/listinfo/rpg400-l
or email: RPG400-L-request@midrange.com
Before posting, please take a moment to review the archives
at http://archive.midrange.com/rpg400-l.