从新到新 - 关于大机

COBOL NOTES（三）

L#isingapore.org(习惯有你) — Tue,15 May 2007 15:46:30 +0800

磁盘顺序文件

1＞              OPEN语句

　除了可以用INPUT　OUTPUT方式找开文件外，还可以用I－O方式，即被打开的文件既可以输入，也可以输出

OPEN　I－O　DAFILE。

　　注：不能同时用2种不同的方式打开同一个文件

2＞              CLOSE　FILE1　WITH　LOCK　，FILE2。

　表示FILE1关闭后加以“锁住”，FILE2关闭后不锁住

3＞              REWRITE语句

意为重写，用相同长度的记录代替原来的记录，它只能用于由I－O方式打开的文件

以INPUT方式打开的文件只能读，以OUTPUT方式打开的文件只能写，以I－O方式打开的文件只能读和重写　

COBOL NOTES（二）

L#isingapore.org(习惯有你) — Tue,15 May 2007 15:17:14 +0800

字符处理

一．STRING　语句

77　　A　　PIC　　X（3）　　VALUE　‘ABC’。

77　　B　　PIC　　X（5）　　VALUE　　ALL“＊”。

PROCEDURE  DIVISON.

   …

     STRING  A DELIMITED BY SIZE INTO B.

   …

STRING语句执行后，B中内容为

ABC**

1.STRING语句经常把多个发送字符串连接成一个较成的字符串。

STRING A B C DELIMITED BY SIZE INTO D.

2.发送不仅可以是变量，也可以是常量（不得为象征常量ALL）

　　 STRING PROVINCE SPACE CITY “   “ STREET DELIMITED BY SIZE INTI ADDRESS.

  SPACE,一个空格，同时在城市与街道间插入3个空格

DELIMITED 短语

DELIMITED　BY　（定界）短语，除了使用保留字SIZE，表示整个发送项参加连接操作外，还可以在BY的后面使用字符值常量或字符型数据项。BY后面的字值常量或数据项内容称作定界符。在执行STRING语句时，发送项的内容以定界符为界，定界符左边的内容参加合并操作，定界符本身及其右方的内容舍去不用。如果发送项中没有与定界符相匹配的内容，整个发送项全参加合并操作。定界符可以是单字符，也可以是多字符的字符串　。

77　A　PIC　X（5）　VALUE　“ABCDE”。

77　B　PIC　X（5）　VALUE　“EFGHI”。

77　C　PIC　X（10）　VALUE　ALL“＊”。

STRING　A　DELIMITED　BY　“C”，B　DELIMITED　BY　“F“　

　　　　　INTO　C。

则执行后，以的内容为

ABE＊＊＊＊＊＊＊。

POINTER短语

POINTER（指针）短语是针对接收项的，因为每个STRING语句只能有一个接收项，所以每个STRING语句只能有一个POINTER短语。

POINTER短语，用于规定接收项开始接收字符的起始位置。这个位置用接收项字符位置的相对号来表示，接收项左起第1字节的相对号是1，第2字节的相对号是2，。。。。。
77　P PIC 99.

MOVE 2 TO P.

STRING A B DELIMITED BY “C”

       INTO C WITH POINTER P.

执行后，C的内容为

*ABEFGHI**

P的值变为9（2＋7）。



OVERFLOW　短语

产生溢出的情况

1．  接收项已满，尚有未发送的字符。

2．  接收项已满，尚有未经处理的发送项

3．  指针短语中的指针变量值不合理，小于1或大于接收项长度。

STRING　A　B　BY　SIZE　INTO　C　WITH　POINTER　P　ON　OVERFLOW　GOTO　ERR－OVER。

二．UNSTRING语句

UNSTRING语句与STRING语句作用相反，将字符串拆成若干字符串

规则：

如果发送项长度小于各接收项长度之和。

1．  某接收项未装满

2．  某接收项刚好装满，其右方各接收项没有接收内容。

对于1，系统将未接收项中尚未接收内容的字符位置填充空格，该接收项以右各接收项内容不变。

对于2，凡未已旧换新内容的项均维持原内容不变

UNSTRING　A　INTO　B　C。

DELIMITED　语句

定界符可以是单字符，也可以是多字符，但不可角STRING语句那样，采用保留字SIZE，必须是字符字值常量或字符型数据项。

如果发送项有多个字符或字符串与定界符匹配，则第一个匹配定界符以左的全部内容，作为一个发送字符串，发送给第一接收项，第二个匹配定界符以左，第一匹配定界符以右的内容，作为又一发送字符串，发送给第二接收项。若2个匹配定界符连在一起，相应接收项则接空格或0。

一个定界短语可有多个定界符，各定界符之间用OR连接，OR表示各定界符只要一个与发送项匹配成功，就确定发送。

UNSTRING　A　DELIMITED　BY　“，“　OR　”。“　INTO　B　C。

有时要以连续出现的同样字符作为定界符，在这种情况下，可在字符字值前冠以保留字ALL。



COUNT　短语

COUNT　短语是把发送字符串的长度记录在一个用户定义的数据项中

如A内容：ABCD//E5

B:PIC XXX

C:PIC XXX

D:PIC XXX

执行

UNSTRING A DELIMTED BY ‘/’

        INTO B COUNT IN COUNT-B

             C

             D.

则B：ABC

C:    (3个空格)

D:E5 (后有一个空格)

COUNT－B值为4。

DELIMITER短语

DELIMITER（定位符存贮）短语

UNSTRING A DELIMITER BY “,” or “;” or ALL “/”

          INTO B DELIMITER IN DELIM-B

               C DELIMITER IN DELIM-C.

当没有匹配发生时，该接收项对应的定界符存贮区被清成空格

POINTER短语

用来指示发送项的字符位置

此短语通常　在单接收项的情况下与DELIMITER短语联合使用。

77       DELIM  PIC X.

77      PNTR  PIC 99.

77 ACCEPT-AREA  PIC X(80).

01 DATA-RECORD

03 DATA-ITEM  PIC 9(6)

        OCCURES 10 TIMES

           INDEXED BY INDEX.

PROCEDURE DIVISION.

DISPLAY “PLEASE ENTER YOUR DATA.”

ACCEPT ACCEPT-AREA.

MOVE 1 TO PNTR.

MOVE LOW-VALUE TO DELIM.

PERFORM UNSTR-PROCESS

               VARYING  INDEX FROM 1 BY 1

               UNTIL DELIM=”*”

UNSTR-PROCESS.

   UNSTRING ACCEPT-AREA DELIMITED BY ALL SPACES or “*”

      INTO DATA-ITEM(INDEX)

      DELIMITER IN DELIM

      WITH PROINTER PNTR.

TALLYING 短语

计算实际接收到了多少数据

MOVE ZERO TO TLY.

UNSTRIGN A DELIMITED BY ALL SPACE or “*”

   INTO B C D E F

   TRLLYING IN TLY.

假如A只发送了三个字符串，则TLY＝3

本短语应在POINTER语句之后，而这2个短语又必须在DELIMITER和COUNT之后

OVERFLOW短语

溢出情况

1．  指针数值项值不合理，小于1或大于发送项长度。若不合理，不执行UNSTRING语句，控制转向溢出短语规定的命令语句

2．  当所有接收项已装满，但发送项尚有未和定界符茶杯的数据，或者尚有未被包含在发送字符串中的数据。此时先执行UNSTRING语句，而后控制转向溢出短语规定的命令语句

三．INSPECT语句



1＞  INSPECT/TALLYING语句　

INSPECT A TALLYING TLY FOR ALL “A”

对指定字符串的所有出现进行计数，即数据项中每出现一个指定的字符串，计数器就加1

INSPECT A TALLYING TLY FOR LEADING “*”

对指定字符串作为前缀进行计数，计算数据项中从第一个字符开始连续出现多少指定的字符串。

INSPECT A TALLYING FLY FOR CHARACTERS

对所有出现的字符进行计数

INSPECT A TALLYING T1 FOR “.” AFTER “A”

                   T2 FOR “;” BEFORE “B”

2＞INSPECT/REPLACING语句

INSPECT  A REPLACING CHARACTERS BY SPACE BEFORE “*”.

用空格替代＊前的全部字符

INSPECT A REPLACING ALL “AB” BY “XY”

                    ALL “CD” BY  “AB”

用XY替代AB，AB替代CD

INSPECT A REPLACING LEADING SPACE BY ZERO BEFORE “**”

用0替代＊＊之前的前缀为空格的前缀

如：A为_ _ 2_ 3**,替代后A为002_3**

    A为1_2_3_**,替代后A不变

INSPECT A REPLACING FIRST “+” BY “-“ AFTER SPACE

用-替代空格后第一次出现＋的

3＞INSPECT/TALLYING/REPLACING语句

MOVE ZERO TO TLY.

INSPECT A TALLYING TLY FOR ALL “L”

     REPLACING LEADING “A” BY “E” AFTER “L”.

软件外包项目(对日)常见问题探讨

L#isingapore.org(习惯有你) — Tue,15 May 2007 15:15:43 +0800

软件外包已经成为全球IT行业的大趋势，当前软件发包方主要来自欧美和日本。我国对日软件外包具备很多竞争优势，中国各地如北京、上海、大连、西安、杭州、合肥等城市的对日软件外包正在迅速发展，并逐渐形成产业规模，中小规模的软件企业纷纷建立对日软件出口联盟。
　　对日软件外包相对技术难度不高，但是质量要求相当苛刻，外包项目失败的例子不少。以下就对日软件外包常见的一些问题进行简单探讨，希望与同行的朋友更多交流，总结经验，共同成功。

　　1、日方SE认为理所当然的地方，很多细节不会在式样书中明确写出，或者说日方SE完全按照在日本国做项目设计的习惯写式样书；由于中日文化和思维习惯的差异，可能导致中国软件开发人员对这些习惯问题理解有误。

　　对策：

　　1)积累经验，参照同类系统；
　　2)提QA表确认。

　　2、在纳品期间，对于某些BUG，可能会出现这样的争执：中方开发人员说是由于日方的式样书没有写明确，式样书不够细致，日方设计人员说是中方理解式样书不对，有些地方不写出来也应该能自己理解。

　　对策：

　　1)首先确保纳品质量和纳期；
　　2)加强双方的交流；
　　3)加强测试。

　　3、有的项目是日方边设计，需要中方同步开发，中方开发人员认为式样书上写多少就做多少，没有写的就不做。

　　对策：

　　1)加强项目的交流，主动提出设计思考让日方人员确认是不是这样的意思？

　　4、中方开发人员的日语熟练程度不够

　　对策：

　1)加强IT日语教育，开发人员至少达到能理解日语式样书的水平；
　　2)配置专业的日语翻译辅助。

　　5、对于一些中方开发人员不太在意的一些细节问题，例如字体、颜色、对齐方式等等，要求不够严谨。

　　对策：

　　1)强化质量意识，建立开发和测试规范。

6、开发过程的规范性与开发人员的态度：日本企业的开发管理，讲究中规中矩，非常重视文档的规范化管理，力求做到"凡事必求有据"；而中国企业在文档的规范化管理方面相对淡薄；日本企业项目管理对涉及的过程和文档规定了极其严格的次序和样式，要求开发人员严格执行。而中国企业在具体执行方面，开发人员往往对这些规范和要求的遵照不够严谨。

　　对策：

　　1)完全按照客户要求进行纳品，包括文档，如：开发进度报告、测试用例(Test Case)、测试报告等等；
　　2)加强开发过程管理，规范开发过程，引入CMM模式；
　　3)加强软件质量保证，如代码评审、文档审核、测试。

　　7、中国企业的开发人员比较喜欢技术创新，在开发过程中对于一些技术问题提出自己的技术方案，可能会导致部分模块技术实现方式与整体要求有差异

　　对策：

　　1)完全尊重日本客户的文化和管理模式，积极提出技术建议；
　　2)对于有要求遵照Sample代码或对具体技术实现细节有严格要求的，开发人员必须严格遵循，不允许采用自己的技术实现；
　　3)加强代码审查(Code Review)。

　　9、一些需要日本企业与中国企业的SE共同参与设计或交流的项目

　　对策：

　　1)在日本的合作伙伴企业派遣SE到项目现场进行设计；
　　2)派遣中国SE到日本参与设计，设计完成后带回中国开发；
　　3)日本企业短期派遣SE到中国。

　　10、软件外包知识产权保护与客户保密问题

　　对策：

　　1)严格保护日本客户商业秘密和知识产权；
　　2)中国企业与日本企业签订保密协议；
　　3)中国企业与开发人员签订保密协议。

　　11、日本企业对中国企业开发进度的掌握

　　对策：

　　1)按照日本企业项目管理要求报告项目进度；
　　2)分阶段纳品交付；

　　12、远程协同合作开发的交流手段和方式

　　对策：

　　1)实时消息/语音/视频交流，例如：MSN Messenger、Yahoo Messenger
　　2)视频会议系统
　　3)远程控制、远程协助、远程调试
　　4)Email、FTP
　　5)相互人才派遣，人才交流

　　13、中国企业开发队伍的稳定性

　　对策：

　　1)稳定项目流量，为特定客户配置固定的开发队伍

COBOL语法和文法(2)

L#isingapore.org(习惯有你) — Tue,15 May 2007 15:09:07 +0800

ACCEPT
    从键盘或其他输入设备读取数据。
    ACCEPT A FROM DEV.    从DEV读取数据到A，也可以省略FROM DEV，表示从键盘读取。
    ACCEPT A FROM DATE/DAY/DAY-OF-WEEK/TIME.读取日期，表示为6个字符，如990909（1999年9月9日）。
    读取当前日期在年度（前2位）中为第几天（后3位），表示为6个字符，如1994年4月1日表示为94091。
    读取当前星期几，表示为1位字符。1表示星期一，7表示星期日。
    读取当前时间，表示为8位字符。精确到毫秒。如下午2：41表示为14410000。

DISPLAY
    将数据写入输出设备。如监视器（monite），系统输出流和操作员控制台（console）。
    DISPLAY AAAAA BBBBB [UPON DEV] [WITH NO ADVANCING]
    如果使用UPON选项，dev要与special-names段中的硬件名相关联。
    如果使用no advancing选项，则输出最后一个字符后输出设备仍然保持原位，使下一条display语句还在该位置显示。否则可能到下一行显示。

INITIALIZE
    初始化数据，数字和数字编辑数据项初始化为0，其他初始化为空格。

INSPECT TALLYING
    计算项目中该字符串出现的次数。
    INSPECT AA TALLYING BB FOR ALL “EE”.  从AA中查找有多少个EE，将个数写入BB。
    INSPECT AA TALLYING BB FOR CHARACTERS BEFORE “E”.  从AA中查找E前面有多少个字符，将个数写入BB。
    INSPECT AA TALLYING BB FOR CHARACTERS AFTER “C” BEFORE “E”.  从AA中查找C后面E前面有多少个字符，将个数写入BB。
    INSPECT AA TALLYING BB FOR LEADING “E”.  从AA中第一个字符开始查找有多少个E，如果没有就结束操作，有就将个数写入BB，直至没有。
    INSPECT AA TALLYING BB FOR LEADING “E” AFTER “C”.  从AA中C后面开始查找有多少个E，如果没有就结束操作，有就将个数写入BB，直至没有。
组合例子：
    77 CS PIC X(9) VALUE "REELWHEEL".
    77 COUNT-0.
    77 COUNT-1.
    77 COUNT-2.
    MOVE 0 TO COUNT-0,COUNT-1,COUNT-2.
    INSPECT CS TALLYING
        COUNT-0 FOR ALL "E",
        COUNT-1 FOR LEADING "W" AFTER "L",
        COUNT-2 FOR CHARACTERS.
    程序首先判断的是字符"R",执行COUNT-0 FOR ALL "E"，因为第一个字符不是"E"，所以程序转而执行COUNT-1 FOR LEADING "W" AFTER "L"，也不符合要求，
    于是程序执行COUNT-2 FOR CHARACTERS，COUNT-2 =1。然后字符串往下一位，判断"E",执行COUNT-0 FOR ALL "E"，符合要求，则COUNT-0=1。
    有了满足条件的判断，则余下的判断不再执行，字符串再往下一位，判断"E"，则COUNT-0=2。接着判断"L",则COUNT-2 =2。以此类推，最后结果为COUNT-0=4，
    COUNT-1=1，COUNT-2=4。
INSPECT REPLACING
    用另一个字符串替换这个字符串。
    还用上面的例子。
    INSPECT CS REPLACING ALL "E" BY "Y".  结果"RYYLWHYYL"
    INSPECT CS REPLACING CHARACTERS BY "Z" AFTER  "L".  结果"REELZZZZZ"
    INSPECT CS REPLACING LEADING "E" BY "Y".  结果不变
    INSPECT CS REPLACING LEADING "E" BY "Z" AFTER  "H".  结果"REELWHZZL"
    INSPECT CS REPLACING FIRST "E" BY "I".  结果"RIELWHEEL"
    INSPECT CS REPLACING FIRST "EE" BY "00",ALL "WH" BY "TH",CHARACTERS BY SPACE.  结果" 00 TH   "
INSPECT CONVERTING
    就是INSPECT REPLACING的缩写。
    INSPECT CS CONVERTING "EE" TO "00". 也可以加上BEFORE，AFTER。

STRING
    将几个字符串合并成一个字符串。
    STRING A DELIMITED BY SPACE，" ！" DELIMITED BY SIZE INTO C.假设A中的内容是"HELLO",则结果是"HELLO !".
    DELIMITED BY SPACE意思是碰到空格，或到A的结尾或C的结尾，则合并A字符串结束。
    DELIMITED BY SIZE意思是到" ！"的结尾或C的结尾，则合并" ！"字符串结束。
    STRING A INTO B POINTER C ON OVERFLOW PROC1 NOT ON OVERFLOW  PROC2.
    将A字符串复制到B中由C开始的地址处。如果C小于1或大于B的长度，或A的长度大于B中C到结尾处的长度，则发生
    OVERFLOW溢出，执行PROC1。

UNSTRING
    将一个字符串中的字符按照要求放入多个变量中。
    UNSTRING AAA [DELIMITED BY [ALL] B [OR [ALL] C] ...] INTO { C [DELIMITER IN D] [COUNT IN E] } ...[WITH POINTER F] [TALLYING IN G] [ON OVERFLOW PROC1] [NOT ON OVERFLOW PROC2] [END-UNSTRING]
    将AAA中的字符放入C，如果还有其他变量，如C2，则等C放满后放入C2。
    DELIMITED BY和STRING中的作用一样。表示将AAA中到B为止的字符取出。如果有OR，则表示到B或C字符为止的字符取出。如果有ALL，则如果几个相同的B在一起，则认为是一个B。
    DELIMITER IN 将B放入D，知道是哪个字符为分隔符。
    COUNT IN 实际复制到C中的字符数放入E中。
    WITH POINTER 和STRIGN中一样。
    TALLYING IN 计算有几个接受项。访问一个新的接受项，G值加1。
例子：
    03 CITY PIC X(10).
    O3 ZIP  PIC X(10).
    77 TEST PIC X(20).
    MOVE "NEW YORK,NY 10017" TO TEST.
    UNSTRING TEST DELIMITED BY "," INTO CITY,ZIP.
    执行结果CITY值是NEW YORK.ZIP的值是NY 10017。

逻辑和控制语句
    IF (A [NOT] > B) 等价于 IF (A [NOT] GREATER THAN B)
    IF (A [NOT] < B) 等价于 IF (A [NOT] LESS THAN B)
    IF (A [NOT] = B) 等价于 IF (A [NOT] EQUAL TO B)
    IF (A >= B) 等价于 IF (A GREATER THAN or EQUAL TO B)
    IF (A <= B) 等价于 IF (A LESS THAN or EQUAL TO B)

    IF A IS [NOT] NUMERIC    数字和可选符号
    IF A IS [NOT] ALPHABETIC A~Z,a~z字符和空格
    IF A IS [NOT] ALPHABETIC-LOWER a~z字符和空格
    IF A IS [NOT] ALPHABETIC-UPPER A~Z字符和空格
    IF A IS [NOT] CLASS-NAME       SPECIAL-NAMES定义的字符集
    例如：SPECIAL-NAMES.
              CLASS MYDEFINE IS "12345+ABCDE-".

    判断变量是否定义了数值。这个变量是88层的，且要与一个数据项关联。
    03 STATE PIC XX.
    88 CON VALUES ARE "A","B","C".
    IF CON ...

    判断厂家定义运行开关的开/关状态。
    SPECIAL-NAMES.
        SWITCH-A ON STATUS IS A-ON ,OFF STATUS IS A-OFF.
    IF A-ON...
    若开关在开位置，则IF A-ON返回TRUE。

    IF A IS [NOT] POSITIVE  判断是否大于0
    IF A IS [NOT] NEGATIVE  判断是否小于0
    IF A IS [NOT] ZERO      判断是否等于0

    COBOL支持NOT ,AND ,OR 操作。

PERFORM
    过程调用，但是不传递参数。
  PERFORM PROC1 [THROUGH PROC2]
    执行完PROC1再执行PROC2.没有THROUGH(THRU)就只执行PROC1.
  PERFORM PROC1 [THRU PROC2] N TIMES
    执行PROC1[或者还有PROC2]N次。
  PERFORM PROC1 [THRU PROC2] [WITH TEST BEFORE/AFTER] UNTIL A NOT EUQAL 0.
    执行PROC1[或者还有PROC2]直到A不等于0。WITH TEST BEFORE/AFTER指定在第一次执行之前还是之后判断条件。默认是BEFORE，执行之前判断。
  PERFORM PROC1 [THRU PROC2] [WITH TEST BEFORE/AFTER] VARYING A FROM B BY C UNTIL CONDITION1 [AFTER D FROM E BY F UNTIL CONDITION2].
    相当于FOR循环，将A的值从B开始，以C为单位递增，直到满足CONDITION1。AFTER语句是一个嵌套的FOR 循环。VARYING是外循环，AFTER是内循环。A，B可以是索引。

    过程也可以直接写入PERFORM中。但是THROUGH就不好用了。语法如下：
  PERFORM 过程语句 END-PERFORM.
  PERFORM N TIMES 过程语句 END-PERFORM.
  PERFORM [WITH TEST BEFORE/AFTER] UNTIL CONDITION 过程语句 END-PERFORM.
  PERFORM [WITH TEST BEFORE/AFTER] VARYING A FROM B BY C UNTIL CONDITION1 过程语句 END-PERFORM.

IF语句
  IF CONDITION THEN STATEMENTS1/NEXT SENTENCE ELSE STATEMENTS2 END-IF/NEXT SENTENCE/ENDIF
    NEXT SENTENCE将跳出IF操作语句执行下一条语句。
    IF语句中不要使用.句号。.句号将结束所有IF语句。要结束一个嵌套的IF语句，可以使用END-IF或者NEXT SENTENCE.如
    IF A IF B END-IF ELSE C END-IF.或者
    IF A IF B ELSE NEXT SENTENCE ELSE C END-IF.

EVALUATE
    相当于SWITCH CASE语句。
    EVALUATE A
        WHEN B ...
        WHEN 0 THRU 100 ...(FROM 0 TO 100)
        WHEN OTHER ...
    [END-EVALUATE]
    首先得到A的结果，和WHEN语句的参数比较，如果和B相等，就执行B后的操作，执行完了不再执行后面的WHEN语句。如果不等就执行下一条WHEN语句。如果没有相等的就执行WHEN OTHER语句。
    EVALUATE A ALSO B
        WHEN C ALSO D ...
        WHEN E ALSO F ...
        WHEN OTHER ...
    对于有多个判断条件的，要多个条件同时满足。如上要C=A同时D=B，才执行WHEN语句。

CONTINUE
    继续执行下面的程序。

GO TO
    GO TO PROC1 [DEPENDING ON N] DEPENDING ON N将跳转到清单中的第N个PROC.

EXIT
    一般为最后一句话。

STOP
    STOP RUN  结束程序。

Alter
    Alter PROC1 TO PROC2. 不懂什么意思，反正已经从标准中废除了这个语句。

ENTER
    使其他编程语言中的语句可以放进当前源程序中。
    ENTER LANGUAGE-NAME [ROUTINE-NAME]
    LANGUAGE 是厂家指定可以输入COBOL的任何语言，这个语句后面是其他编程语言的语句，然后要用ENTERCOBOL表示返回COBOL语言。
    如果无法将其他语言的程序直接放入，可以用ROUTINE-NAME引用其他语言编写的程序。

COBOL语法和文法(1)

L#isingapore.org(习惯有你) — Tue,15 May 2007 15:08:17 +0800

REDEFINES
    可以用不同的变量描述同一内存。
    01 PART_RECODE USAGE DISPLAY
      03 PART-TYPE PICTURE...
      03 PART_TYPE_A.
        05 PART_NUMBER PICTURE...
        05 PART_COST PICTURE...
      03 PART_TYPE_B REDEFINES PART_TYPE_A.
        05 UPC_CODE PICTURE...
      03 PART_TYPE_C REDEFINES PART_TYPE_A.
        05 ISBN PICTURE...
    根据PART_TYPE决定用PART_TYPE_A还是PART_TYPE_B还是PART_TYPE_C。
    规则：
        PART_TYPE_B和PART_TYPE_C长度不能大于PART_TYPE_A。
        数据项不能有VALUE。
        01层不能用REDEFINES.
        PART_TYPE_B和PART_TYPE_C中不能有OCCURS.

PICTURE
    定义基本项目的具体长度，格式，数据类型。可以简写成PIC.
    格式字符串最多30个字符，可以包含下列字符：
    A  字母A-Z,a-z,空格
    B  插入空格
    P  标量字符，代表字段中不显示的小数点位置
    S  代数符号，实际显示取决于项目的USAGE
    V  小数点位置
    X  任何字符
    Z  抑制前头的0并转换成空字符
    0  插入0
    9  数字0~9
    /  插入/
    ,  插入,(逗号不能作为字符串的最后一位，最后时逗号是分隔符)
    。插入。
    *  抑制前头的0并转换成*
    +  正值插入+，负值插入-
    -  正值插入空格，负值插入-
    $  插入美元号
    CR 正值插入两个空格，负值插入CR
    DB 正值插入两个空格，负值插入DB
例子：
    03 VAR PIC AAAAA.    STATE变量长度为5个字符，不能有数字，等价于03 STATE PIC A(5)。
   输入ASDFG ,显示ASDFG
    03 VAR PIC XXXXX.   FILLER变量长度为5个任意字符。等价于03 FILLER PIC X(5)。
   输入123AS ，显示123AS
    03 VAR PIC 99/XXX/9999 长度11，输入05may2004,显示05/may/2004
    03 VAR PIC 0ABXXX/9999 长度11，输入05may2004,显示05 may/2004
    03 VAR PIC 9(3) 长度3，0~999之间。
    03 VAR PIC 9(4)V99 长度6，0.00~9999.99之间。
    03 VAR PIC S9(5)V99 长度7，-99999.99~99999.99之间。
    03 VAR PIC 9(6)PPP 长度6，可以是1000，2000，...,999999000。输入1234，显示1000。
    03 VAR PIC PPP999 长度3，0.000001~0.000999之间。输入123，显示0.000123。
    03 VAR PIC ZZZ.99，输入100.50,显示100.50;输入-51.50,显示51.50;
            输入0,显示.00.
    03 VAR PIC $ZZZ.ZZ-，输入100.50,显示$100.50;输入-51.50,显示$51.50-;
            输入0,显示
    03 VAR PIC $***,***.99CR，输入1000,显示$**1000.00;输入-1000,显示$**1000.00CR;
            输入0,显示$***,***.00;输入51.5,显示$***,*51.50
    03 VAR PIC $$$,$$$.99，输入100.50,显示$100.50;输入-100.50,显示$100.50;
            输入0.777,显示$.77;输入0,显示$.00
    03 VAR PIC $.$$$，输入1.00,显示$.00;输入0.65,显示$.65;
            输入0,显示$.00;
    03 VAR PIC $--，输入17.7,显示$17;输入-17.7,显示$-17;
            输入-5,显示$-5
    03 VAR PIC $999.99+，输入100.50,显示$100.50+;输入-100.50,显示$100.50-;
    03 VAR PIC 9(3)B9(3)，输入55,显示000 055;输入1000.78,显示001 000;

USAGE 表示基本或组数据的类型。有BINARY,COMPUTATIONAL(COMP),DISPLAY,INDEX,PACKED-DECIMAL.

JUSTIFIED
    03 VAR1 PIC X(5) JUSTIFIED RIGHT.
    03 VAR2 PIC X(5).
    输入XYZ，VAR1显示的是"  XYZ",VAR2显示的是"XYZ  "。

BLANK WHEN ZERO
    03 VAR PIC $999,999.99 BLANK WHEN ZERO .
    当字段值为0，这个项目设置为全部空格。

VALUE
    定义的时候就赋值。
    03 VAR PIC X(5) VALUE "ABCDE".
    01 VAR VALUE ALL SPACES.
      03 VAR1 PIC XXX.
      03 VAR2 PIC XX.

算术语句
    COBOL中操作符执行顺序为：取正(+)、取负(-)最高级，指数操作(**)其次，乘(*)、除(/)再其次，加(+)、减(-)最后。
ROUNDED   舍入操作。
    77 A PIC 9V9 VALUE 9.1.
    77 B PIC 9.
      ADD 0.5 TO A GIVING B ON SIZE ERROR GO TO PROC1.
      ADD 0.5 TO A GIVING B ROUNDED ON SIZE ERROR GO TO PROC2.
      END-ADD.
ON SIZE ERROR 是当语句出现错误时执行的。本例中第一句话执行没有错误，所以ON SIZE ERROR
不执行PROC1.第二句话，当0.5加上9.1得到9.6，因为有ROUNDED,所以执行舍入操作，得到10。而B只有1位数字，所以发生错误，执行ON SIZE ERROR操作，跳转执行PROC2。
CORRESPONDING(CORR)    数据项同名时编写多条语句。ADD和SUBSTRACT有此选项。
    01 A .
      03 B.
        05 B1 PIC 999V99.
        05 B1 PIC 999V99.
        05 B1 PIC 999V99.
      03 C.
        05 B1 PIC 999V99.
        05 B1 PIC 999V99.
        05 B1 PIC 999V99.
则语句ADD CORR B TO C.相当于执行了下面3条语句。
    ADD B1 OF B TO B1 OF C.
    ADD B2 OF B TO B2 OF C.
    ADD B3 OF B TO B3 OF C.
组项目不一定要格式相同。一个组项目中的内容在另一个组项目中可以没有，数据项顺序也无关紧要。只是严格按照数据项名称对应。
    ADD A,B GIVING C. END-ADD.              将A,B相加放入C。
    SUBTRACT A,B FROM C。END-SUBTRACT.      从C中减去A,B.
    MULTIPLY A BY B GIVING C. END-MULTIPLY. 将A,B相乘放入C。
    DIVIDE A INTO B GIVING C. END-DIVIDE.   将B除于A的结果放入C.
    DIVIDE A BY B GIVING C. END-DIVIDE.     将A除于B的结果放入C.
    DIVIDE A BY B GIVING C REMAINDER D.     将A除于B的商放入C，余数放入D.
    D=A-B*C.
    77 C PIC S99V9.
    77 D PIC S99V9.
    DIVIDE 3 INTO 7 GIVING C REMAINDER D.
    C的值为2.3，D为0.1。(D=7-3*2.3)

COMPUTE
    除了取余操作要用DIVIDE外，其他操作都可以用此语句。本语句求值一个算术表达式，并将结果存放在一个或几个变量中。
COMPUTE  A ROUNDED,B  = X*Y/(N+M)+Z. 将X*Y/(N+M)+Z的结果存放在B中，然后舍入后放入A中。

MOVE
    MOVE A TO B.
    也可以用CORR选项。
    MOVE CORR A TO B.

COBOL语言数据类型转换方法

L#isingapore.org(习惯有你) — Tue,15 May 2007 15:07:24 +0800

     计息是银行的一项重要业务，包括日常代理客户收、付计算客户利息和年度计息等。目前，这些工作大多数是在IBM ES9000主机的SAFE应用系统平台上进行，该系统联机程序和联机计息程序是用IBM 370汇编语言实现的。为方便汇编语言读写，在VSAM文件存储的数据中，数据存放格式进行了特殊的定义。如日期存放采用X(3)型，01年03月15日，存入EBCD码为X‘010315’。在进行年度计息时，为了实现各种复杂的运算工作，一般采用COBOL语言来实现各种运算。而采用COBOL语言读取X(3)型数据时，读出的是字符型数据，不能直接进行运算，必须转换为COBOL数据类型的数据后才能进行相应处理。如刚才的X‘010315’，需要转换为内部十进制数据X‘0010315C’。本文介绍一种用COBOL语言实现字符型X(3)与内部十进制数据相互转换的方法。
由X(3)型转换为内部十进制
由于日期数据总是大于零，在COBOL语言的工作单元节定义变量DATE－FIRST后，再追加定义COBOL语言的最小数据单元X‘000C’，即十进制12。由于重定义DATE－CASE为DATE－CHANGE后，DATE－CHANGE是原日期数据的1000倍，于是要在过程部将DATE－CHANGE除以1000。
首先，在COBOL程序WORKING－STORAGE SECTION. 中定义如下内容：
WORKING－STORAGE SECTION.
01 DATE－CASE.
02 DATE－FIRST PIC X(3).
02 DATE－SIGN PIC 9(4) COMP VALUE 12.；定点二进制数
01 DATE－CHANGE REDEFINES DATE－CASE PIC 9(9) COMP－3. ；内部十进制数据
01 DATE－HEX PIC X（3）. ；转换前数据
01 DATE－DEC PIC S9（7）COMP－3 . ；转换后数据
然后，在过程部PROCEDURE DEVISION.中加入如下语句：
PROCEDURE DEVISION.
MOVE DATE－HEX TO DATE－FIRST .
COMPUTE DATE－CHANGE = DATE－
CHANGE / 1000.
MOVE DATE－CHANGE TO DATE－DEC.
由内部十进制转换为X(3)型
在进行相反的转换时，要消除因COBOL语言数据类型标志“C”引起的原日期数据前多加的一个0，所以需要将转换数据乘以10，再取出前6位数据即可。
首先，在COBOL程序WORKING－STORAGE SECTION. 中定义如下内容：
WORKING－STORAGE SECTION.
01 WORK－DATE PIC S9(7) COMP－3.
01 AA REDEFINES WORK－DATE.
02 A1 PIC X(3).
02 A2 PIC X(1).
01 DATE－HEX PIC X(3). ；转换后数据
01 DATE－DEC PIC S9(7) COMP－3.
；转换前数据
然后，在过程部PROCEDURE DEVISION.中加入如下语句即可：
PROCEDURE DIVISION.
MOVE DATE－DEC TO WORK－DATE。
COMPUTE WORK－DATE=WORK－DATE＊10.
MOVE A1 TO DATE－HEX .

COBOL NOTES

L#isingapore.org(习惯有你) — Tue,15 May 2007 15:06:16 +0800

用法子句(USAGE子句) 使用用法(USAGE)子句可以使程序设计者自由选挥数据杯内存中的存放形式。譬如，数据项A和B是需要多次进行运算，如果用外部十进制形式则来回转换会大大降低运算速度，这时，可以选择A和B为定点二进制形式或内部浮点形式．如果数据项C和D轻加运算次数少，而且需要多次打印出C和D的结果，这时用外部十进制比较适合，因为它最适合打印的要求，不必再进行转换。 USAGE IS DISPLAY/COMP DISPLAY (标准数据形式。一个字节放一字符) COMP 定点二近制形式 COMP-1：内部短浮点形式 COMP-2：内部长浮点形式 COMP-3：内部十进制形式如果对组合项描述为某一种存放形式，则表示这个组合项的下属各初等项都是这种形式。 USAGE子句指定的数据存放形式不应与PIC子句指定的数据类型矛盾．长、短浮点形式己确定了内存的长度，不应再用PIC子句．用WRITE语句输出时，是直接按内存中存放数据形式输出(不加转换的)．这是和用DISPLAY语句时不同的．

金融支付清算系统术语大全

L#isingapore.org(习惯有你) — Fri,05 Jan 2007 19:58:05 +0800

资料介绍：
这里的词汇是在最合适的一致性基础上对本书中涉及到的(十国集团和欧共体)中央银行所使用的术语给出解。它不打算对这些术语给出法律定义。应该认识到，它在其他语言中未必能找到完全等同的术语。

咨询轧差（advisory netting)：见状态轧差。

受保支付系统(assured payment system)(aps)：一种价值交换系统中的协议其中，及时完成一笔支付指令的结算，需要第三方(主要是银行、银行辛迪加或者清算所)不可撤销的和无条件的承诺支持。参见价值交换结算系统。

自动化清算所(automated clearing house)(ach)：一种电子清算系统，在系统中支付指令，主要借助磁介质或者通过电信网络在金融机构之间进行交换并由数据处理中心处理。参见清算。

自动柜员机(automated teller machine)(ATM)：一种可以让已授权的用户，主要利用机器可读的塑料卡，从其帐户提取现金并可向用户提供不同种类的其他服务诸如余额查询、资金转帐和接收存款的机电设备。ATM可以以联机实时查询授权数据库或者脱机两种方式运行。

银行汇票(bank draft)：在欧洲，该术语通常指一种由银行自身兑付的票据。银行汇票由付方在银行购买并发送给收方，收方提交银行汇票给收方的开户银行，收方的开户银行对收方支付。收方的开户银行再提交银行汇票给付方银行并由付方银行偿付。在美国，该术语通常指由银行自身或者从其他银行兑付的汇票或者支票。在银行本票中，银行既是出票人又是受票人。在银行柜员支票中，一家银行是出票人，另一家银行是受票人。银行汇票可能由银行按其自己的目的签发或者由客户购买并发送给收款人以清偿债。

批处理(batch)：一组支付指令和(或)证券转让指令以一个集合在处理点以不连续的时间间隔发送或处理。

受益所有权／权益(beneficial ownership/interest)：接收证券或其他金融票据的部分或全部所有权权益的权利(如收入、选举、转帐权)。受益所有权通常区别于证券或金融票据的法定所有权。参见法定所有权。

双边轧差结算系统(bilateral net settlement system)：它是一种结算系统，其参与者的双边轧差结算余额是在每对参与者之间进行结算的。参见净贷记和借记余额。

双边轧差(bilateral netting)：双方之间对其双边债务进行轧差的协议。协议包含的债务可能产生于金融合同或转帐交易或者同时产生于两者。参见轧差，多边轧差，净额结算。

汇票(bill of exchange)：一种由出票人提交给受票人的书面票据，它要求受票人对出票人或出票人指定的人随时或在规定的日期支付一笔特定的数额。广泛用于金融交易和(当在银行贴现时)获得信用。参见个人汇票。

簿记系统(book entry system)：一种在没有票据或者证券实物移动的情况下，能够进行债权(即证券)转让的记帐系统。参见无形化，停止流通。

批量转帐系统(bulk transfer system)：见零售转帐系统。
活期借款(call money)：是一种借款合同，该合同每天都被自动地重新续约，除非放款人或借款人表示希望资金在短时期内归还。

资本风险(capital risk)：见本金风险。

最高限额(caps)：出于风险管理的目的，在营业日内对资金转帐或证券转让系统中的参与者可以发生的余额(借记或贷记余，它可能是净额或者全额)约定的量化限额。最高限额可以由参与者根据他向系统中的其他参与者提供的双边信用来确定，即双边信用
限额，或者由系统的经营者或管理转帐系统的机构在汇总一个参与者在系统中可能发生的净借记基础上确定，即发送方的净借记限额。发送方的净借记限额，既可是有抵押的也可以是没有抵押的。

卡(card)：见提款卡、支票保付卡、芯片卡、信用卡、借记卡、延迟借记卡、预付卡、零售卡和旅行娱乐卡。

提款卡(cash card)：只在ATM或自动提款机上使用的卡(通常，其他的卡也有提款功能，它允许持卡人提取现金)。

自动提款机(cash dispenser)：允许客户，主要利用机器可读的塑料卡提取纸币，和在一些情况中也可提取硬币的电子机械设备。参见ATM。

本票(casher’s cheque)：见银行汇票。

中央银行信用(流动性)贷款(central bank credit (liquility) facility)：可由某些指定的中央银行帐户持有者(如银行)提用的常设的信用贷款。在一些情况中，开户人可主动使用贷款，而在另一些情况中，中央银行可能保留一定程度的决定权。借贷一般在往来帐户中以借款或者以证券抵押担保的透支形式(在一些欧洲国家也叫银行家借贷)或者以传统的票据再贴现形式出现。

中央证券托管(central security depository)：一种保管证券的服务，它使得证券的交易可以由簿记系统进行处理。实物证券可以固定地由托管机构保管而不进行实物交割，或是实现证券的无形化(即证券都是以电子记录的形式存在)。除了保管以外，中央证券托管可能还包含撮合、清算和结算功能。

凭证(certificate)：表明发行者债权、债务或其他未清偿金融债务的实物票据。

链(chaining)：在一些转帐系统中(主要是证券系统)用于处理交易指令的方法。该方法包括对处理转帐交易队列的控制(操纵)，以增加用可用资金和(或)证券往来余额(或可用信用和证券借贷额度)结算的转帐交易的数量和金额。

赊帐卡(charge card)：见旅行娱乐卡。

支票(cheque)：一种由出票人提交给受票人(通常是银行)的书面票据，它需要受票人对出票人或出票人所指定的人随时支付一笔特定的数额。广泛用于清偿债务和从银行提取现金。参见汇票。

支票保付卡(chque guarantee card)：作为支票担保制度的一部分而发行的卡。这一功能也可和其他的功能，如提款卡或借记卡的功能结合在同一张卡中。参见支票保付制。

支票保付制(cheque guarantee system)：一种对支票，主要是一定限额以内的支票进行担保的制度，商户既可根据对支票鉴发人发行的卡也可能通过商户可以访问的中央数据库确认。确认后的支票由保付卡的发行者、付款人的开户行或者系统的经营者担保。

芯片卡(chip card)：也称ic(集成电路)卡或者智能卡。在一张卡中包括用于识别、数据存储或特殊处理的一个或多个计算机芯片或集成电路，通常用于确认个人识别码(pin)、购买授权、修改帐户余额和存储个人档案。在一些情况中，当卡使用一次，卡的存储器就被更新一次，如更新帐户余额。

清算／票据交换(clearing/clearance)：清算是结算之前对支付指令或者证券转让指令进行发送、对帐和确认(在一些情况中)等处理，还可能包括指令轧差和产生结算的最终余额。在证券市场中，这一过程常常是指票据交换(clearance)。有时该术语包括(不准确)结算。

清算所(clearing house)：金融机构交换支付指令或者其他金融债务(即证券)的一个中心地点或者一种中央处理机制。金融机构根据清算所的章程和办法在指定的时间交换要结算的凭证。在一些情况中，清算所可能作为清算系统的重要订约方，或承担清算系统的金融或风险管理的责任。参见清算／票据交换，清算系统。

清算所资金(clearing house funds)：该术语广泛用于美国某些金融市场，主要是指在接收日是临时的而在次日是确定的资金。更特别地是，该词常常是指一些的清算所协定中，在结算清算处理中产生的债务时，由参与者交换的具有次日最终性的货币债权。这种债权主要通过支票、汇票或其他类似的支付工具进行转帐。

清算系统(clearing system)：金融机构在同一地点(清算所)向其他的金融机构提交并与其他金融机构交换与资金或转帐证券转让相关的数据和(或)文件的一套做法。这种做法经常也包含计算参与者的双边和/或多边轧差余额的机制，目的是便于在轧差或者净轧差的基础上进行金融机构之间债务的结算。参见轧差。

比较(comparison)：见撮合。

确认(confirmation)：这一广泛使用的术语的特定内涵是市场参与者通知其订约方或者客户有关交易的详情，主要是让他们有时间对交易进行批准和询问。

代理银行(correspondent banking)：一家银行(代理)拥有其他银行(委托人)存款并对那些委托银行提供支付和其他服务的一种协议。在一些国家中，这种协议也可称为代理关系。在国际金融中，为外国委托银行保存的余额可以用来结算外汇交易。相互代理的银行关系可能涉及到利用所谓的往来帐户来结算外汇交易。

订约方(counterparty)：一笔金融交易，诸如证券交易或外汇掉期协议中的对应方。

信用最高限额(credit caps)：见最高限额。

信用卡(credit card)：一种表明持卡人有一定信用额度的卡。它使得持卡人能够在预定的最高限额内进行购买活动，还能够提取现金；提供的信用可以在规定日期末一次付清，或者只偿付一部分，同时保留部分延期信用余额。任何延期的信用都要计息并且持卡人有时要交纳一笔年度费用。

信用卡公司(credit card company)：拥有特定信用卡商标的公司，并且也可能对利用卡服务的成员提供一系列的市场、处理或其他服务。

信用风险(credit risk/exposure)：交易中的订约方既不能在法定的时间内，也不能在法定时间以后的任何时间里全额结算其债务时所构成的风险。在价值交换系统中，信用风险通常定义包括重置成本风险和本金风险。

信用转帐(credit transfer)：为把资金转给受益人由其使用支配而发出的一笔或者一个序列的支付指令。支付指令及指令中所规定的资金都从付款人／发起者的开户行移交到受益人的开户行，这中间可能要通过若干家作为中介的其他银行，并有可能通过不止一个信用转帐系统来完成。

信用转帐系统(或直接转帐系统)(credit transfer system or giro system)：一种通过发送支付指令及指令中所记述的资金来实现信用转帐目的的系统。

跨国货币结算风险(或赫思塔特风险)(cross currency settlement risk or herstatt risk)：见本金风险。

保管(custody)：为其他人保存和管理证券和金融工具。

日间信用(或日间透支、日间风险、日内信用)(daylight credit or daylight overdraft, daylight exposure, intraday credit) ：一个营业日以内的信用；在日终结算的信用转帐系统中，假定接收了支付指令的机构接收了支付指令并且即使这家机构在营业日结算前不能收到最终资金也按指令的要求行动的话，它就在实事上心照不宣地提供了日间信贷。

借记最高限额(debit caps)：见最高限额。

借记卡(debit card)：使持卡人能够直接地从他在吸收存款的机构中开立的帐户对其购买活动进行付款的卡(有时还可能结合有其他的功能，例如具有提款卡或支票保付卡的功能)。

借记转帐系统(或借记托收系统)(debit transfer system or debit collection system)：它是一种资金转帐系统，其中由付款人生成的或者授权的借记托收指令从收款行转发到付款行并对付款人的帐户扣帐(借记)；例如，支票的转帐系统都是典型的借记转
帐系统。

丧失清偿能力(default)：出于银行倒闭而非技术或临时性的原因，造成不能根据其合同条款完成资金转帐或证券转让的行为。丧失清偿能力通常用来区分“失效交易”。

延迟借记卡(delayed debit card)：它是由银行发行的卡，持卡人可以在一定的已授权限额内赊支其帐户。它让持卡人能够进行购买活动而不需增加其帐户的信用，发生的债务总额必须在一个特定的日期结算。持卡人通常要交纳一笔年度费用。

删除(deletion)：一种机制，借此一些或全部发送给丧失清偿能力的参与者和由其提交的转帐指令都从结算进程中排除掉；在轧差机制中，其他参与者的双边、或多边轧差余额、或两者都要重新计算。参见解退。

交割(delivery)：证券或金融工具的最终转让。

付款交割方式(或dvp)(delivery versus payment system or dvp, delivery against payment)：在价值交换结算系统中的一种机制，确保他方在并且仅在他方的资产最终转让发生的同时发生本方的资产最终转让。资产可能包括货币资产(诸如外汇)、证券或其他金融工具。参见价值交换结算系统，最终性转帐。

无形化(dematerialisation)：消除实物证券或者代表证券所有权的契约文件以致证券只是以会计记录的形式存在。

直接借记(direct debit)：由收款人对付款人的银行帐户发起的事先由付款人授权借记。

直接参与者／会员(direct participant/member)：该术语通常指资金转帐或证券转让系统中直接与系统中的其他参与者交换转帐指令的参与者。在一些系统中，直接参与者也可代表间接参与者交换指令。根据不同的系统，直接参与者可能是也可能不是结算的参与者。在欧共体的文章中，这一名词具有特定的意思：它是指转帐系统中负责对结算机构(或对其他所有的参与者)结算其自己的、客户的以及所代表间接参与者的支付的参与者。参见参与者／会员，间接参与者／会员，结算参与者／会员。

清偿(discharge)：从合同或法律强加的法定债务中解脱出来。

个人汇票(draft)：由出票人提交给受票人的，向票据中指定的当事人或向出票人自己随时(即期个人汇票)或按规定时间(定期个人汇票)支付一定数额的书面指令。参见支票、银行汇票、汇票。

EFT POS：见销售点(pos)。

电子数据交换(elctronIC data interchange)(edi)：商业部门(在一些情况中也有公共行政机构)间对一系列信息类诸如订单、发票、海关报单、汇款通知书和支付的相关数据，以标准格式进行的电子交换。edi信息通过公用数据传输网络或者银行系统的渠道传送。edi发起的任何资金流动都反映在银行系统流动的支付指令中。edifact是联合国的一个机构，负责制定电子数据交换标准。

价值交换结算系统(exchange for value settlement system)：涉及资产诸如资金、外汇、证券和其他金融工具的交换系统，目的在于清偿结算债务。这些系统可能需要利用一个或多个资金转帐系统来偿清生成的支付债务；资产交换和支付系统间的联接方式可以是手工方式也可以是电子方式。参见付款交割方式。

面对面支付(face to face payment)：在同一个自然地点,付款人和收款人之间通过支付工具交换所实现的支付。

失效交易(failed transaction)：通常是由技术性和临时性原因造成的不能按时结算的交易(如资金转帐或证券转让)。

最终的(最终性)(final (finality) )：不可撤销的和无条件的。

最终结算(final settlement)：不可撤销的和无条件的结算。

最终性转帐(final transfer)：一种不可撤销的和无条件的转帐，它完成转帐债务的清偿。术语“交割”和“支付”都必然包含一次最终性转帐。

直接转帐系统(giro system)：见信用转帐系统。

死锁(gridlock)：在资金转帐或证券转让系统中，由于一些转帐指令不能执行(因为没有足够的资金或证券余额)，而产生阻碍其他参与者的大量其他指令完成的情况称为死锁。参见失效交易，排队，系统风险。

全额结算系统(gross settlement system)：一种按照系统的章程和办法，对转帐指令逐笔结算即没有轧差借记抵付贷记的转帐系统。

垫头(haircut)：证券的市场价值与其抵押价值之间的差额。在出现清理抵押品的要求时，资金的放款方通常采用垫头来保护他免受证券市场价值下降所带来的风险。参见保证金。

赫思塔特风险(herstatt risk)：见跨国货币结算风险。

家庭银行(home banking)：金融机构的客户可以利用电话、电视、终端和个人计算机作为与金融机构的计算机中心相连的电信终端获得的银行业务服务。

IC卡(IC card)：见芯片卡。

停止流通(immobilisation)：将上市证券和金融票据存放在中央证券托管机构，其目的在于促进簿记转帐。

打码器(imprinter)：在纸销售单据上再次产生持卡人姓名和帐号的机械设备。参见打码票据。

打码票据(imprinter voucher)：在卡交易中，客户姓名和卡号都打印在上面的一种需要客户签名的销售单据。参见打码器。

间接参与者／会员(indirect participant/member)：与存在分层协议的资金转帐或证券转让系统有关。间接参与者与直接参与者的区别在于他们无法完成一些由直接参与者完成的系统业务(比如转帐指令输入、结算)。所以，间接参与者需要直接参与者为他们服务，代表他们来进行这些业务。在欧共体的文章中，该术语特指转帐系统中只负责对其直接参与者来结算其提交给系统的支付指令的参与者。参见直接参与者／会员，结算参与者／会员，分层协议。

行间资金转帐系统(ifts)(interbank fund transfer system)：一种资金转帐系统，其中绝大多数(或全部)直接参与者都是金融机构，特别是银行和其他信用机构。

日内信用：见日间信用。

不可撤销的和无条件的转帐(irrevocable and unconditional transfer)：不能由转帐人撤销的并且是无条件执行的转帐。

发行商(issuer)：对证券或其他金融工具负有债务的机构。例如，有权发行和出售证券的公司和政府机构；批准信用证的银行。过去常指发行贷记或借记卡的金融机构。

大额资金转帐系统(large value funds transfer system)：系统的参与者对他们自己的帐户或代表其客户进行的大额资金转帐和高优先级资金转帐的行间资金转帐系统。尽管对所进行的支付没有最小的金额的规定，但通过这些系统的平均支付额都相当大。大额资金转帐系统有时也称批发资金转帐系统。

法定所有权(legal ownership)：证券或其他金融工具所有者的法律认定。

信用证(letter of credit)(l／c)：银行或者其他发行商根据特定的条件，代表客户对第三方进行支付的一种承诺。常用于国际贸易中，以便使得资金可在国外某地抵用。

流动性风险(liquidity risk)：订约方(或者结算系统的参与者)到期不能全部结算债务时所产生的风险。流动性风险并不是指订约方或者参与者没有偿付能力，因为他或许在以后的某一个不确定的时间能够结算其所必须清偿的债务。

损失分摊原则(或损失分摊协议)(loss sharing rule or loss sharing agreement)：当转帐系统或者清算所的参与者在一个或多个参与者不能清偿其债务时，对所产生的任何损失进行分摊的协议：协议规定了其生效后损失将如何在有关的参与者之间分摊。

磁性墨水字符识别(magnetIC ink character recognition) (micr)：一种使用特殊的micr机器可读字符的技术，通过它，文件(即支票、信用转帐、直接借记)可由micr设备自动读入以进行电子处理。参见光学字符识别(ocr)。

保证金(margin)：保证金至少有两种意思。在期货／商品市场中，保证金指期货清算系统为确保偿付所要求的良好信誉储蓄(货币、证券或其他金融工具)。在股票市场中，保证金指从经纪人借款购买股票的客户所存的货币总和。在经纪人那里的存款等于股票的购买值与股票的抵押品价值之差。参见垫头。

入市标价(marking to market)：利用当前的市场价格对证券或其他金融工具重新估价的做法。在一些情况中，未结的证券买卖合同都要入市标价，并且合同中有未实现亏损的一方在那时要对另一方的损失值转让同等价值的资金或证券。

撮合(或比较检查)(matching or comparison checking)：市场参与者在交易结算之前所进行的处理，目的在于确保它们同意交易的有关条款。

汇款单(money order)：用于对记名收款人汇款的工具。通常由没有金融机构支票帐户的人使用，用于支付帐单和对其他人或者公司转让资金。汇款单中存在3个法人：汇款人(付款人)、收款人和受票人。受票人通常是金融机构或邮政局。收款人可以兑现其汇款单也可提交给其开户行托收。