Discussion :

[oualilou1985]

Bonjour ,

En appelant un copy qui a le format ci-dessous ,Aprés la compilation j'obtient cet erreur ("01" should begin in area "A").


01 RP44.
02 RP44-RDWLL-X.
03: RP44-RDWLL PIC S9(4) COMP.


Question : Comment forcer de commencer par area A lors de l'appel de copy.

note : j'ai pas le droit de faire des modifications au niveau de copy.

merci d'avance.

Cordialement
Amine OUALILOU.

[el_slapper]

Ah, emmerdant. Area A, c'est pour la ligne "01" qui doit commencer au caractère 8 de la ligne. Si il est en caractère 12 comme les autres, il doit falloir tricher, du genre(mais c'est moche) :

Code :

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

1
2
COPY MACOPY REPLACING ==    01 RP44.== BY ==01 RP44.    ==.

Mais c'est quand même au propriétaire de la copy de la corriger, dans l'absolu. Ce que je te propose, c'st un pis-aller(à tester, je ne sais même pas si les espaces dans le REPLACING, ça marche).

[Mercure]

Si le compilateur n'en fait qu'une erreur pas grave (warning), ce qui a l'air d'être le cas au vu du texte du message, je laisserais courir car cela ne devrait pas empêcher la compilation d'être menée à bonne fin mais le mieux serait effectivement de corriger proprement la COPY.

[Peut-êtreUneRéponse]

Non c'est une Error pas un Warning.

Les zone-groupe doivent commencer en marge A, entre les colonnes 8 et 11 incluses. Tu peux :

1 / Tu fais le nécessaire pour que l'équipe qui a la main sur la copybook la rende exploitable par tous, sinon elle ne sert à rien.

2 / Tu en fais une copie et tu la gères comme un composant appartenant à ton projet (attention aux évolutions à reporter sur ta copie de copy)

3 / Tu fais comme indiqué par el_slapper, mais c'est de la bidouille qui à mon sens ne devrait pas aller en PROD.

.

[el_slapper]

(.../...)
3 / Tu fais comme indiqué par el_slapper, mais c'est de la bidouille qui à mon sens ne devrait pas aller en PROD.

Amen.

[oualilou1985]

Merci Bien à tous.

[Peut-êtreUneRéponse]

NB : le REPLACING d'el_slapper est parfait entre autre quand on utilise le même copybook pour plusieurs fichiers dans le même pgm.

Code :

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

1
2
3
4
5
01  FENR-APDCP.                                 
    COPY FICDCPT REPLACING ==(A)== BY ==-FA==.
01  FENR-BPDCP.                                 
    COPY FICDCPT REPLACING ==(A)== BY ==-FB==.

Dans le copybook on a :

Code :

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

1
2
3
4
5
6
05  DCPT-DETAIL.                   
   10  DCPT-IDETB(A)    PIC 9(05). 
   10  DCPT-NDOSS(A)    PIC 9(09). 
   10  DCPT-NDCPT(A)    PIC 9(09). 
   10  DCPT-DCLOTM(A)   PIC X(10). 
   10  FILLER           PIC X(47).

C'est un tout autre usage

.

[el_slapper]

Oui, je me suis inspiré de ce genre d'exemple. Sauf que nous on met un préfixe, pas un suffixe. Très utile pour un programme qui a le même format en entrée et en sortie, par exemple :

Code :

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

1
2
3
4
5
COPY MACOPY REPLACING ==(P)== BY ENTREE-
COPY MACOPY REPLACING ==(P)== BY SORTIE-


MOVE ENTREE-DONNEE TO SORTIE-DONNEE

Code :

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

1
2
01 (P)MACOPY.
    05 (P)DONNEE PIC X(10).

(et on espère que le programme fait autre chose aussi, sinon il ne sert pas à grand chose).

[EDELH]

Bonjour ,

En appelant un copy qui a le format ci-dessous ,Aprés la compilation j'obtient cet erreur ("01" should begin in area "A").


01 RP44.
02 RP44-RDWLL-X.
03: RP44-RDWLL PIC S9(4) COMP.


Question : Comment forcer de commencer par area A lors de l'appel de copy.

note : j'ai pas le droit de faire des modifications au niveau de copy.

merci d'avance.

Cordialement
Amine OUALILOU.

Il faut et il suffit de coder le fichier à "copier" comme un autre programme cobol, soit le niveau 01 en colonne 8 et les autres niveaux à partir de la colonne 10.