Discussion :

[jsritshi]

Bonjour a tous, merci pour votre aide.

je suis sur un programme cobol et je veux rempalcer dans une chaine :

Code :

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

W-SPASCO  PICTURE X(02) VALUE " ;".

par

Code :

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

1
2
3
W-1COMMA  PICTURE X(01) VALUE ";".

INSPECT T-ZB4U-BODYCSV REPLACING  W-SPASCO BY W-1COMMA

j'ai l'erreur suivante :

'.' missing following procedure name declaration, or unrecognized verb
Operand has wrong size

[Mercure]

1. Quel Cobol ?
   
2. Quel OS ?
   
3. Colle l'instruction qui précède l'INSPECT et l'instruction qui le suit pour qu'on y voie + clair. thanks.

[jsritshi]

1. cobol microfocus pour le compilateur je pense que c'est du standad cobol
c'est du développement sur un ERP.

2. le programme est destiné pour le multiOS (unix as400 mvs) mais je suis sur unix oracle.

3. les instructions

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
FCSV1.                                                           
       IF W-CHFLG1 = "1"                                          
       NEXT SENTENCE ELSE GO TO FCSV1-FN                          
     MOVE "0"  TO   W-CHFLG1                                      
     INSPECT T-ZB4U-BODYCSV TALLYING  W-CSINB1 FOR CHARACTERS    
     INSPECT T-ZB4U-BODYCSV                                       
     REPLACING  ALL W-SPASCO BY W-1COMMA                          
     INSPECT T-ZB4U-BODYCSV TALLYING W-CSINA1  FOR CHARACTERS    
     IF W-CSINB1 NOT = W-CSINA1                                   
     MOVE "1" TO W-CHFLG1                                         
     GO TO FCSV1.  
 FCSV1-FN.

[jsritshi]

** Operand has wrong size

Jai declaré les variables comme suite pour ne pas avoir l'erreur

Code :

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

1
2
01   W-1COMMA  PICTURE X(02) VALUE ";".  (1 car. alimenté  sur 2)            
01   W-SCOSPA  PICTURE X(02) VALUE "; ".

mais aux tests je ne sais pas si cela va fonctionner.

[jsritshi]

Je dois modifier une chain de caracteres :

en entrée :
TEXTE TEXTE ; TEXT TEXT ; TEXT ;

en sortie je dois avoir :
TEXTE TEXTE;TEXT TEXT;TEXT;

Je ne supprime que les espaces avant et apres le separateur ;

j'ai fait un algorithme recursive pour modifier les " ; " et les "; " par ";"

MERCI pour votre aide

[Mercure]

Je ne crois pas que tu arriveras à quelque chose de correct avec INSPECT. En revanche, tu vas y arriver en testant la chaîne caractère par caractère dans une boucle.

[jsritshi]

Merci pour ton aide, je viens de pondre ce code..

dis moi si ma syntaxe est BONNE....

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
17
18
19
20
21
01       WS-DATAIN      PICTURE X (3000);
     01       WS-COUNTXT1    PICTURE 9 (03) VALUE ZERO;
     01       WS-COUNTXT2    PICTURE 9 (03) VALUE ZERO;
     01       WS-TABLE OCCURS 200.                       
       10     WS-BLOCK       PICTURE X(100).                 


     CONV1-CSV.                                                                
     INSPECT WS-DATAIN TALLYING  WS-COUNTXT1 FOR ';'
     A    1             WS-COUNTXT1
     MOVE WS-COUNTXT1   WS-COUNTXT2
     
     IF WS-COUNTXT1 > 0  
        Unstring WS-DATAIN DELIMITED BY ';' 
        INTO WS-BLOCK (WS-COUNTXT1 - 1 ).           
     IF WS-COUNTXT2 > 0
        SUBSTRACT  1   WS-COUNTXT2                               
        String  WS-BLOCK (WS-COUNTXT2) DELIMITED BY SPACE  
                ";" DELIMITED BY SIZE
        INTO WS-DATOUT.                                                  
     CONV1-CSV-FN.

[Mercure]

Compile ton programme et teste-le.

[jsritshi]

il ya pas mal de chose a faire pour que je puisse compiler, je suis sur de gros programmes COBOL et pas mal de chaines UNIX a modifier avant de voir la couleur de la log de copilation,

je cherche a savoir si cette ligne est correcte ?
aprés compile je te tiens au courant...

Unstring WS-DATAIN DELIMITED BY ';'
INTO WS-BLOCK (WS-COUNTXT1 - 1 ).

[Mercure]

A priori, cette ligne me paraît OK mais je ne suis pas un compilateur universel et je peux me tromper.

[jsritshi]

MERCI

je suis sur la compile et cela passe bien reste a voir l'execution

[el_slapper]

Sinon, y'a pas moyen de créer un programme bidon, de test, comme ça, juste pour voir, en parralèlle du vrai programme? J'ai à plusieurs reprises fait comme ça, et ça permet de vérifier des hypothèses sans passer par un "vrai" programme.

[Mercure]

el_slapper, que veux-tu dire par programme bidon ?

[el_slapper]

Ben, un programme qui n'apparait pas en production. Disons que je travaille sur une application JOK, et que j'ai des programmes de production qui vont de JOK00001 à JOK00595. Je crée un programme JOKBIDON, qui suit les normes locales, mais ne sera executé que par mes petits JCL(ou ce qui en tient lieu sur l'environnement de dev) en environnement de test. Et qui ne contient QUE ce que je veux tester. En bref, de quoi faire un POC(proof of concept, un essai technique) sans démolir la chaine de production - dont la livraison semble lourde.

[Mercure]

merci de ta réponse qui me laisse rêveur...

[jsritshi]

re saut a tous,
resulta des course..
cette syntaxe ne marche pas.. plantage a l'execution..

je suis sur un autre algorithme pour modifier une chain de caracteres :

en entrée :
TEXTE TEXTE ; TEXT TEXT ; TEXT ;

en sortie je dois avoir :
TEXTE TEXTE;TEXT TEXT;TEXT;

Je ne supprime que les espaces avant et apres le separateur ;
Je pense que je dois gerer caractere par caractere.

MERCI pour votre aide

[Mercure]

Voir la réponse que j'ai déjà donnée au post #6 ci-dessus. A situation particulière, moyen particulier !