包装器程序示例

可以使用此样本包装器程序作为您自己的包装器程序中的代码的原型。
如果副本成员中包含下列任何元素,您就必须提供包装程序:
注: 在这些情况下,在为副本成员提供定义的包装程序中应该指定 SPECIAL-NAMES 段。

样本包装器程序

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.

反馈