COBOL提供了STRING语句来拼接字符串。语法格式如下: cobol STRING string1 [DELIMITED BY delimiter] string2 [DELIMITED BY delimiter] ... INTO resultString [WITH POINTER pointer] [ON OVERFLOW perform-procedure] [NOT ON OVERFLOW
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]...
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]...
to get the CITY in to a separate field, move the starting position of string in input filed to a counter and use that in Unstring as below MOVE 16 TO WW-PNTR2 UNSTRING WW-NAME-DTLS DELIMITED BY SPACE INTO WW-CITY WITH POINTER WW-PNTR2 END-UNSTRING If we code as below, First n...
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] ...
在进行年度计息时，为了实现各种复杂的运算工作，一般采用COBOL语言来实现各种运算。而采用COBOL语言读取X(3)型数据时，读出的是字符型数据，不能直接进行运算，必须转换为COBOL数据类型的数据后才能进行相应处理。如刚才的X‘010315’，需要转换为内部十进制数据X‘0010315C’。本文介绍一种用COBOL语言实现字符型X(3)...
<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"/> ...
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)...
问用C语言实现的Cobol接口EN#include "stdafx.h" #include <stdio.h> #include<Windows.h> int main...
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,如果...