Re: String Format Error

[Dennis <iseries@xxxxxxxxxxxx>]

Check for non-blank beyond your current window.  (In SEU, press F20)
++
Dennis
++
 "I'd like to thank my parents and my mother and father."
     -- golfer Greg Norman, accepting an award 


 

Sent from my Galaxy tablet phone.  Please excuse my brevity.
For any grammatic/spelling errors, there is no excuse.
++


"Jerry C. Adams" <midrange@xxxxxxxx> wrote:

> V5R1, member type = SQLRPGLE.
>
>
>
> I am getting an RFN5501 error, such as:
>
>
>
> 034000       IF  blscd = 'XFT'
>
>
> *RNF5501 20        034000  The comment entry on a free-form calculation
> is
> not valid.
>
> 034100       OR  blscd = 'XEX';
>
>
>
>
> This one I can "fix" by putting the 'IF/OR' on the same line.  But I've
> used
> freeform 'OR' in RPGLE programs without an error.
>
>
>
> Plus I'm getting it here:
>
>
>
> 042400   SQLString = 'SELECT blclas, bldate, blscd, +
>
>
> 042500               bltcd@, blamt, blsqty, blretp, +
>
>
> 042600               bldisc, blindx, bltxcd, bldesc, +
>
>
> 042700               blum, blprce, blcode FROM ' +
>
>
> *RNF5501 20        042700  The comment entry on a free-form calculation
> is
> not valid.
>
> 042800               LINES +
>
>
> *RNF5501 20        042800  The comment entry on a free-form calculation
> is
> not valid.
>
> 042900               ' WHERE blco = bnco +
>
>
> 043000               AND bldv = bndv +
>
>
> 043100               AND bldp = bndp +
>
>
> 043200               AND blglac = bnglac +
>
>
> 043300               AND blglsb = bnglsb +
>
>
> 043400               AND blcust = bncust +
>
>
> 043500               AND blspto = bnspto +
>
>
> 043600               AND bldate = bndate +
>
>
> 043700               AND blref# = bnref# +
>
>
> 043800               AND bljrcd = bnjrcd' +
>
>
> *RNF5501 20        043800  The comment entry on a free-form calculation
> is
> not valid.
>
> 043900               ' ORDER BY blclas, blitm# for Read Only';
>
>
>
>
> I got rid of the last one by changing it to:
>
>
>
> AND bljrcd = bnjrcd  ORDER BY blclas, blitm# for Read Only'; .  Again,
> I
> "fixed" the problem by changing the code to:
>
>
>
> partA = 'SELECT blclas, bldate, blscd, +                            
>
>            bltcd@, blamt, blsqty, blretp, +                        
>
>            bldisc, blindx, bltxcd, bldesc, +                       
>
>            blum, blprce, blcode FROM ' ;                           
>
> partB = ' WHERE blco = bnco +                                       
>
>        AND bldv = bndv +                                           
>
>        AND bldp = bndp +                                           
>
>        AND blglac = bnglac +                                       
>
>        AND blglsb = bnglsb +                                       
>
>        AND blcust = bncust +                                       
>
>        AND blspto = bnspto +                                       
>
>        AND bldate = bndate +                                       
>
>        AND blref# = bnref# +                                       
>
>        AND bnjrcd = bnjrcd  ORDER BY blclas, blitm# for Read Only';
>
>                                                                    
>
>  SQLString = %trim(parta) + ' ' + LINES + ' ' + %trim(partb);      
>
>  
>
> But I'm left wondering: Why?  It's a Monday morning, but I've had my
> allotted number of cups of coffee.  The string with the error *looks*
> like
> other, similar strings that I have formatted without an error, but the
> old
> eye may be missing something.  I read the ILE RPG Reference manual and
> couldn't find anything that pointed me to the error of my ways.
>
>
>
> The error on the multi-line IF/OR, though, definitely doesn't appear to
> be
> anything that I did wrong.
>
>
>
> Comments on the "Comment" error?
>
>
>
> Thanks.
>
>
>
> Jerry C. Adams
>
> IBM i Programmer/Analyst
>
> I wanna get out of this rat race.  The rats are winning.
>
> --
>
> A&K Wholesale
>
> Murfreesboro, TN
>
> 615-867-5070
>
>
>
> -- 
> This is the RPG programming on the IBM i / System i (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.