RE: %EditC

Joel, Mike & Rob,

Thanks for your replies... It was indeed the length of the Alpha field that
was causing the problem... (I shouldn't start using a keyboard before having
my fix, ie, strong coffee / no cream / no sugar) !!


Thanks again,

Fabrice

-----Original Message-----
From: rpg400-l-bounces@xxxxxxxxxxxx [mailto:rpg400-l-bounces@xxxxxxxxxxxx]On
Behalf Of rob@xxxxxxxxx
Sent: 26 November 2003 13:39
To: RPG programming on the AS400 / iSeries
Subject: Re: %EditC

What is the value of SQLCOD?

Rob Berendt
--
"They that can give up essential liberty to obtain a little temporary
safety deserve neither liberty nor safety."
Benjamin Franklin




"Fabrice Calmelat" <f.calmelat@xxxxxxxxxxxxxxxxxxxxxxx>
Sent by: rpg400-l-bounces@xxxxxxxxxxxx
11/26/2003 06:58 AM
Please respond to
RPG programming on the AS400 / iSeries <rpg400-l@xxxxxxxxxxxx>


To
"ML: RPG400 - Midrange" <RPG400-L@xxxxxxxxxxxx>
cc

Fax to

Subject
%EditC






Dear All,

I'm not sure if it is because I am not widely awake yet, but the following
is puzzling me big time:


D SQL_Buffer        DS
D  InTransit                       13S 0

C                         If              SQLCOD = 0
C                         Eval          prmInTransit =
%EditC(InTransit:'1')
C                         EndIf


PrmInTransit is 13a and InTransit is a sum returned by an SQL Statement.

After the Eval statement, InTransit contains 46, but prmInTransit is
Blank.


There must be something obvious, but I just can't figure it out. Any
ideas?


Fabrice




_______________________________________________
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.