可以使用此样本包装器程序作为您自己的包装器程序中的代码的原型。
样本包装器程序
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.