Discussion :

[sleretrif]

Bonjour,

un programme qui tourne depuis des années sur différentes machines (DOS, puis Windows 95, puis Windows 98, puis Windows XP), plante alors que nous sommes en tests sur une machine en Windows VISTA.

Le message est :

COBOL I/O error 30,5 on FTRI File SW$1
COBOL I/O error at line 539 in MonPgm

J'ai essayé de mettre "en dur" dans le programme concerné le chemin du fichier temporaire de tri, l'erreur est toujours la même sur le poste en Vista alors que sur les autres postes restés en XP, c'est OK ...

extrait du code :

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
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
      ENVIRONMENT DIVISION.                                                    
       CONFIGURATION SECTION.                                                   
       SOURCE-COMPUTER. COMPAQ.                                                 
       OBJECT-COMPUTER. COMPAQ.                                                  
       INPUT-OUTPUT SECTION.                                                    
       FILE-CONTROL.                                                            
           SELECT CTRAL    ASSIGN TO DISK "FECTRALE.DAT"                         
                           ORGANIZATION LINE SEQUENTIAL.                        
           SELECT CTRALT   ASSIGN TO DISK "FECTRALT.DAT"                        
                           ORGANIZATION LINE SEQUENTIAL.                        
           SELECT FTRI     ASSIGN TO DISK "c:\ctl2\FETRI.DAT".
...
       DATA DIVISION.                                                           
       FILE SECTION.                                                            
      *                                                                         
      **** FICHIER CENTRALISATEURS A TRAITER                
      *                                                                         
       FD  CTRAL                                                                
               LABEL RECORD STANDARD                                            
               DATA RECORD ENR-CTRAL.                                           
       01  ENR-CTRAL                   PIC  X(136).                             
      *                                                                         
      **** FICHIER à TRAITER APRES TRI                          
      *                                                                         
       FD  CTRALT                                                               
               LABEL RECORD STANDARD                                            
               DATA RECORD ENR-CTRALT.                                          
       01  ENR-CTRALT                  PIC  X(136).                             
      *                                                                         
       SD  FTRI.                                                                
       01  ENR-TRI.                                                             
           03  CLETRI1                 PIC  X(6).                               
           03  CLETRI3                 PIC  XX.                                 
           03  F                       PIC  X(10).                              
           03  CLETRI2                 PIC  X(9).                               
           03  F                       PIC  X(109).                             
...
       PROCEDURE DIVISION.                                                      
       TRI SECTION.                                                             
      *                                                                         
      *        TRI SUR DOSSIER/COMPTE/JOURNAL                                   
      *       ****************************                                   
      *                                                                         
       T10.                                                                     
               SORT FTRI ASCENDING CLETRI1 CLETRI2 CLETRI3                      
                                      USING CTRAL                               
                                      GIVING CTRALT.

Merci de me dire ce que vous en pensez ???

[fred_crrm]

je ne savais pas que des programmes COBOL tournaient encore sur micro...

Pour les fichiers de tri, le compilateur prévoit de créer un fichier temporaire sur le disque sans que celui-ci ne soit décrit.. En TEMP quoi

Dans certains de mes programmes, j'ai besoin de 2 fichiers de tri et j'utilise donc un fichier de travail qui existe sur le disque, et je le code sous COBOL comme 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
17
18
19
20
21
22
23
24
25
26
SD  FTRI                           
    DATA RECORD ETRI.              
01  ETRI.                          
-
-
-
FD  FTRAV                          
    RECORD 77                      
    DATA RECORD ETRAMIX.           
01  ETRAMIX             PIC X(77). 
-
-
-
SORT   FTRI ASCENDING KEY CLE1        
          USING FTRAV.   
-
-
-
OPEN   OUTPUT FTRAV.          
-
-
-
CLOSE FTRAV.
-
-
-

[sleretrif]

ça ne marche pas non plus si je mets un fichier de tri qui existe.
Windows Vista semble très rigoureux quant à la création de nouveaux objets (on ne peut par exemple par créer par programme de fichiers sur c:\, ou sous c:\windows).

[Bear38]

ça ne marche pas non plus si je mets un fichier de tri qui existe.
Windows Vista semble très rigoureux quant à la création de nouveaux objets (on ne peut par exemple par créer par programme de fichiers sur c:\, ou sous c:\windows).

select FTRI assign to sort. (ça ne marche pas ?)