Discussion :

[anthonyl56]

Bonjour

Actuellement nous sommes en phase de transition entre RPG 3 et RPG 4.

Nous avons inclus plusieurs prototypes dans un membre source.
Dans les programmes où au moins un de ces prototypes est utile, on inclut le source contenant les protos par un /COPY QRPGLESRC, ....

Et là, il me semblait que seuls les prototypes utilisés dans le source étaient ajoutées à la compilation.
Apparemment, tout le source est copié. Du coup il y a des prototypes inutiles et cela pose des problèmes (nom du proto = nom de zone d'un fichier par exemple)
Est que j'ai mal compris ? est ce lié à une version d'AS?

Merci de vos lumières

Anthony

[Green Hornet]

le bu d'un /COPY est bien de tout intégré, un peu à l'image des include en php ou d'autres langages, ensuite libre à toi de découper tes sources à inclure pour en inclure le moins possible

[Mercure]

il me semblait que seuls les prototypes utilisés dans le source étaient ajoutées à la compilation

Si ton OS est en V5R3 ou antérieur, remplace /COPY par /INCLUDE et SQL ignorera les lignes. Cela marchera avec /COPY mais à partir de la V5R4 seulement.

Il existe deux méthodes largement répandues pour gérer les copybooks (les "/COPY") :

1/ Mettre tous les prototypes dans un même membre, copier tous les protos dans cahque programme mais n'utiliser que ceux que tu veux. Cela semble être la méthode que tu as déjà employée mais qui ne te donne pas les résultats escomptés.

2/ Tu peux ne copier que ce dont tu as besoin. A cette fin, crée un membre ressemblant à ceci :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
  /if Defined(CrtSidxR3)
d CrtSidxR3       pr                         
d  pa_SysName                   10a   const  
d  pa_TabName                   10a   const  
d  pa_AccPath                 1000a   const  
d  pr_NKeys                      5p 0        
d  pr_AccPath                 4000a          
d  pr_LFName                    20a          
d  pr_rc                         1p 0   
  /Endif   

  /If Defined(LoadChkIdx)
d LoadChkIdx      pr            10i 0       
d  pa_TabName                   10a   const 
d  pa_AccPath                 1000a   const   
  /Endif

J'ai mis ici des prototypes, mais ça marcherait également pour un autre code quelconque.

Ensuite, quand tu as besoin d'un proto dans ton programme, tu ne définis et ne copies que ce dont tu as besoin :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
 D 
  /Define CrtSidxR3
  /Define LoadChkIdx
  /COPY QCOPYSRC, MESPROTOS

Ne pas utiliser QRPGLESRC ou QRPGSRC pour les copybooks.
Utiliser de préférence un nom particulier tel que QCOPYSRC par ex.