cobol程序里调用shell

在 COBOL 程序中调用 Shell，可以使用 `CALL` 命令和 Shell 命令来实现。以下是一个简单的示例程序：

IDENTIFICATION DIVISION.
PROGRAM-ID. CALL-SHELL.
ENVIRONMENT DIVISION.
DATA DIVISION.
WORKING-STORAGE SECTION.
01  CMD-ARG.
    05  ARG-LENGTH     PIC S9(4) COMP.
    05  ARG-STRING     PIC X(100).
PROCEDURE DIVISION.
MAIN-LOGIC SECTION.
    MOVE LENGTH OF 'ls -l' TO ARG-LENGTH
    MOVE 'ls -l' TO ARG-STRING
    CALL 'SYSTEM' USING CMD-ARG
    STOP RUN.

在这个示例中，我们首先定义了一个 `CMD-ARG` 变量，用于存储 Shell 命令和参数。然后，我们将 `ls -l` 命令和参数存储在 `CMD-ARG` 变量中，并使用 `CALL 'SYSTEM' USING CMD-ARG` 命令来调用 Shell。

请注意，这个示例程序可能需要根据你的特定的操作系统和 Shell 命令做出一些调整。