incd705

来自「这是在大型机的环境下,利用cobol语言编写的银行报表系统开发的一个例子.其中还」· 代码 · 共 12 行

      *RECLEN = 116
       01 :XXXX:-RECORD.
           03 :XXXX:-KEY.
              05 :XXXX:-BR              PIC X(5).
              05 :XXXX:-CCY-CODE        PIC X(6).
           03 :XXXX:-INVV-ACCT-NO       PIC X(17).
           03 :XXXX:-INVT-VOLUME-NO     PIC X(3).
           03 :XXXX:-INVT-SEQUENCE-NO   PIC X(5).
           03 :XXXX:-CUSVAA-NAME        PIC X(60).
           03 :XXXX:-INVM-CURR-BAL      PIC S9(13)V9(3) PACKED-DECIMAL.
           03 :XXXX:-INVE-VOUCHER-NO    PIC X(12).