STRING DELIMITED BY SIZE

本文介绍了一个使用COBOL编程语言进行字符串连接的示例。通过使用DELIMITED BY SIZE子句,该程序将多个字符串字段组合成一个完整的字符串。示例展示了如何将标题、名字和姓氏字段拼接成一个全名字段。

摘要生成于 C知道 ,由 DeepSeek-R1 满血版支持, 前往体验 >

The following COBOL program depicts the use of 
STRING DELIMITED BY SIZE     
 
 
       IDENTIFICATION DIVISION.
       PROGRAM-ID. PGM040.
       AUTHOR. MAINFRAMEWIZARD.
       DATA DIVISION.
       WORKING-STORAGE SECTION.
       01 WS-TITLE      PIC X(3)  VALUE SPACES.
       01 WS-FIRST-NAME PIC X(20) VALUE SPACES.
       01 WS-LAST-NAME  PIC X(20) VALUE SPACES.
       01 WS-FULL-NAME  PIC X(43) VALUE SPACES.
       PROCEDURE DIVISION.
       10000-MAIN-PARA.
             MOVE 'MR#'               TO WS-TITLE
             MOVE 'MAINFRAME#WIZARD#' TO WS-FIRST-NAME
             MOVE 'COM#'              TO WS-LAST-NAME
             STRING WS-TITLE      DELIMITED BY SIZE
                    WS-FIRST-NAME DELIMITED BY SIZE
                    WS-LAST-NAME  DELIMITED BY SIZE
                    INTO WS-FULL-NAME
             DISPLAY 'RESULTANT STRING IS  = '
               WS-FULL-NAME
             STOP RUN.
 
 
 
The output of the program is 
 
RESULTANT STRING IS  = MR#MAINFRAME#WIZARD#   COM#                                                                       

转载于:https://www.cnblogs.com/kakaisgood/p/10523389.html

评论
添加红包

请填写红包祝福语或标题

红包个数最小为10个

红包金额最低5元

当前余额3.43前往充值 >
需支付:10.00
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明:

1.余额是钱包充值的虚拟货币,按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载,可以购买VIP、付费专栏及课程。

余额充值