RE: MODS confusion

-----Message d'origine-----
De : rpg400-l-bounces@xxxxxxxxxxxx
J.Beckeringh@xxxxxxxxxxxxxxxxxxxxxxxxxx

David,

Your program does not get a MODS from an RPG III program.
Program SP1 defines the MODS; it 'owns' the storage, so to
speak. SP1 passes a pointer to the storage to SP2; SP2 just
passes the pointer on to the RPG III program to do whatever
it is supposed to do. Because SP2 just passes the pointer,
the definition of the parameter in SP2 does not really matter
in this case (assuming SP2 does not do anything else with the
parameter).

Joep, does that mean I could have any character field instead of Ads in the prototype for SP2? The globalDS declaration is obviously an error.

Pgm RPGIV
Module1
D globalDS E DS EXTNAME(myFile) OCCURS(20)

SP1 B

CALL SP2 ( globalDS );

Module2
D globalDS E DS EXTNAME(myFile) OCCURS(20)

D SP2 PI
D ADs LIKE(globalDS)

C CALL RPGIII
C PARM ADs


Pgm RPGIII
IODS E DSMYFILE 20
C *ENTRY PLIST
C PARM ODS