cobol中accept的用法和循环？

Question

cobol中accept的用法和循环

Answer 1

和没有ACCEPT语句的cobol代码的编译一样。
如果要从JCL传一个值的话，在执行程序的JCL里加语句。
//SYSIN DD *
XXXXXX
/*
程序里用ACCEPT 语句接受就行。