Code de création de table (débutant)

[waters]

Bonjour,

Je dois comprendre le code de création d'une table et comme je ne connais pas le cobol, je m'adresse à vous.

Voici le début du code en question:

Code :

1
2
3
4
5
6
7
01 IOAREA
 05 BI01-CLE-REF
   15 BI01-NUMCARTE
       20 BI01-NUMSERVICE PIC X(01)
       20 BI01-CARTE PIC X(04)
 05 BI01-NOM

• Je voulais savoir si le "BI01" avait une signification particulière.
• Je souhaite aussi connaitre la signification des numéro: 01,05,15,20
• Quant au "IOAREA" est-ce le nom de la table?
• Pouvez-vous aussi me confirmer que dans le jargon cobol il n'est pas question de "tables" mais de "fichiers"?On dit que le langague de requête pour les BD IMS est le "DL1" , alors pourquoi le code de création de la table est en cobol?

merci !

[BernardBZH]

Bonjour Waters,

Je voulais savoir si le "BI01" avait une signification particulière.

Non à moins que sur ton site ait été mis en place une norme précise pour le nommage des variables. En COBOL, en dehors des mots réservés, tu peux nommer les variables comme tu le veux dans la limite d'une trentaine de caractères de long.

Je souhaite aussi connaitre la signification des numéro: 01,05,15,20

Toute bonne documentation te fournira une réponse complète. Pour faire court, chaque variable est dotée d'un niveau pouvant aller de 01 à 99 avec des niveaux réservés comme 77 et 88. Les variables ayant un niveau "élevé" sont des sous-définitions des variables de niveau moins "élevé". Tout ceci correspond à des attributions de place en mémoire.
Chaque variable élémentaire (i.e. qui n'est pas re-définie par d'autres variables de niveau "inférieur") est affectée d'une clause PICTURE (abrégée en PIC) qui indique si la variable est alphanumérique ou numérique. Les zones groupes (i.e. les variables re-définies par d'autres) sont automatiquement définies en alphanumérique.

Quant au "IOAREA" est-ce le nom de la table?

Difficile de se faire une idée comme ça. Tout dépend de ce que ton programme manipule (fichiers, tables DB2, segments IMS ...).

Pouvez-vous aussi me confirmer que dans le jargon cobol il n'est pas question de "tables" mais de "fichiers"?On dit que le langague de requête pour les BD IMS est le "DL1" , alors pourquoi le code de création de la table est en cobol?

Dans le "jargon COBOL" on traite des fichiers séquentiels, des fichiers VSAM, des tables DB2, des bases IMS ...

Le langage de requête pour une base IMS est effectivement le DL1 et dans le "jargon IMS" on ne traite pas des tables mais des segments. IMS est un SGBD hiérarchique. Une base IMS est définie par un DBD (Data Base Descriptor). Ce DBD est composé de SEGMENTS qui vont porter les données de la base. Le DBD n'est pas codé en COBOL mais par un ensemble de MACRO. Le DBD sera compilé et inscrit au noyau IMS. Un PSB fera l'interface entre ton programme COBOL et ta base. Chaque requête de ton programme récupèrera le contenu de 1 à n SEGMENT.

A vue de nez, je pense que le code que tu as inscrit dans ta question correspond à la description COBOL d'un SEGMENT de ta base. Une requête DL1 alimentera les variables que tu mentionnes.

Dans ton programme tu dois avoir une requête du style

Code :

1
2
3
4
CALL 'CBLTDLI' USING ordre d'accès
                     PCB
                     Zone d'entrée sortie <= en l'espèce je pense que là tu dois avoir ta zone IOAREA
                     SSA (Search Segment Argument - facultatif)

Voila pour faire simple car ce n'est pas le lieu de te donner un cours IMS.

N'hésite pas si tu as besoin de tuyaux.

[el_slapper]

Envoyé par waters

Bonjour,

Je dois comprendre le code de création d'une table et comme je ne connais pas le cobol, je m'adresse à vous.

Voici le début du code en question:

Code :

• Je voulais savoir si le "BI01" avait une signification particulière.

merci !

Pour compléter l'excellente réponse de Bernard :
Le préfixage est une pratique commune en COBOL pour déterminer à quoi appartient la donnée. Par exemple, si je suis sur un programme MACHIN qui appelle un module TRUC, je peux faire un MOVE MACHIN-NUM-CLIENT TO TRUC-NUM-CLIENT . Ca n'a pas de signification technique, mais BI01 fait probablement référence à un module/programme/fichier, en tous cas quelque chose de précis que l'on veut pouvoir distinguer.

[Luc Orient]

S'attaquer à des programmes COBOL qui, manifestement, s'interfacent avec des Bases de données DL/1 sans connaitre ni COBOL, ni DL/1, c'est un redoutable challenge ...

Je ne sais pas si je dois en rire ou en pleurer ...

[BernardBZH]

Bien d'accord avec toi Luc Orient. Encore un pauvre prestataire qu'on a vendu comme expert au client sans doute ...