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