RE: Parameters passed to RPG

It's good that you declare variable with (15 5) to avoid any problem. 
But if you don't, you must pass hex values. 
Therefore it's not mandatory to declare (15 5) to have recieve numeric 
values.

Thanks,

Rajeev.



From: Rick Renkema <rick@createprint.com.au>
To: "'MIDRANGE-L@midrange.com'" <MIDRANGE-L@midrange.com>
Subject: RE: Parameters passed to RPG
Date: Thu, 31 Dec 1998 10:42:48 +1100
Reply-To: MIDRANGE-L@midrange.com

Decimal constants are passed as packed format and with a length of 
(15,5).  The receiving program must declare the decimal field as (15,5).

See CL reference, CALL command.

Regards,

Rick Renkema
AS/400 Development Manager
Create!print International
Phone:  +61 3 9824 6888
Fax:    +61 3 9824 6866
Mobile: +61 (0) 412 CPRINT (277 468)
E-mail: rick@createprint.com.au

"All great discoveries are made by mistake."

-----Original Message-----
From:   Kevin Watkins [SMTP:kevinw@hurtcompanies.com]
Sent:   Thursday, 31 December 1998 9:38
To:     MIDRANGE-L@midrange.com
Subject:        Re: Parameters passed to RPG

I am sure there are other ways but what I do is usually create a CL that
accepts *CHAR variables and then CHGVAR to a numeric variable and pass 
the
variables to the call statement.


-----Original Message-----
From: RAJEEV ASTHANA <rajeevasthana@hotmail.com>
To: MIDRANGE-L@midrange.com <MIDRANGE-L@midrange.com>
Date: Wednesday, December 30, 1998 4:49 PM
Subject: Parameters passed to RPG


>Hi Everybody,
>
>I'm stuck.
>I have a RPG program with *ENTRY parameters:
>
>@PCOMP 3   (CHAR)
>@PGRP  50  (NUMERIC)
>@PCENT 20  (NUMERIC)
>@PDATE 60  (NUMERIC)
>
>I have to call this program with following values:
>@PCOMP '020'
>@PGRP  65
>@PCENT 19
>@PDATE 981024
>
>I'm passing parameters as follows:
>CALL PGM(DELGRP) PARM('020' X'00065F' X'19' X'981024')
>
>I tries several other options too.
>Each time I got decimal data error.
>
>Where I am wrong?
>

+---
| This is the Midrange System Mailing List!
| To submit a new message, send your mail to MIDRANGE-L@midrange.com.
| To subscribe to this list send email to MIDRANGE-L-SUB@midrange.com.
| To unsubscribe from this list send email to 
MIDRANGE-L-UNSUB@midrange.com.
| Questions should be directed to the list owner/operator: 
david@midrange.com
+---

+---
| This is the Midrange System Mailing List!
| To submit a new message, send your mail to MIDRANGE-L@midrange.com.
| To subscribe to this list send email to MIDRANGE-L-SUB@midrange.com.
| To unsubscribe from this list send email to 
MIDRANGE-L-UNSUB@midrange.com.
| Questions should be directed to the list owner/operator: 
david@midrange.com
+---



______________________________________________________
Get Your Private, Free Email at http://www.hotmail.com
+---
| This is the Midrange System Mailing List!
| To submit a new message, send your mail to MIDRANGE-L@midrange.com.
| To subscribe to this list send email to MIDRANGE-L-SUB@midrange.com.
| To unsubscribe from this list send email to MIDRANGE-L-UNSUB@midrange.com.
| Questions should be directed to the list owner/operator: david@midrange.com
+---