Re: Lost in free format conversion. -- RPG400-L

Tricky indeed. I'd rather extend the parm then (with at least 1 position).
That shouldn't be too much work ....

Kr,
Dirk.

Dirk Mariën

Toyota Motor Europe
60 Avenue du Bourget,
1140 Brussels, Belgium

Ph: +32 (0) 2 745 2581

www.toyota-europe.com

Henrik Rützou <hr@xxxxxxxxxxxx>
Sent by: rpg400-l-bounces@xxxxxxxxxxxx
25/01/2013 13:16
Please respond to
"RPG programming on the IBM i \(AS/400 and iSeries\)"
<rpg400-l@xxxxxxxxxxxx>

To
"RPG programming on the IBM i (AS/400 and iSeries)"
<rpg400-l@xxxxxxxxxxxx>
cc

Subject
Re: Lost in free format conversion.

Dirk,

you can actually code it in /free but it is tricky:

// converting to alpha maintaining the sign

alpha = %editc(numeric:'X');

// converting it back to numeric

if %bitand(%subst(alpha:5:1):x'D0') = x'D0';
%subst(alpha:5:1) = %bitor(%subst(alpha:5:1):x'F0');
numeric = %dec(alpha:5:0);
numeric = numeric * -1;
else;
numeric = %dec(alpha:5:0);
endif;

On Fri, Jan 25, 2013 at 1:01 PM, <Dirk.Marien@xxxxxxxxxxxxxxxxx> wrote:

You're right. I think I've misunderstood his mail. I suppose extending

the

parm isn't an option either ?

Kr,
Dirk.

Dirk Mariën

Toyota Motor Europe
60 Avenue du Bourget,
1140 Brussels, Belgium

Ph: +32 (0) 2 745 2581

www.toyota-europe.com

Henrik Rützou <hr@xxxxxxxxxxxx>
Sent by: rpg400-l-bounces@xxxxxxxxxxxx
25/01/2013 12:50
Please respond to
"RPG programming on the IBM i \(AS/400 and iSeries\)"
<rpg400-l@xxxxxxxxxxxx>

To
"RPG programming on the IBM i (AS/400 and iSeries)"
<rpg400-l@xxxxxxxxxxxx>
cc

Subject
Re: Lost in free format conversion.

Dirk,

that was not what Armand wanted to do ;-)

he want to pass a 5.0 numeric field as a 5A alpha field in a parameter
from
one program to another still maintaining a possible negative value and
there
is no way that you can pass a 6 char string (-22256) in a 5 char alpha
field

parmField1 = %editc(field1:'X'); will pass '2225O' to the recieving
program
the problem is getting this value back in a numeric field and the easy

way

is to double define the field in a DS

On Fri, Jan 25, 2013 at 12:29 PM, <Dirk.Marien@xxxxxxxxxxxxxxxxx> wrote:

Arnaud,

%char will convert corectly. After that, you can use %int or %dec :

ValueAlpha = %Char(Num20dec6);
Num20dec6 = %dec(%trim(ValueAlpha):20:6);

Kr,
Dirk.

Joep Beckeringh <joep.beckeringh@xxxxxxxxxx>
Sent by: rpg400-l-bounces@xxxxxxxxxxxx
25/01/2013 12:23
Please respond to
"RPG programming on the IBM i \(AS/400 and iSeries\)"
<rpg400-l@xxxxxxxxxxxx>

To
"RPG programming on the IBM i (AS/400 and iSeries)"
<rpg400-l@xxxxxxxxxxxx>
cc

Subject
Re: Lost in free format conversion.

Armand,

Why don't you just define the incoming parameter as 5S0? You say that

the RPG III program is converted to character, but it is not: it is

just

moved. So you van just receive is as it is - a zonec numeric field.

Joep Beckeringh

Op 25 jan. 2013 om 11:04 heeft Armand Perquin

<a.perquin@xxxxxxxxxxxxx>

het volgende geschreven:

Hello,

In a RPG3 program a numeric field is converted to a character field

and

passed as parameter in a call. When this parameter is received in a

free

format program and the value is positive there is no problem

converting

it

back to a numeric field. But when the value was negative the value

the

character field contains a letter so I can convert it to a numeric

field

with %dec, %int or %uns.

E.g.
Field1 5.0 with value -22256 and parmField1 5A.

When the value from Field1 in RPG3 is moved into parmField1 the

value

is

converted from -22256 to '2225O'. In this case converting it back to

numeric field is not possible because of the letter ?O?. The result

message RNX0105 is trown.

Can someone please help me to solve this challenge in free format.

Best Regards / Met vriendelijke groet,
Armand
_____________________________________________
H.P.J. (Armand) Perquin
AS/400 Senior software developer, Senior system analyst

Boal Beheer B.V.
De Hondert Margen 12
PO Box 75, 2678 ZH De Lier, The Netherlands
Tel. +31 (0)174 527297, Fax. +31 (0)174 527264
Internet: http://www.boalgroup.com

This message (including any attachments) is confidential and may be
privileged. If you have received it by mistake please notify the

sender

by

return e-mail and delete this message from your system. Any

unauthorised

use or dissemination of this message in whole or in part is strictly
prohibited. Please note that e-mails are susceptible to change. BOAL
International B.V., which has its seat at De Lier, the Netherlands,

and

is

registered in the Commercial Register under number 27237488,

including

its

group companies, shall not be liable for the improper or incomplete
transmission of the information contained in this communication nor

for

any delay in its receipt or damage to your system. BOAL

International

B.V.(or its group companies) does not guarantee that the integrity

this

communication has been maintained nor that this communication is

free

of

viruses, interceptions or interference.

______________________________________________________________________

This email has been scanned by the Symantec Email Security.cloud

service.

______________________________________________________________________

--
This is the RPG programming on the IBM i (AS/400 and 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 IBM i (AS/400 and 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 IBM i (AS/400 and 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.

--
Regards,
Henrik Rützou

http://powerEXT.com <http://powerext.com/>
--
This is the RPG programming on the IBM i (AS/400 and 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 IBM i (AS/400 and 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.