RE: Parameters passed to RPG

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