代码之家 › 专栏 › 技术社区 › Klaus Schulz

在z/os上使用REXX查找JOBID

rexx zos batch-processing

Klaus Schulz · 技术社区 · 11 年前

有人能给我一个提示吗职务我的 瑞克斯牌手表 -通过 JCL公司 ?

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

提前非常感谢!

1 回复 | 直到 11 年前

NealB 11 年前

尝试以下操作:

/* 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

推荐文章

ulisses · 如何在RunBaseBarch类中使用InMemory表参数?

7 年前

Nick Fernandez · aws批处理作业无法运行,作业定义的内存要求很高

7 年前

Kiddo · 合并多个文本文件,但跳过每个文件的第一行和最后一行

7 年前

static_rtti · 有没有办法在AWS批处理作业上设置walltime?

7 年前

Reza Shirin Nezhad · Spring Batch JpaItemWriter是否有状态?

7 年前

Francisco Durdin Garcia · 在Firestore数据库中一次执行500多个操作

7 年前

user7039042 · 键入内容时意外的批处理程序

7 年前

Souparno Adhikary · PBS通信错误:节点无法通信

7 年前

RyanUK · 为什么SQL作业生成的文本文件的大小是手动创建的文本文件的两倍?

7 年前

Shravan Vishwanathan · 批量重命名具有不同文本位置的文件

7 年前