COBOL过程部(PROCEDURE DIVISION) - Cobol示例代码™

COBOL过程部(PROCEDURE DIVISION)

不拉小（这个家伙很懒，什么都没有写。）所在分类：Cobol示例代码

2018-07-30 2222 0

IDENTIFICATION DIVISION.
PROGRAM-ID. HELLO.

DATA DIVISION.
   WORKING-STORAGE SECTION.
   01 WS-NAME PIC A(30).
   01 WS-ID PIC 9(5) VALUE '12345'.

PROCEDURE DIVISION.
   A000-FIRST-PARA.
   DISPLAY 'Hello World'.
   MOVE 'yiibai' TO WS-NAME.
   DISPLAY "My name is : "WS-NAME.
   DISPLAY "My ID is : "WS-ID.
STOP RUN.