将数据从sysin jcl传递到PL/I程序

Question

我需要将数据从SYSIN JCL传递到PL/I程序。下面是我来自JCL和PL/I程序的代码，没有传递值。有人能帮忙吗？

//SYSIN DD *
12345

PROG: PROC(INPARM) OPTIONS(MAIN REENTRANT) REORDER;
DCL INPARM            CHAR(5) VARYING;

PUT SKIP LIST('INPARAM - '|| INPARM);

Answer 1

您显示的PL/1代码不读取任何文件，它只使用PARM数据。我想mainframe的意思是IBM /OS？在z/OS上，PARM数据通过EXEC PGM=xyz,PARM=传递，该数据最多可达100个字符。因此，将INPARM变量重新定义为CHAR(100) VARYING。

如图所示，SYSIN是一个数据集定义；程序需要定义、打开和读取带有ddname (文件名) SYSIN的数据集。您还需要定义数据结束标志，并定义在读取SYSIN中的所有数据时触发的ON条件。

下面是一些代码片段：

DCL SYSIN FILE EXTERNAL RECORD INPUT ENVIRONMENT(FB RECSIZE(80));
DCL INPUT_RECORD CHAR(80);
DCL EOF_SYSIN BIT(1) INIT('0'B);

ON ENDFILE(SYSIN) BEGIN;
    EOF_SYSIN = '1'B;
    END;

OPEN FILE(SYSIN);

DO WHILE (¬EOF);
    ... process the record just read ...
    READ FILE(SYSIN) INTO(INPUT_RECORD);
    END;

CLOSE FILE(SYSIN);