Cobol- Perform optimisé

Version imprimable

11/04/2015, 20h41
flowrita

Cobol- Perform optimisé

Bonjour,

J'aimerai savoir, comment faire un perform optimisé dans ce cas:
Nous avons une donnée X(1) contenant une lettre entre A et J,
Si la lettre est A on doit performer le paragraphe PAR-A
Si la lettre est B on doit performer le paragraphe PAR-B
etc

Comment optimiser ce code ?
Merci beaucoup
11/04/2015, 21h05
Hédhili Jaïdane
Bonjour.

Je pense qu'un EVALUATE est le plus indiqué, ceci dit un CALL dynamique peut être intéressant si les blocs performés peuvent constituer des s/programmes et si, bien entendu, le compilateur le permet..
Code:

1 2 3 4 5 6 7 EVALUATE DONNEE WHEN "A" PERFORM PAR-A WHEN "B" PERFORM PAR-B .../... WHEN OTHER PERFORM PAR-ERR END-EVALUATE.
11/04/2015, 21h46
flowrita

Pas moyen de réduire le code ?

Merci pour ta réponse.
Sinon il n'y a pas moyen de réduire le code surtout s'il ya une une longue liste de valeurs?
L'avantage c'est que le paragraphe à appeler se termine avec la lettre choisie.
Mais je pense qu'il est impossible de mettre le nom de paragraphe à performer dans une variable ?
Je pense avoir lu que le perform interprète ce qui le suit comme un nom de paragraphe tel quel, et donc ne prend pas en considération les variables.
11/04/2015, 22h01
Hédhili Jaïdane

Je ne pense pas qu'on puisse utiliser les noms des paragraphes/sections objets de perform dans un nom de variable. C'est pour cela que j'ai parlé du CALL dynamique qui permet d'appeler un s/programme dont le nom est contenu dans une variable utilisé par le CALL.

PS : Que contiennent les blocs performés ?
11/04/2015, 22h53
Hédhili Jaïdane

Demande à un modo stp de déplacer cette discussion de la rubrique Contribuez au forum principal Cobol
11/04/2015, 23h59
flowrita

D'accord je vois, mais le call dynamic permet d'appeler des sous programmes, or dans mon cas ce sont des petits paragraphes, donc pas assez de traitements pour les mettre dans des sous programmes à part.
12/04/2015, 00h03
flowrita

Unstring dans un tableau

Sinon, j'ai une petite question par rapport à Unstring, si on veut mettre des chaines de caractères délimitées par des espaces dans un tableau, comment peut on gérer cela ?

PS: Je vais essayer de déplacer la discussion dans la rubrique appropriée :)

Unstring dans un tableau

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
0050   WORKING-STORAGE SECTION.
0050   77  CHAINE pic x(35) value "1  22 333  4444   55555    666666".
       77  PTR    pic 9(4) comp-4.
       77  I      pic 9999 comp.
       01  TAB.
           03 ETAB pic x(8) occurs 10.
0201   PROCEDURE DIVISION.
0202  *****************************************************************
0203  *                                                               *
0204   TRAITEMENT SECTION.
0205  *                                                               *
0206  *****************************************************************
0209   DEBUT.
           MOVE SPACES TO TAB.
           move 1 to PTR.
           move 1 to I.
           perform until PTR > 35 or I > 10
              unstring CHAINE
                  delimited by all space
                  into ETAB(I)
                  pointer PTR
              end-unstring
              add 1 to I
           end-perform.
           display TAB.
      *
0210       stop run.

1       22      333     4444    55555   666666

13/04/2015, 14h38
flowrita

Merciii

Merci beaucoup pour ton aide :)
16/04/2015, 12h06
escartefigue

C'est dommage que M. Cobol propose l'instruction GO TO DEPENDING ON, mais pas d'équivalent avec PERFORM :? ce qui aurait permis de répondre à ce type de besoin