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. |
