Advertisement
RPG ILE remplacer *entry Plist

Vous voulez remplacer les cartes c sur la réception des paramètres.  

Vous avez  par exemple
 
C      *Entry      Plist
C                     Parm                parm1     5 0
C                     Parm                parm2     7

Vous devez codifier dans les cartes D

Description :

Dans le programme appelé

  // ------------------------------------- Prototypes
D Mypgm           PR                  ExtPgm
D                                5  0
D                                7
  // ----------------------- Main procedure interface
D Mypgm           PI
D   parm1                        5  0
D   parm2                        7

Dans le programme appelant

D Mypgm           PR                  ExtPgm('MYPGM')
D                                5  0
D                                7
 // dans les cartes c 
 /Free
  Mypgm(parm1:parm2);
 /End-free