Question

怎样在Cobol里面复制一个文件？

怎样在Cobol里面复制一个文件？
例如我已经建立了一个文件叫做 mjk1,然后我想建立两个内容和mjk1一样的文件，分别叫做mjk2 mjk3，但是又不想重新在输入一篇mjk1的内容
请问我怎样才能利用mjk1复制出 2和3？

Answer 1

（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部分是程序中的外部装置名。

Answer 2

楼上的你们是搞IBM大机MAINFRAME的，先问清人家是什么平台下的COBOL好不，WINDOS下的FUJITSU COBOL还是UNIX下COBOL32？还是Z/OS,OS390下的COBOL
因为COBOL处理文件必须是一条一条处理，即读一条写一条。单这样COING太傻，可以用COBOL自带的SORT功能直接写出，具体去看看谭浩强的那书，在文件节指定SD，
不过你说的这种功能，我们在项目中一般会用其他语言更方便的实现，如JCL,BAT文件,SHELL等等

Answer 3

写个JCL然后建个新文件mjk2和mjk3,再repro mjk1的内容过去

Answer 4

cobol程序中涉及到的全部数据都要在数据部进行说明，一种方法可以直接把数据的定义写在数据部里，另一种方法可以把数据的定义写在另一个与源程序不同的文件中，在需要的时候可以用copy语法把这个文件包含到源文件的数据部里，经常把第二种方法简称copy句。