PROGRAM-ID

Syntaxe

Paramètres

Description

Cette instruction permet de définir le nom du programme COBOL.

Remarques

• L'instruction PROGRAM-ID sert à nommer de manière unique le programme COBOL. Ce nom est utilisé pour identifier le module lors de l'exécution ou du chaînage avec d'autres sous-programmes, ce qui est essentiel dans des architectures modulaires ou en environnement multi-programmes.
• Le paramètre identificateur peut contenir jusqu'à 30 caractères, ce qui permet une bonne expressivité tout en respectant les contraintes historiques de COBOL. Il doit suivre les règles de nommage COBOL (lettre initiale, caractères alphanumériques uniquement, pas d'espaces ni de symboles spéciaux).
• L'option RECURSIVE permet au programme d'être appelé de manière récursive, c'est-à-dire qu'il peut s'appeler lui-même. Cela est utile dans des algorithmes où une solution récursive est plus naturelle ou plus efficace qu'une solution itérative.
• L'option INITIAL indique que le programme est réinitialisé à chaque appel. Cela signifie que les données de la WORKING-STORAGE sont rechargées à leur valeur d'origine à chaque exécution du programme, ce qui permet une exécution isolée, sans état persistant.
• L'option COMMON, utilisée avec INITIAL, indique que les données du programme peuvent être partagées entre plusieurs appels, mais que la première exécution initialise ces données. Cette option est utile dans un contexte où certains éléments doivent être réutilisés, mais initialisés une seule fois.
• L'option PROGRAM est rarement utilisée seule, mais elle peut apparaître dans certains contextes pour renforcer la déclaration d'un bloc en tant que programme autonome. Elle est plus fréquente dans des environnements spécifiques ou anciens.
• Définir correctement le PROGRAM-ID est crucial dans les environnements comportant plusieurs modules COBOL, car il détermine la manière dont les appels dynamiques ou statiques vers d'autres programmes sont réalisés (via l'instruction CALL).
• Le PROGRAM-ID est généralement la toute première instruction dans la division IDENTIFICATION du programme COBOL. Il sert de point d'entrée logique pour les compilateurs, les outils de documentation ou les analyseurs de code, facilitant ainsi l'identification du programme dans les projets de grande taille.