batch-processing - z/os で REXX を使用して JOBID を見つける

Question

JCL経由で送信されたREXXスクリプトの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