cobol if else控制示例代码

代码语言:cobol

所属分类:其他

代码描述:cobol if else控制示例代码

代码标签: 控制 示例

下面为部分代码预览,完整代码请点击下载或在bfwstudio webide中打开

HELLO
        IDENTIFICATION DIVISION.
        PROGRAM-ID. HELLO.
        
        DATA DIVISION.
           WORKING-STORAGE SECTION.
           01 WS-NUM1 PIC 9(9).
           01 WS-NUM2 PIC 9(9).
           01 WS-NUM3 PIC 9(5).
           01 WS-NUM4 PIC 9(6).
        
        PROCEDURE DIVISION.
           A000-FIRST-PARA.
           MOVE 25 TO WS-NUM1 WS-NUM3.
           MOVE 15 TO WS-NUM2 WS-NUM4.
           
           IF .........完整代码请登录后点击上方下载按钮下载查看

网友评论0