Discussion :

[Psuchoo]

Bonjour les experts;

Je fais mes premier pas en COBOL et j'ai un programme que je ne comprend pas. Pourriez-vous m'expliquer comment se fait l'accès aux enregistrements sans avoir le RECORD KEY dans la déclaration de nos fichiers en mode séquentiel. Un exemple ci-dessous :

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
...
001300 INPUT-OUTPUT SECTION.                                            
001400 FILE-CONTROL.                                                    
001500     SELECT                                                  
001600            FA-HICECR             ASSIGN HICECR01                 
                                        ORGANIZATION INDEXED
001800                                  ACCESS SEQUENTIAL               
                                        RECORD    FA-CPRHICECR
002000                                  STATUS IS XZ-STATUS.            


001500     SELECT
001600            FB-HICECR             ASSIGN HICECR02
                                        ORGANIZATION INDEXED
001800                                  ACCESS SEQUENTIAL
                                        RECORD    FB-CPRHICECR
002000                                  STATUS IS XZ-STATUS.
...

Je vous remercie par avance pour vos explications.

[Hédhili Jaïdane]

Bonjour.

Si je comprends bien, tu as deux fichiers indexés auxquels tu accèdes séquentiellement. Ils sont tous les deux déclarés avec un RECORD [KEY]. Le mot KEY est facultatif. Cette clause, RECORD [KEY], est obligatoire si le fichier est indexé, ce qui est le cas ici.

Pour accéder (lire en particulier) le fichier il suffit de l'ouvrir par OPEN et de lire par des READ. Les enregistrements seront lus dans l'ordre des clés à partit du premier enregistrement du fichier. On peut aussi faire un START pour commencer la lecture à partir d'un enregistrement pointé par une partie ou toute une valeur de la clé.

[Psuchoo]

Bonjour.

Si je comprends bien, tu as deux fichiers indexés auxquels tu accèdes séquentiellement. Ils sont tous les deux déclarés avec un RECORD [KEY]. Le mot KEY est facultatif. Cette clause, RECORD [KEY], est obligatoire si le fichier est indexé, ce qui est le cas ici.

Pour accéder (lire en particulier) le fichier il suffit de l'ouvrir par OPEN et de lire par des READ. Les enregistrements seront lus dans l'ordre des clés à partit du premier enregistrement du fichier. On peut aussi faire un START pour commencer la lecture à partir d'un enregistrement pointé par une partie ou toute une valeur de la clé.

Merci Hédhili pour ta réactivité, d'après tes explications la clé d'accès aux enregistrements du premier fichier "FA-HICECR" est bien le champ "FA-CPRHICECR" par contre je ne trouve nulle part ce champ dans mon programme et JE PENSE qu'il est appelé via la clause copy, ma première question est comment sont déclarées les structures appelées par les clauses copy. Ma seconde question est où devront se trouver les fichiers traités par mon programme (le chemin est il paramétrable quelque part?)

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
004700 DATA DIVISION.                                                   
004800 FILE SECTION.                                                    
 
           COPY PAREXP.




           COPY HICECR    REPLACING ==(XX)== BY ==FA==.


           COPY HICECR    REPLACING ==(XX)== BY ==FB==.


           COPY HICECR    REPLACING ==(XX)== BY ==WW==.

Par avance merci.

[Hédhili Jaïdane]

... la clé d'accès aux enregistrements du premier fichier "FA-HICECR" est bien le champ "FA-CPRHICECR" par contre je ne trouve nulle part ce champ dans mon programme et JE PENSE qu'il ai appelé via la clause copy, ma première question est comment sont déclarées les structures appelées par les clauses copy. Ma seconde question est où devront se trouver les fichiers traités par mon programme (le chemin est il paramétrable quelque part?)

- La clé RECORD KEY doit faire partie intégrante de la structure du fichier et si celle-ci n'est pas visible dans le programme c'est qu'elle fait sûrement l'objet d'un copy Les objets copiés sont en fait des membres ou des fichiers source, comme le programme, qu'on demande au compilateur de copier avant compilation. Ils peuvent aussi être des pavés de programmes source que l'on inclut dans notre nouveau source.
- En ce qui concerne les fichiers, ils sont quelque part sur les disques, pour faire simple. C'est dans le script (JCL, procédure, CL, etc...) de lancement du programme à exécuter qu'on indique l'association entre les fichiers indiqués dans le programme par la clause ASSIGN et les fichiers réellement sur disque. Pour certains OS et si cette association n'est pas faite, le nom réel du fichier sur disque est celui indiqué dans la clause ASSIGN. Dans certains OS le chemin d'accès complet du fichier doit être indiqué dans le programme.

PS : Dis nous sur quelle plateforme tu travailles (OS, compilo, versions, ...) et n'hésite à te documenter (Cobol reference relative à l'OS disponible sur le net)

[Psuchoo]

....
PS : Dis nous sur quelle plateforme tu travailles (OS, compilo, versions, ...) et n'hésite à te documenter (Cobol reference relative à l'OS disponible sur le net)

Je travaille sur un environnement AIX mais je n'ai aucune idée sur le compilo, la version, ...etc.

Auras-tu des références ou des liens pour la documentation complète a ce sujet?

[Hédhili Jaïdane]

Je travaille sur un environnement AIX mais je n'ai aucune idée sur le compilo, la version, ...etc.

Auras-tu des références ou des liens pour la documentation complète a ce sujet?

Fais une recherche avec "cobol programming guide for Aix" et "cobol reference for Aix" :

Exemples :
- https://www.ibm.com/support/knowledg...R/cob3lr01.pdf
- https://www.ibm.com/support/knowledg...R/cob3pg00.pdf

[Psuchoo]

Fais une recherche avec "cobol programming guide for Aix" et "cobol reference for Aix" :

Exemples :
- https://www.ibm.com/support/knowledg...R/cob3lr01.pdf
- https://www.ibm.com/support/knowledg...R/cob3pg00.pdf

Je te remercie pour les éclaircissements. Pourras-tu me préciser que font les lignes de code suivantes :

Code :

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

1
2
3
4
124300   2       MD-INDICE              PIC S9(00009) COMP-4 VALUE +0.
...
126500   2       MD-COMPTAGE-E          PIC ---B---B--9.
126600   2       XZ-HEURE               PIC 99.99.99.99.

J'ai une confusion surtout entre les types COMP-3 et COMP-4. Que signifie ---B---B--9 et 99.99.99.99?

Je t'en remercie par avance.

[Hédhili Jaïdane]

Je te remercie pour les éclaircissements. Pourras-tu me préciser que font les lignes de code suivantes :

Code :

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

1
2
3
4
124300   2       MD-INDICE              PIC S9(00009) COMP-4 VALUE +0.
...
126500   2       MD-COMPTAGE-E          PIC ---B---B--9.
126600   2       XZ-HEURE               PIC 99.99.99.99.

J'ai une confusion surtout entre les types COMP-3 et COMP-4. Que signifie ---B---B--9 et 99.99.99.99?

Je t'en remercie par avance.

MD-INDICE est un nombre signé de 9 chiffres stocké en binaire et initialisé à 0.
MD-COMPTAGE est un nombre signé édité (impression, fichier échange) de 8 chiffres, une place est réservée au signe. S'il est négatif il y aura un signe "-" à gauche, sinon rien. Les 0 non significatifs (à gauche) ne sont pas imprimés sauf le dernier de droite (une valeur 0 sera imprimée 0). Un blanc sera inséré pour séparer les groupes de 3 chiffres.
XZ-HEURE est un nombre de 8 chiffres séparés deux par deux par un point.