RE: Chaining with multiple key fields

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.