AS400上第一个COBOL程序-HELLO WORLD

AS400上的COBOL有两个版本COBOL/400和ILE COBOL，个人从字面上理解COBOL/400对应的是早期版本，类似RPG/400(即RPG III)；而已ILE COBOL则是最新版本的COBOL.

现在保险业找400 COBOL developer也不知道是做COBOL/400，还是做ILE COBOL. 可能前者的可能性比较大吧。

我的自学笔记都按ILE COBOL的规则来吧。。。

1.ILE COBOL默认存放的Source PF叫【QCBLLESRC】

2.ILE COBOL默认的Type是【CBLLE】

第一个ILE COBOL程序如下：

这个COBOL是最简单的程序

 FMT CB ......-A+++B++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++Pgm-id++

        *************** Beginning of data **********************************************

0001.00        IDENTIFICATION DIVISION.                                                

0002.00         PROGRAM-ID. CBL01.                                                      

0003.00                                                                                

0004.00        ENVIRONMENT DIVISION.                                                    

0005.00        DATA DIVISION.                                                          

0006.00        PROCEDURE DIVISION.                                                      

0007.00        S.  DISPLAY 'HELLO WORLD.'                                              

0008.00            STOP RUN.                                                            

        ****************** End of data *************************************************

                                                                                       

                                                                                       

                                                                                       

                                                                                       

                          Prompt type . . .   CB      Sequence number . . .  0007.00    

                                                                                       

                          Continuation                                                  

                                                                                       

                          Area-A      Area-B                                            

                           S.         DISPLAY 'HELLO WORLD.'                            

                                                                                       

 F3=Exit   F4=Prompt   F5=Refresh          F11=Previous record                          

说明：

1. 【RPOGRAM-ID.】必不可少。

2. 注意下面的prompt的格式，很简单吧，比RPG简单的多吧。。。

3. 结果如下，类似于RPG的结果，不过不显示‘DSPLY’字样而已

图略

不是所有的AS/400都能顺利编译并生成ILE COBOL程序的，我们项目提供的机器就只能写COBOL，不能编译，用option 14时没任何反应。 不过好在公司提供的DEMO机就可以。