Discussion :

[chappai]

Bonjour a tous,
J'ai besoin d'aide pour réaliser la tache suivante :
j'ecris un programme qui recupere des clés primaires et je dois les stocker au fur a mesure dans un fichier Excel.

J'ai vu ici qu'il était possible de faire cette opération, je comprends "à peu près" comment la réaliser mais j'aimerais bien un exemple car je n'ai jamais rempli "a la main" des infos dans les "file control" et file statut" section...
bref il faudrait que je parte d'un exemple concret.

Je vous remercie par avance

Bien cordialement
Johann

PS
je suis sous un environnement MVS/TSO

[Luc Orient]

Voir sur un sujet voisin ce fil :
Table COBOL vers CSV

[BernardBZH]

Bonjour,

Voici un squelette très succinct de programme COBOL traitant un fichier.

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
 ID DIVISION.                                                     
 PROGRAM-ID. PROGNAME.                                            
 ENVIRONMENT DIVISION.                                            
 CONFIGURATION SECTION.                                           
 SOURCE-COMPUTER. IBM-3090.                                       
 INPUT-OUTPUT SECTION.                                            
 FILE-CONTROL.                                                    
                                                                  
     SELECT NomLogique ASSIGN TO DdnameDansLeJCL FILE STATUS W-RC-xxxx.    
                                                                  
 DATA DIVISION.                                                   
 FILE SECTION.                                                    
                                                                  
 FD NomLogique BLOCK 0 RECORDS                                      
             LABEL RECORD STANDARD                                
             RECORDING MODE F.                                    
 01 ENR-NomLogique                     PIC X(LongueurDesEnregistrements).

 WORKING-STORAGE SECTION.

    01 W-RC-xxxx  PIC X(02).
    ....
 PROCEDURE DIVISION.

    OPEN [INPUT/OUTPUT] NomLogique.
    ....
    Traitement avec notamment READ ou WRITE sur NomLogique
    ....
    CLOSE NomLogique.
    ....
    GOBACK.

Toute bonne documentation COBOL te fournira les indications utiles pour coder proprement un READ ou un WRITE.

[el_slapper]

Plein d'exemples de gestions de fichiers dans ce fil, ou j'aime beaucoup les implémentations de Luc Orient et de minisubb. Mais les autres marchent aussi.

La seule chose qu'il n'y a pas, c'est le controle du file-status. Les valeurs possibles sont listéesici, et une explication d'utilisation là.

En gros, on rajoute une ligne dans la déclaration du fichier qui fait pointer le file-status sur une variable, et en sortie su READ ou du WRITE, on vérifie qu'il n'est pas à zéro.

[chappai]

Merci pour vos réponses, pour l'instant j'ecris les spec...
je vais bientot commencer cette partie delicate pour moi, je regarde vos liens en détail ce soir

je vous tiens au courant, encore merci