Re: Call a program with variables

Try passing the parms without the comma:
CALL MPDE98P ('MPDE98 ' 800 2006 2007)

HTH,
Craig

-----Original Message-----
From: rpg400-l-bounces@xxxxxxxxxxxx [mailto:rpg400-l-bounces@xxxxxxxxxxxx]
On Behalf Of pepitovadecurt
Sent: Monday, June 02, 2008 7:53 AM
To: rpg400-l@xxxxxxxxxxxx
Subject: Re: Call a program with variables

Hi, can you post an example.
I can't read these books because my english is bad.
Example:
10 text
3,0 numeric
4,0 numeric
4,0 numeric
CALL MPDE98P ('MPDE98 ' 800,0 2006,0 2007,0)

Thankyou.



Michael Ryan escribió:

It's not a problem...it's just the way it works.
http://faq.midrange.com/data/cache/57.html

On Mon, Jun 2, 2008 at 4:35 AM, pepitovadecurt <pepitovadecurt@xxxxxxxxx>

wrote:

I have an V5R2, the V5R3 resolve this problem?
Regards.

Simon Coulter escribió:

On 02/06/2008, at 5:00 PM, pepitovadecurt wrote:

Hi is posible to call a program ex: call MPDE98P ('XX','XX'), with a
numeric parameters?
I've test it but only can with the character parameters.

Search the archives. This problem has been done to death in the past.

Essentially two choices:
1) Define the numeric values as 15,5 in your program and pass
literals without quotes
2) Pass numeric literals in hexadecimal including required sign

bits

(e.g., X'0123456F')

Regards,
Simon Coulter.
--------------------------------------------------------------------
FlyByNight Software OS/400, i5/OS Technical Specialists

http://www.flybynight.com.au/
Phone: +61 2 6657 8251 Mobile: +61 0411 091 400 /"\
Fax: +61 2 6657 8251 \ /
X
ASCII Ribbon campaign against HTML E-Mail / \
--------------------------------------------------------------------

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