STRING ws-string1 DELIMITED BY SPACE ws-string2 DELIMITED BY SIZE INTO ws-destination-string WITH POINTER ws-count ON OVERFLOW DISPLAY message1 NOT ON OVERFLOW DISPLAY message2 END-STRING. 以下是使用参数的详细信息 - ws-string1和ws-string2:要连接的输入字符串 ws-string:输出字符串 ws-count:用...
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...
WS-STRING : WelcomeToTutorialspoint WS-COUNT : 25 复制 Unstring Unstring动词用于将一个字符串拆分为多个子字符串。Delimited By 子句是强制性的。 语法 以下是 Unstring 动词的语法 - UNSTRING ws-string DELIMITED BY SPACE INTO ws-str1, ws-str2 WITH POINTER ws-count ON OVERFLOW DISPLAY messa...
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)...
WS-STRING : WelcomeToTutorialspoint WS-COUNT : 25 Unstring Unstring 动词用于将一个字符串拆分为多个子字符串。 Delimited By 子句是强制性的。 语法 以下是 Unstring 动词的语法 − UNSTRING ws-string DELIMITED BY SPACE INTO ws-str1, ws-str2 WITH POINTER ws-count ON OVERFLOW DISPLAY message NOT...
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] ...
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. ...
Unstring verb用于将一个字符串拆分为多个子字符串.限定条款是强制性的. 语法 以下是Unstring verb : $的语法b $ b UNSTRING ws-string DELIMITED BY SPACEINTO ws-str1, ws-str2WITH POINTER ws-countON OVERFLOW DISPLAY messageNOT ON OVERFLOW DISPLAY messageEND-UNST...
??? 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。