Discussion :

[zegamer]

Voilà je réalise un petit projet et j'ai quelque soucis avec une étape de ce projet.
j'ai un fichier séquentiel :
FMT PF

FMT PF
.....A..........T.Name++++++RLen++TDp8....Functions+++++++...
************** Début des données ***************....
0001.00 R PARAMETRES
0002.00 DNUMART 6S
0003.00 DNUMCLI 5S
0004.00 DNUMCOM 5S
0005.00 DNUMFACT 5S
0006.00 DNUMFOURN 5S
*************** fin des données ************....

Voila, est je voudrais écrire un programme qui, à chaque fois qu'il est lancé, ajoute 1 à DNUMCLI sans toucher aux 4 autres valeurs.

Pour avoir ceci :

*...+....1....+....2....+.
00000000001000000000000000
****** FIN DES DONNEES ******

*...+....1....+....2....+.
00000000002000000000000000
****** FIN DES DONNEES ******

ect ..

Voilà je débute en cobol donc un peu d'aide serais la bienvenue Merci d'avance ..

[Mercure]

Montre-nous d'abord le programme Cobol que tu as déjà fait en faisant copier-coller. On va le corriger si besoin.

[zegamer]

Voilà :

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
22
23
24
25
26
27
28
29
30
31
IDENTIFICATION DIVISION.                                
 PROGRAM-ID. AJOUT.                                      
 ENVIRONMENT DIVISION.                                   
     SELECT F-PARAMETRES ASSIGN TO DATABASE-PARAMETRES   
            ORGANIZATION INDEXED ACCESS DYNAMIC          
            RECORD KEY DNUMCLI.                          
 DATA DIVISION.                                          
 FILE SECTION.                                           
 FD F-PARAMETRES.                                        
 01 E-PARAMETRES.                                        
    COPY DDS-PARAMETRES OF PARAMETRES.                   
 WORKING-STORAGE SECTION.                                
 77 TMP PIC 9(5).                                        
 77 BFIN PIC 9.                                          
 77 BTROUVE PIC 9.                                       
 PROCEDURE DIVISION.   
 OPEN I-O F-PARAMETRES.                                     
 MOVE 0 TO BFIN BTROUVE                                     
 READ F-PARAMETRES AT END MOVE 1 TO BFIN END-READ.          
 PERFORM UNTIL BTROUVE = 1 OR BFIN = 1                      
    IF  TMP = DNUMCLI                                       
        ADD 1 TO DNUMCLI                                    
        REWRITE E-PARAMETRES END-REWRITE                    
        MOVE 1 TO BTROUVE                                   
    ELSE                                                    
        ADD 1 TO TMP                                        
        READ F-PARAMETRES AT END MOVE 1 TO BFIN END-READ    
    END-IF                                                  
 END-PERFORM.                                               
 CLOSE F-PARAMETRES.                                        
 STOP RUN.

[Mercure]

Je ne comprends pas bien ce que tu cherches à faire avec ce programme qui me semble un peu farfelu. Incrémenter le code (ou le n°) de client à chaque fois que le programme s'exécute me semble bizarre.

Peux-tu développer davantage ce que tu veux faire ?