COBOL提供了STRING语句来拼接字符串。语法格式如下: cobol STRING string1 [DELIMITED BY delimiter] string2 [DELIMITED BY delimiter] ... INTO resultString [WITH POINTER pointer] [ON OVERFLOW perform-procedure] [NOT ON OVERFLOW perform-procedure]. string1, string2, ... 是要拼接的字符串。 DELIMITE...
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]...
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和...
在进行年度计息时，为了实现各种复杂的运算工作，一般采用COBOL语言来实现各种运算。而采用COBOL语言读取X(3)型数据时，读出的是字符型数据，不能直接进行运算，必须转换为COBOL数据类型的数据后才能进行相应处理。如刚才的X‘010315’，需要转换为内部十进制数据X‘0010315C’。本文介绍一种用COBOL语言实现字符型X(3)...
Example 7: String and Unstring with Pointer: 05 WW-NAME-DTLS PIC X(24) VALUE 'MAHENDER REDDY HYDERABAD' 05 WW-FIRST-NAME PIC X(25) VALUE SPACES. 05 WW-LAST-NAME PIC X(25) VALUE SPACES. 05 WW-CITY PIC X(25) VALUE SPACES. ...
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. ...
STRING CSTR DELIMITED BY LOW-VALUE INTO COBSTR. 即可,还不用担心形参实参字符串长度一样的问题。 对于字符串字面量,可以在串字面量的前面加入 z 前缀,使之为 Null-terminated string MOVE z"哈哈" TO XXX. 代码示例: C void echoconst char *const str) { printf("echo: %s.\n" str)...
<xsd:restriction base="xsd:string"> <xsd:length value="8"/> </xsd:restriction> </xsd:simpleType> </xsd:element> </xsd:sequence> </xsd:complexType> </xsd:element> </xsd:schema> </types> <message name="exampleMessage"> <part element="tns:applicationData" name="messagePart"/> ...
问用C语言实现的Cobol接口EN#include "stdafx.h" #include <stdio.h> #include<Windows.h> int main...
DELIMITED BY 和STRING 中的作用一样。表示将AAA 中到B 为止的字符取出。如果有OR,则表示到B 或C 字符为止的字符取出。如果有ALL,则如果几个相同 的B 在一起,则认为是一个B。 DELIMITER IN 将B 放入D,知道是哪个字符为分隔符。 COUNT IN 实际复制到C 中的字符数放入E 中。 WITH POINTER 和STRIGN...