RE: Chaining with multiple key fields

Yep, SetLL works the same way.
/Free didn't change the way the basics work, just gave another trick to old
dogs if you know what I mean.


Good luck
S. Ellsberry
 

-----Original Message-----
From: Pete Helgren [mailto:Pete@xxxxxxxxxx] 
Sent: Friday, October 21, 2005 12:06 AM
To: RPG programming on the AS400 / iSeries
Subject: Re: Chaining with multiple key fields

Thanks....they are input only anyway.  Old, lazy habits die hard.....

SETLL work the same way then with multiple keys? i.e.

SETLL (count# : Crt(count#)) PPCS105;

I'll give it a whirl...

Pete



Ellsberry, Steve wrote:

>Nice. But why all the chains.  
>CHAIN FYKEY FPCS101
>If %Found
>Can just as easily be done with
>SETLL FYKEY FPCS101
>If %Equal
>
>No actual IO and if FPCS101 happens to be defined as "U"pdate "F" ull 
>procedural in your "F" specs then no record locks.
>
>It's just a suggestion and ya know, suggestions are like....... 
>Everyone has one....
>
>S. Ellsberry
> 
>
>
> 
>-----Original Message-----
>From: Pete Helgren [mailto:Pete@xxxxxxxxxx]
>Sent: Thursday, October 20, 2005 11:21 PM
>To: RPG programming on the AS400 / iSeries
>Subject: Re: Chaining with multiple key fields
>
>Here is the whole tamale:
> 
>    C/Free
>         IF  #$FY  >  50;
>              FYKEY = 1900 + #$FY;
>          ELSE;
>              FYKEY = 2000 + #$FY;
>        ENDIF;
>
>      CHAIN FYKEY FPCS101;
>     
>      IF  %FOUND;
>
>         Count# = 1;
>
>         dow Count# <= 5;
>
>         if COCrt(count#) <> *blanks;
>       
>           if COPOSN = Count#;
>              Chain Crt(count#) PPCS120;
>              If %found;
>                Sht(count#) = PDSHRT;
>                lng(count#) = PDDESC;
>              ENDIF;
>           else;
>            Chain (count# : Crt(count#))  PPCS105;
>              If %found;
>                sht(count#) = CCSHRT;
>                lng(count#) = CCDESC;
>              ENDIF;
>           ENDIF;
>         Endif;
>         Count# = Count# + 1;
>         ENDDO;
>       ENDIF;
>  /End-Free
>
>I don't see anywhere that I missed a closing ";" or paren or whatever 
>but these eyes have just about had it today.....
>
>Pete
>
>Scott Klement wrote:
>
>  
>
>>> 284                    Chain (count# : Crt(count#))  PPCS105; 
>>>======>                         a       b ccc *RNF5309 30 a      
>>>002626  Factor 1 operand is not valid. *RNF5031 20 b      002626  
>>>Result-Field operand is not valid. *RNF5507 30 c      002626  A 
>>>semi-colon is not specified at the end of a free-
>>>                         specification.
>>>      
>>>
>>What does the statement BEFORE this one look like.  Does it have a 
>>semi-colon at the end?
>>    
>>
>
>--
>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.
>  
>
--
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.