Google Groups no longer supports new Usenet posts or subscriptions. Historical content remains viewable.
Dismiss

Creating PGM with CRTPGM. CLLE --> RPGLE

815 views
Skip to first unread message

access400

unread,
Jun 5, 2001, 7:27:13 AM6/5/01
to
Hello,

I have a Problem with creating pgm

Module
SAVPROD == CLLE *MODULE --> created
SAVCHKYUSR == RPGLE *MODULE --> Created

I have a CLLE program it calls a PROCEDURE (Crtusrspc) in RPG/LE program
I did create 2 modules ---> good compiled

When I do CRPPGM SAVPROD
CRTPGM PGM(HOPDM/SAVPROD)
MODULE(HOPDM/SAVPROD HOPDM/SAVCHKUSR) ---> fails see below message.
what do I wrong ? Can't i call a Procedure from CLLE program ???


with next short statement:
CLLE: SAVPROD: *MODULE
======================
CallPrc PRC(CRTUSRSPC) Parm( +
&UsrSpcName +
&UsrSpcText)

RPGLE-SAVCHKUSR- *MODULE
======================
HNoMain
* Create User Space
D CrtUsrSpc PR
D SpaceName 20A Value
D SpaceText 50A Value
...
P CrtUsrSpc B
D CrtUsrSpc PI
D SpaceName 20A Value
D SpaceText 50A Value
...
P CrtUsrSpc E


It says:
CPF3C50 Program SAVPROD not created.
CPD5D02 Definition not found for symbol 'CRTUSRSPC'.

Ugo Gagliardelli

unread,
Jun 5, 2001, 8:50:16 AM6/5/01
to

Use export declaring procedure:
P CrtUsrSpc B export

--
Dr. Ugo Gagliardelli, Modena, Italy
Spaccamaroni andate a cagare/Spammers not welcome
Spamers iros a la mierda/Spamers allez vous faire foutre
Spammers loop schijten

Karl Hanson

unread,
Jun 5, 2001, 8:23:53 AM6/5/01
to

Just a guess - ILE entry names are case sensitive.. here is a snippet
from CALLPRC/PRC help:
> The procedure name will be case sensitive.

Try matching case between CALLPRC and the RPG procedure name: both
CRTUSRSPC or both CrtUsrSpc.

--
Karl Hanson

access400

unread,
Jun 6, 2001, 3:32:56 AM6/6/01
to
Hello Karl and Ugo,

The problem was: I didn't use the EXPORT keyword in my Program.
when I add this keyword the Bounding function did compiled.

Thanks again.


Regards,

Mesut

Thomas Raddatz

unread,
Jun 6, 2001, 1:41:34 PM6/6/01
to access400
You have to specify the EXPORT keyword to make the procedure available
outside the module.

P CrtUsrSpc B export

D CrtUsrSpc PI
D SpaceName 20A Value
D SpaceText 50A Value
...
P CrtUsrSpc E

Thomas Raddatz

access400 schrieb:

--
*=====================================================*

e-mail Adresse:
Thomas....@tools400.de

Homepage:
http://www.tools400.de

*=====================================================*

0 new messages