JCL里 怎么调用Cobol程序？

调用COBOL程序很简单

//TEST01 EXEC=XXXXXXX(程序名），PARM=***

//SYSPRINT DD SYSOUT=*

......

就可以了

如果有参数的，就在后面加。parm＝。在程序中使用LINKAGE SECTION调用

或者是程序中使用ACCEPT的话，就在程序中加

//SYSIN DD *

1234567890

（1）首先，cobol程序可以跳开JCL，直接在cobol程序中直接指定外部文件（当然、大型开发没有这么做的），例：

环境（ENVIRONMENT）部、INPUT-OUTPUT节、FILE-CONTROL段：

ENVIRONMENT DIVISION.

INPUT-OUTPUT SECTION.

FILE-CONTROL.

SELECT FILE001

ASSIGN TO 'c:\1.txt'

ORGANIZATION IS LINE SEQUENTIAL

FILE STATUS IS .......(后面的内容省略)

其中“FILE001”为文件标识（也就是FD定义中，和过程部OPEN/READ/CLOSE语句中的文件名）.

ASSIGN TO 子句直接指定文件，不需要JCL。

（2）如果想通过JCL指定，则程序里面，ASSIGN TO 子句如下（其他不用动）：

ASSIGN TO SYS100

其中“SYS100”被称为外部装置名（或者称之为“DD名”），

这样，程序内部没有直接指定外部文件的位置和名称，

只是将其和外部装置名SYS100联系到了一起。JCL中指定如下：

SET CBL_SYS100=c:\1.txt

注意，JCL里面（也就是环境变数设定时）环境变数名是CBL_XXXX的形式，

XXX部分是程序中的外部装置名。

---