Answers

Question and Answer:

  Home  IBM REXX

⟩ How to access data in control blocks such as jobname?

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

 146 views

More Questions for you: