Don't worry Jerry, we won't tell your wife you said that! :-0
I always thought a boolean 1 was *On, too.
'There are only 10 kinds of people in the world: those that understand
binary and those that do not!'
Rick Weber
-----Original Message-----
From: rpg400-l-bounces@xxxxxxxxxxxx
[mailto:rpg400-l-bounces@xxxxxxxxxxxx] On Behalf Of Jerry Adams
Sent: Thursday, February 07, 2008 11:12 AM
To: RPG programming on the AS400 / iSeries
Subject: Re: Implicit type conversion from boolean to character
I could be wrong here (no, it's happened before, really), but isn't *ON
nothing more than a '1'?
* Jerry C. Adams
*IBM System i Programmer/Analyst
B&W Wholesale Distributors, Inc.* *
voice
615.995.7024
fax
615.995.1201
email
jerry@xxxxxxxxxxxxxxx <mailto:jerry@xxxxxxxxxxxxxxx>
Aaron Bartell wrote:
I don't know how this one slipped by me (probably because I've never
tried
it), but it appears you can pass a boolean value to a sub procedure
that is
declared to receive characters, and it will implicitly convert it to a
string of ones (1) or zeros (0).
h dftactgrp(*no)
d subProc pr
d pStr1 65535a varying value
/free
subProc(*on);
*inlr = *on;
/end-free
p subProc b
d subProc pi
d pStr1 65535a varying value
p e
The above code compiles and executes successfully. Upon execution of
subProc, pStr1 is filled with ones or zeros.
Is this as designed?
Aaron Bartell
http://mowyourlawn.com
--
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 message and any attached documents contain information which may be confidential, subject to privilege or exempt from disclosure under applicable law. These materials are intended only for the use of the intended recipient. If you are not the intended recipient of this transmission you are hereby notified that any distribution, disclosure, printing, copying, storage, modification or the taking of any action in reliance upon this transmission is strictly prohibited. Delivery of this message to any person other than the intended recipient shall not compromise or waive such confidentiality, privilege or exemption from disclosure as to this communication. If you have received this communication in error, please immediately notify the sender and delete the message from your system.
midrange.com
