Ten przykładowy program opakowujący można wykorzystać jako prototyp kodu dla własnych programów opakowujących.
Program opakowujący należy dostarczyć zawsze, gdy element kopii zawiera dowolny z następujących elementów:
- odwołanie do znaku symbolicznego
- edytowana numerycznie sekcja obrazów zawierająca symbol waluty, który wymaga klauzuli CURRENCY SIGN
- przecinek w sekcji PICTURE pełniący rolę separatora dziesiętnego
Uwaga: W tych przypadkach w programie opakowującym, który udostępnia definicje tych elementów, należy utworzyć akapit SPECIAL-NAMES.
Przykładowy program opakowujący
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.