Re: Why does this compile?

[Alan Campin <alan0307d@xxxxxxxxx>]

Probably won't accept the idea but I find these things are a whole lot
easier using %SCANRPL. Just a simple string with no embedded quotes.

dcl-s Message VarChar(512);

Message = '*** <P> = Price Change Report has completed for Customer # <C>.';
Message = %ScanRpl('<P>': %trim(sdprogram): Message);
Message = %ScanRpl('<C>': %trim(%editc(e1cust : 'X')): Message);
wrt_job_log(Message);

It occurs to me that you could write a function in a service program to do
the formatting in one line of code.



On Fri, Jul 16, 2021 at 8:24 AM DEnglander--- via RPG400-L <
rpg400-l@xxxxxxxxxxxxxxxxxx> wrote:

> I have a piece of code that compiles with no errors. It runs, but doesn't
> do anything.
>
> Here is the code:
>
>
> wrt_job_log('*** ' + %trim(sdprogram) = ': Price Change Report ' +
>             'has completed for Customer #' +
>             %trim(%editc(e1cust : 'X')) + '.');
>
>
> I accidentally typed an equal sign and it should be a plus sign right
> before the colon. The compiler took it, compiled it with no error, but
> when the program gets to the line, it doesn't write a job log entry.
>
> Once I saw the problem, I changed the = to a plus, recompiled and reran.
> There is now an entry in the joblog.
>
> Prototype  wrt_job_log  accepts a CHAR(512) field with CONST defined.
>
> Is this a compiler bug?
>
>
> Doug
>
>
>
> "CONFIDENTIALITY NOTICE:  This e-mail transmission (and/or the attachments
> accompanying it) contain confidential information belonging to the sender.
> The information is intended only for the use of the intended recipient.  If
> you are not the intended recipient, you are hereby notified that any
> disclosure, copying, distribution or the taking of any action in reliance
> on the contents of the information is strictly prohibited.  Any
> unauthorized interception of this transmission is illegal under the law.
> If you have received this transmission in error, please promptly notify the
> sender by reply e-mail, and then destroy all copies of the transmission."
> --
> This is the RPG programming on IBM i (RPG400-L) mailing list
> To post a message email: RPG400-L@xxxxxxxxxxxxxxxxxx
> To subscribe, unsubscribe, or change list options,
> visit: https://lists.midrange.com/mailman/listinfo/rpg400-l
> or email: RPG400-L-request@xxxxxxxxxxxxxxxxxx
> Before posting, please take a moment to review the archives
> at https://archive.midrange.com/rpg400-l.
>
> Please contact support@xxxxxxxxxxxxxxxxxxxx for any subscription related
> questions.
>
> Help support midrange.com by shopping at amazon.com with our affiliate
> link: https://amazon.midrange.com