É possível usar este programa wrapper de amostra como um protótipo para o
código em seu próprio programa wrapper.
Você deve fornecer um programa de agrupamento se o membro de cópia contiver algum
destes elementos:
- Uma referência a um caractere simbólico
- Uma figura editada numérica que contém um símbolo monetário que requer uma cláusula
CURRENCY SIGN
- Uma vírgula usada como ponto decimal em uma cláusula PICTURE
Nota: Nesses
casos, um parágrafo SPECIAL-NAMES deve ser especificado no programa de agrupamento que
fornece definição para eles.
Programa Wrapper de Amostra
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.