Przykładowy program opakowujący

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:
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.

Opinie