如何在 QSAM put-locate 的 JCL/汇编器中正确声明 DCB

Question

我正在尝试编写一个程序，使用 370/汇编器和 QSAM 将一些数据写入临时数据集。执行 put 时得到 soc01。

我在汇编代码中的 DCB 声明如下所示：

TEMPFILE DCB   DDNAME=TEMP,                                            X
               DEVD=DA,                                                X
               DSORG=PS,                                               X
               MACRF=PL,GL,                                            X
               RECFM=FBA,                                              X
               LRECL=25,                                               X
               BLKSIZE=3000,                                           X
               EODAD=EOF3

在 JCL 中，声明如下所示：

//TEMP     DD DSN=&&TEMP,UNIT=PUB,DISP=(MOD,KEEP,DELETE),
//            DCB=(LRECL=25,BLKSIZE=3000)

put 命令如下所示：

         PUT    TEMPFILE                                                
         MVC    0(25,1),HIGHSALE

我怀疑问题出在我的 JCL 声明中，但我没有找到任何东西。

Answer 1

您将获得 S0C4，即，您正在尝试访问不属于您的存储。假设您已经确定（通过 PSW 或通过其他方式）异常终止指令位于您的 PUT 宏扩展为，并且您的程序集列表中没有消息指示“没有活动使用for...”，寄存器1指向哪里？由于您使用的是定位模式，因此寄存器 1 必须指向您的数据。

顺便说一句，我通常不会在程序中看到用 DCB 宏编码的块大小。大多数商店都使用系统确定的块大小，因此您永远不会在程序或 JCL 中看到它。如果你更舒服地编码它并没有什么坏处。