COBOL入门之：HELLO WORLD分步详解

首先介绍一下如何创建数据集。

1. 在ISPF面板的“Option"命令行上输入"3.2"。

 

2.在"Data Set Utility”面板的"Option”命令行上输入"A”， 并照下图填写，创建一个数据集：BENSON1.COBOL.LIB(其中BENSON1为自己的USERID)。

3.按下图填写各项属性，按下回车后右上角出现"Data set allocated"。

 

4. 按"F3"退回到上一菜单，命令行输入"3.4"。

  

5.在"Dsname Level"上输入你的USERID。 

 

6.你的DATA SET已经建立好了。

7. 因为建立的是一个分区文件，所以我们需要在里面创建MEMBER，类似WIN里面先建立一个文件夹，然后在建立一个记事本文件
    命令行输入"START 2” 另开一个分屏。照下图填写。

8. 成功创建MEMBER：HELLO，以后的程序都在这里写了。

我们已经建立好了data set和member后便可输入程序了。

9.因为COBOL程序的写法是有区域的，在"Command ===>"下的列号区输入"COLS"，按回车，使出现列号

10.列号区输入"I6"，意思是插入6行，当然，I或I1就是插入一行。

11.输入下列源代码:

       IDENTIFICATION                  DIVISION.                       
       PROGRAM-ID.                     HELLO.                         
       ENVIRONMENT                     DIVISION.                       
       DATA                            DIVISION.                       
       PROCEDURE                       DIVISION.                       
           DISPLAY  'HELLO WORLD!!!'.                                  
           STOP RUN.

12. 因为要生成module，所以需要用上述方法（步骤1~3）建立一个Record format为U的DATA SET:BENSON1.LOAD.LIB存放，步骤如下列图所示：

13.再用上述方法建立一个Record format为FB的DATA SET--"BENSON.JCL.LIB"

14.在"ENSON.JCL.LIB”创建一个名为"HELLO”的member，并输入以下源代码（注意将BENSON1替换成你自己的USERID）。在Command ===> 中输入"SUB"提交。

//BENSON1A JOB CLASS=A,MSGCLASS=H,MSGLEVEL=(1,1),                       
//             NOTIFY=&SYSUID                                          
//STEP010  EXEC PROC=IGYWCL                                            
//COBOL.SYSIN DD DSN=BENSON1.COBOL.LIB(HELLO),DISP=SHR                    
//LKED.SYSLMOD DD DSN=BENSON1.LOAD.LIB(HELLO),DISP=SHR                    
//STEP020  EXEC PGM=HELLO                                             
//STEPLIB  DD DSN=BENSON1.LOAD.LIB(HELLO),DISP=SHR                        
//SYSOUT   DD SYSOUT=*                                                 
//  

返回MAXCC=0，成功！

15.用TSO SDSF H去查看LOG

16.在JOBNAME前打上一个"?"

17.在SYSOUT前打"S"查看log

18.可以看到结果了！

转载于:https://www.cnblogs.com/Cobol/archive/2009/06/08/1498816.html