RE: Parameters passed to RPG

[boothm@xxxxxxx]

Is that to call CL programs, RPG programs, or both? 


In <01BE34AA.507FF3C0.rick@createprint.com.au>, on 12/31/98 
   at 10:42 AM, Rick Renkema <rick@createprint.com.au> said:

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


-- 
-----------------------------------------------------------
boothm@ibm.net
Booth Martin
-----------------------------------------------------------

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