在z / os上使用REXX查找JOBID

Question

有人可以告诉我如何通过 JCL 提交 REXX -Script的 JOBID ？

例如，

JOBNAME没问题，但到目前为止我还没有在任何ControlBlock中找到对JOBID的引用。

非常感谢你！

Answer 1

尝试以下方法：

/* rexx */
/*                                                                    */
/* Get Jobname and Jobnumber by threading through MVS control blocks  */
/* Note: PSA begins at address zero, address of TCB is at offset 21C  */
/*                                                                    */
TCB = C2D(STORAGE(021C,4))            /* TCB address at '21C'X of PSA */
TIOT = C2D(STORAGE(D2X(TCB + 12), 4))   /* TIOT address at TCB + 12   */
JOBNAME = STORAGE(D2X(TIOT), 8)         /* Jobname at TIOT + 0        */
JSCB = C2D(STORAGE(D2X(TCB  + 180), 4)) /* JSCB address at TCB + 180  */
SSIB = C2D(STORAGE(D2X(JSCB + 316), 4)) /* SSIB address at JSCB + 316 */
JOBNUMBER = STORAGE(D2X(SSIB + 12), 8)  /* Job number at SSIB + 12    */
say 'JobName:' JOBNAME 'JobNumber:' JOBNUMBER
RETURN