Vous pouvez utiliser cet exemple de programme encapsuleur comme prototype pour le code de votre propre programme encapsuleur.
Vous devez fournir un programme encapsuleur si le membre de copie contient un de ces éléments :
- Une référence à un caractère symbolique
- Une clause PICTURE numeric-edited qui contient un symbole monétaire requérant une clause CURRENCY SIGN
- Une virgule utilisée comme séparateur décimal dans une clause PICTURE
Remarque : Dans ces situations, un paragraphe SPECIAL-NAMES doit être spécifié dans le programme encapsuleur, qui fournit une définition pour ces éléments.
Exemple de programme encapsuleur
ex.cbl
IDENTIFICATION DIVISION.
PROGRAM-ID. MINI.
ENVIRONMENT DIVISION.
CONFIGURATION SECTION.
SPECIAL-NAMES.
SYMBOLIC CHARACTERS EXMARK IS 134
DECIMAL-POINT IS COMMA
CURRENCY SIGN 'EUR' PICTURE SYMBOL 'Q'.
DATA DIVISION.
WORKING-STORAGE SECTION.
COPY member.
END PROGRAM MINI.