Re: MSG - The comment entry on a free-form calculation is not valid

The real problem is that the precompiler does not support free form. As a
result, it inserts the SQLDA in the wrong place and causes all sorts of
erroneous errors. I have played with adding dummy D-specs and C-specs in
order to work around this problem. Sometimes, I have been successful, but
many times not.  For now, what I am doing is avoiding embedded SQL with
free form until the precompiler is improved. Latest rumour is V5R3.

Bob

Bob Slaney/Atlanta/IBM@IBMUS (Lotus Notes)
Internet id: rjslaney@us.ibm.com
VM id: DALVM1.RJSLANEY@VM

Tieline  445-7374 Direct (770)835-7374
FAX tie 445-7579 Direct (770)835-7579
IBM Learning Services
iSeries Courseware Developer
IBM Corp.
3200 Windy Hill Road
Atlanta, GA 30339
WG07C13



                      Tilo von Brandis
                      <tvonbrandis@safa        To:       rpg400-l@midrange.com
                      ir.co.za>                cc:
                      Sent by:                 Subject:  MSG - The comment 
entry on a free-form calculation is not valid
                      rpg400-l-admin@mi
                      drange.com


                      10/11/2002 04:10
                      AM
                      Please respond to
                      rpg400-l





This message is in MIME format. Since your mail reader does not understand
this format, some or all of this message may not be legible.
--
[ Picked text/plain from multipart/alternative ]

Hi



When I use free-form text in SQLRPGLE and my argument spans over more than
1
line I get the following severity 20 message

*RNF5501 20    828 045000  The comment entry on a free-form calculation is
not valid.



The code is





 DOW NOT %EOF and

     DTYPEDOC = KDTYPEDOC and

     DNumDoc1 = KNumDoc1 and

     DNumDoc2 = KNumDoc2 and

     DNumOrd  = KNumOrd;



The compilation report shows this



    824


    825    DOW NOT %EOF and
B01

 *RNF5501 20    825 044700  The comment entry on a free-form calculation is
not valid.

    826        DTYPEDOC = KDTYPEDOC and
B01

 *RNF5501 20    826 044800  The comment entry on a free-form calculation is
not valid.

    827        DNumDoc1 = KNumDoc1 and
B01

 *RNF5501 20    827 044900  The comment entry on a free-form calculation is
not valid.

    828        DNumDoc2 = KNumDoc2 and
B01

 *RNF5501 20    828 045000  The comment entry on a free-form calculation is
not valid.

    829        DNumOrd  = KNumOrd;
B01

    830




Could anybody please help.



Thanks.



Tilo von Brandis




_______________________________________________________________________

Disclaimer and confidentiality note

Everything in this e-mail and any attachments relating to the official
business of SAFAIR (PTY) Ltd is proprietary to the company.  It is
confidential, legally privileged and protected by law.  SAFAIR does not
own and endorse any other content.  Views and opinions are those of the
sender unless clearly stated as being that of SAFAIR.

The person addressed in the e-mail is the sole authorized recipient.
Please notify the sender immediately if it has unintentionally reached
you and do not read, disclose or use the content in any way.

SAFAIR can not assure that the integrity of this communication has
been maintained nor that it is free of errors, viruses, interception or
interference.
_______________________________________________________________________

     ______________________________________

Disclaimer and confidentiality note

Everything in this e-mail and any attachments relating to the
official business of SAFAIR (PTY) Ltd is proprietary to the
company. It is confidential, legally privileged and protected
by law. SAFAIR does not own and endorse any other content.
Views and opinions are those of the sender unless clearly
stated as being that of SAFAIR.

The person addressed in the e-mail is the sole authorized
recipient. Please notify the sender immediately if it has
unintentionally reached you and do not read, disclose or
use the content in any way.

SAFAIR can not assure that the integrity of this communication
has been maintained nor that it is free of errors, virus,
interception or interference.
     ______________________________________
_______________________________________________
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/cgi-bin/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.