如何在JCL/assembler for QSAM put-locate中正确声明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宏扩展到的某些代码中，并且在您的程序集清单中没有任何消息表明"no active using for..."，那么寄存器1指向哪里？由于您使用的是定位模式，因此寄存器1必须指向您的数据。

顺便说一句，我通常不会在程序的DCB宏中看到块大小编码。大多数商店都使用系统确定的块大小，因此您在程序或JCL中都看不到它。如果你更愿意编码的话，它不会有任何伤害。