Cobol语言中如何让代码暂停几秒继续运行

那这几秒一正宴裤定是在做举简某种处祥祥理了，cobol语言没听说过可以让代码暂停的方法。你可以让这些处理在运行结束后给程序返回一个code，代码里对返回code进行判定，然后决定是否要继续执行。

首先大概讲一下COBOL的一般批量文件出力的思路。

在过程部里头 我们一般会写 初期处理 满足一个条件为止运行 主处理 终了处理。

preforum初期处理.

preforum until FLG-X = "OFF"

PREFORUM 主处理

end PERFORUM.

preforum终了处理.

这里初期处理 终了键早处理 一般 里头不会有循环 *** 作 除非 特殊业务。比如读清亮稿取文件里头 要从第几个数据开始进行处理的时候 就需要用循环读数据。

在初期处理 一般做的就是整个程序只要做一次的 *** 作 里头就有 打开文件。

终了处理里头一般做的也是只做一次的 *** 作 比如关闭文件。

所以文件只要一次 开 一次关就可以了。

至于文件里头的数据的话 一般在初期处理里头 读取第一条 read 语句（写成section）。

然后在主处理里头 出力文件 也就是往外写数据 write 语句，然后再读取第二条 （调用初期处答孝理的读数据的section）

调用COBOL程序很简单

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

//SYSPRINT DD SYSOUT=*

......

就可以了

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

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

/档孝磨/SYSIN DD *

1234567890

---