Re: Calling Teraspace C from RPGLE program

[Mel Rothman <mel@xxxxxxxxxxxxxx>]

I found the following under "Interlanguage Calling Considerations" in the 
information center at

http://publib.boulder.ibm.com/infocenter/iseries/v5r3/ic2924/books/c092507415.htm

4. Using ILE C and other languages, you can declare pointers to teraspace 
memory. ILE C requires a special compile-time option to address this type of 
storage, but ILE RPG can always address this storage if compiled with a target 
release of V4R4M0 or later. For more information on pointers in teraspace, see 
the ILE Concepts, SC41-5606-06 publication.

This seems to indicate that RPG IV V4R4 and later is, by default, terraspace 
enabled. I have used teraspace pointers and storage myself in RPG IV modules by 
prototyping and calling the C teraspace storage functions _C_TS_malloc, 
_C_TS_realloc, and _C_TS_free.

I use these functions in RPG IV subprocedures in the service program that drives 
my CGI programming tool kit, CGIDEV2 available at no charge from IBM at 
http://www-922.ibm.com/.

I didn't have to do anything special at either module creation time or service 
program creation time.

If Zvi's RPG program is passing a pointer parameter to the the C program, and 
the C program expects that pointer to be a teraspace pointer, it's possible that 
allocating that pointer in the RPG program with _C_TS_malloc will solve the problem.

Mel Rothman
Mel Rothman, Inc.

Vernon Hamberg wrote:
> Zvi
>
> I dug around some, especially in the ILE Concepts manual. Chapter 4 of 
> that manual discusses teraspace usage. A module has to be both enabled 
> for teraspace AND use the *TERASPACE storage model. Only C and C++ have 
> the option to specify the storage model on the module create command. At 
> least, this is what I am seeing. I find it interesting that the RPG 
> Reference says a new capability at V4R4 is the "ability to tolerate 
> pointers in teraspace".
>
> So I think that there is no way to create an RPGLE module that will use 
> the teraspace storage model, hence, you cannot bind any RPGLE module to 
> a C module that IS using that storage model. Use the DSPMOD command to 
> see the 2 values
>
> Teraspace storage enabled . . . . . . . . . . . . . . :   *YES
> Storage model . . . . . . . . . . . . . . . . . . . . :   *SNGLVL
>
> So I believe you can call an ILE RPG program from a C program and pass a 
> teraspace pointer. You might even be able to declare such a pointer in 
> RPG - I don't know that answer.
>
> You might post to the RPG group here - someone there will probably know 
> more. And your company should have IBM support - if so, you can call and 
> get your question answered - someone at your company might need to 
> authorize you, or they can call for you. The point is, IBM support will 
> take the time to answer your question. And your company has already paid 
> for it. I cannot suggest strongly enough that the best source is 
> ultimately IBM itself - we on this list have limited knowledge compared 
> to what you get at IBM, although the list often responds more quickly 
> when someone knows the answer. OTOH, you can put your question out on 
> the Internet interface at IBM and get the answer pretty quickly, without 
> waiting on the phone.
>
> Let us know what you find.
>
> Vern
>
> At 03:04 AM 5/29/2005, you wrote:
>
> > Vernon,
> >
> > If I create RPGLE module by CRTRPGMOD in V5R3 or V5R2:
> > CRTRPGMOD MODULE(SV/TVUEP) SRCMBR(TVUEP)
> > (Note: CRTPGMOD has no STGMDL parameter.)
> >
> > and then
> > CRTPGM PGM(SV/TVUEP) MODULE(SV/TVUEP) STGMDL(*TERASPACE)
> > then I got an error message:
> > Module has incompatible storage model.
> > Program TVUEP not created.
> > Can you help?
> >
> > Zvi
> >
> >
> > Vernon Hamberg <vhamberg@xxxxxxxxxxx> wrote:
> > The storage model is on the CRTPGM command and nowhere else that I 
> > know of.
> > You create modules, then link them using CRTPGM. Even when there is only
> > one module.
> >
> > The CRTBNDxxx commands are meant to work like the OPM CRTxxxPGM commands,
> > so I would expect them to assume the original single level storage model.
> > And I would not expect the ability to change storage model on a compiled
> > object.
> >
> > HTH
> > Vern
> >
> > At 06:53 AM 5/26/2005, you wrote:
> >
> > >I call a Teraspace ILE C program from RPGLE in V5R3.
> > >As declared in ILE Concepts, RPGLE is Teraspace enabled by default 
> > from V4R4.
> > >
> > >But I got an error:
> > >
> > >Space address is not a teraspace storage address
> > >
> > >Application error. MCH0609 unmonitored by TVQSC at statement *N,
> > >
> > > instruction X'0000'.
> > >
> > >RPG status 00202 caused procedure TVUEP in program SMZV/TVUEP to stop.
> > >
> > >Application error. RNX9001 unmonitored by TVUEP at statement *N,
> > > instruction X'0000'.
> > >
> > >
> > >DSPPGM SMZV/TVUEP shows:
> > >
> > >
> > >
> > >Teraspace storage enabled PEP . . . . . . . . : *YES
> > >
> > >Teraspace storage enabled modules . . . . . . : *ALL
> > >
> > >Storage model . . . . . . . . . . . . . . . . : *SNGLVL
> > >
> > >
> > >
> > >But there is no STGMDL(Storage Model) option in command CHGPGM,
> > >
> > >Or commands CRTRPGMOD, CRTRPGPGM, CRTBNDRPG.
> > >
> > >
> > >
> > >Regards,
> > >
> > >
> > >
> > >Zvi