È possibile utilizzare questo esempio di programma wrapper come prototipo di codice di programma wrapper.
È necessario fornire un programma wrapper se il membro di copia contiene uno dei seguenti elementi:
- un riferimento a un carattere simbolico
- una sezione pictures numerica modificata contenente un simbolo di valuta che richiede una clausola CURRENCY SIGN
- una virgola utilizzata come virgola decimale in una clausola PICTURE
Nota: In questi casi nel programma wrapper deve essere specificato un paragrafo SPECIAL-NAMES che fornisce le definizioni.
Esempio di programma wrapper
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.