How to access data in control blocks such as jobname?
Submitted by: AdministratorUse the Storage() function to extract the data from control
blocks.
/* REXX Get taskname from TCB */
cvt = storage(10,4) /* FLCCVT-PSA data area */
tcbp = storage(d2x(c2d(cvt)),4) /* CVTTCBP */
tcb = storage(d2x(c2d(tcbp)+4),4)
tiot = storage(d2x(c2d(tcb)+12),4) /* TCBTIO */
say strip(storage(d2x(c2d(tiot)),8)) /* TIOCNJOB */
Submitted by: Administrator
blocks.
/* REXX Get taskname from TCB */
cvt = storage(10,4) /* FLCCVT-PSA data area */
tcbp = storage(d2x(c2d(cvt)),4) /* CVTTCBP */
tcb = storage(d2x(c2d(tcbp)+4),4)
tiot = storage(d2x(c2d(tcb)+12),4) /* TCBTIO */
say strip(storage(d2x(c2d(tiot)),8)) /* TIOCNJOB */
Submitted by: Administrator
Read Online IBM REXX Job Interview Questions And Answers
Top IBM REXX Questions
☺ | How to find or access the current level of a GDG? |
☺ | How to pass parms to ISPF Edit macro? |
☺ | How to Run My Rexx Exec? |
☺ | How to access data in control blocks such as jobname? |
Top Mainframe Technical Categories
☺ | IBM MainFrame Interview Questions. |
☺ | IBM AS400 Interview Questions. |
☺ | JCL Interview Questions. |
☺ | IMS DB Interview Questions. |
☺ | CICS Interview Questions. |