如何解决CICS向INTRDR提交JCL时返回'NO SPOOL'错误的问题

1 代码参数修正 #

你猜测的SPOOLOPEN参数配置错误是最常见的诱因，当前参数需要做以下调整：

• NODE参数填写错误：提交作业到本机JES内部读入器的场景下，NODE应该填LOCAL，你当前填写的IBMUSER是用户名而非节点名，会导致CICS找不到对应的SPOOL子系统
• 你填写的USERID='INTRDR'是正确的，仅需确认CICS区域用户有访问内部读入器的权限即可

除此之外你的代码还有一处会导致后续JCL提交失败的问题：你定义的JCL每行仅56字节，移动到80字节的WS-JCL-TXT后，末尾24字节会被填充无意义的低电平或空格，不符合JCL 80字节标准格式。建议将WS-JOB下的所有FILLER定义为PIC X(80)，SPOOLWRITE时指定LENGTH(80)参数。

修正后的核心代码示例：

01  WS-SPOOL-OPTIONS.
    05 WS-TOKEN           PIC X(8) VALUE LOW-VALUES.
    05 WS-NODE            PIC X(8) VALUE 'LOCAL'.
    05 WS-USERID          PIC X(8) VALUE 'INTRDR'.
    05 WS-CLASS           PIC X    VALUE 'A'.
    05 WS-RESP            PIC S9(8) COMP.
    05 WS-RESP2           PIC S9(8) COMP.

0300-SPOOL-OPEN.
    EXEC CICS SPOOLOPEN OUTPUT
              TOKEN(WS-TOKEN)
              USERID(WS-USERID)
              NODE(WS-NODE)
              CLASS(WS-CLASS)
              RESP(WS-RESP)
              RESP2(WS-RESP2)
    END-EXEC.

0400-SPOOL-WRITE.
    EXEC CICS SPOOLWRITE
              TOKEN (WS-TOKEN)
              FROM  (WS-JCL-TXT)
              LENGTH(80)
              RESP  (WS-RESP)
              RESP2 (WS-RESP2)
    END-EXEC.

2 系统侧配置排查 #

如果参数修正后仍返回NOSPOOL，按以下顺序排查CICS和JES配置：

• 确认CICS区域启动参数配置了SPOOL=YES，如果设置为SPOOL=NO会全局禁用所有SPOOL接口，直接返回NOSPOOL
• 确认当前JES子系统处于正常运行状态，未进入暂停或关闭流程
• 确认CICS区域处于正常运行状态，未处于静默关闭过程中
• 确认外部安全管理器（如RACF）已经给CICS区域用户开放了JESSPOOL类资源的访问权限，以及提交作业到内部读入器的权限

3 详细错误定位 #

你可以在SPOOLOPEN执行后增加RESP2的输出逻辑，不同的RESP2值对应更具体的错误原因：

• RESP2=1：CICS侧JES接口未启用
• RESP2=2：JES子系统不可用
• RESP2=3：CICS正在关闭过程中

内容的提问来源于stack exchange，提问作者Roger Strycova