Re: SELECT & WHENEQ Question

either/or.  nothing but personal preference.

I would change the DOUxx AND WHENxx opcodes to the more modern
equivelents Dou x = y  and when x = y

or make the plunge into freeform.  (I haven't yet - not standard at
the clients I work for)

On 8/14/06, Booth Martin <booth@xxxxxxxxxxxx> wrote:

Rick, would this be a place where using a for/endfor loop would help
clear up future confusion?


rick baird wrote:
> Terri,
>
> by removing the DOU, the change in K@FAC isn't re-checked.
>
> put the do back in, and it will return to the top of your select and recheck.
>
> Rick
>
> On 8/14/06, THarteau@xxxxxxxxxxxxxxxxxx <THarteau@xxxxxxxxxxxxxxxxxx> wrote:
>>
>> Hi,
>>      I am rewriting an old program. It has the following chunk of code:
>>
>> C                 MOVE        '30'          K@FAC
>> C     W@GOOD      DOUNE *BLANK
>> C                 SELECT
>> C     K@FAC       WHENEQ      '30'
>> C                 EXSR        $100
>> C     W@GOOD      IFEQ        *BLANK
>> C                 MOVE        '10'          K@FAC
>> C                 ENDIF
>> C     K@FAC WHENEQ      '10'
>> C                 EXSR        $100
>> C     W@GOOD      IFEQ        *BLANK
>> C                 MOVE        '20'          K@FAC
>> C                 ENDIF
>> C     K@FAC       WHENEQ      '20'
>> C                 EXSR        $100
>> C     W@GOOD      IFEQ         *BLANK
>> C                 MOVE        'NO '         W@GOOD
>> C                 ENDIF
>> C                 ENDSL
>> C                 ENDDO
>>
>> Basically, it is trying to find the correct bill of material facility. It
>> could be in 30, 10 or 20.  I changed it a bit for readability.
>>
>> C                 MOVE        *BLANK      W@GOOD
>> C                 MOVE        '30'        K@FAC
>> C                 SELECT
>> C*
>> C     K@FAC       WHENEQ      '30'
>> C                 EXSR        $100
>> C                 IF          W@GOOD = *BLANK
>> C                 MOVE        '10'        K@FAC
>> C                 ENDIF
>> C     K@FAC WHENEQ      '10'
>> C                 EXSR        $100
>> C                 IF          W@GOOD = *BLANK
>> C                 MOVE        '20'        K@FAC
>> C                 ENDIF
>> C     K@FAC WHENEQ      '20'
>> C                 EXSR        $100
>> C                 IF          W@GOOD = *BLANK
>> C                 MOVE        'NO '       W@GOOD
>> C                 ENDIF
>> C*
>> C                 ENDSL
>> C*
>>
>> When I put it in debug, it does the first WHEN, changes K@FAC to '10', goes
>> to the next WHENEQ, then goes to the ENDSL.  Can anyone tell me why it no
>> longer works?
>>
>> <===================================================>
>>
>> Terri Harteau
>> Programmer/Analyst
>> Felker Brothers Corporation
>> ****************
>> "The danger in life is not that we aim too high and miss.
>> The problem is that we aim too low and hit the mark."  -- Michelangelo
>> ****************
>>
>>
>>
>>
>> --
>> 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.
>>
>>

--
-----------------------------
Booth Martin
www.martinvt.com
-----------------------------
--
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.