× The internal search function is temporarily non-functional. The current search engine is no longer viable and we are researching alternatives.
As a stop gap measure, we are using Google's custom search engine service.
If you know of an easy to use, open source, search engine ... please contact support@midrange.com.



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


As an Amazon Associate we earn from qualifying purchases.

This thread ...

Replies:

Follow On AppleNews
Return to Archive home page | Return to MIDRANGE.COM home page

This mailing list archive is Copyright 1997-2024 by midrange.com and David Gibbs as a compilation work. Use of the archive is restricted to research of a business or technical nature. Any other uses are prohibited. Full details are available on our policy page. If you have questions about this, please contact [javascript protected email address].

Operating expenses for this site are earned using the Amazon Associate program and Google Adsense.