How do I access data in control blocks such as jobname?

Answer Posted / shakila vinayagam

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

Is This Answer Correct ?    1 Yes 1 No



Post New Answer       View All Answers


Please Help Members By Posting Answers For Below Questions

does uni-rexx give me any capabilities designed specifically for the unix environment?

591


is oorexx compatible with ibm object rexx?

621


What are various loop types supported by rexx?

537


I executed one job and I forget to save the final JCL. But took an XDC from SPOOL. Now I want to recover the JCL from XDC dataset. Is there any process to do this?. (Manually it takes a lot of time). Is there

2673


why is there no os/2 (ecs) port of oorexx?

584






can oorexx run normal rexx programs?

586


What is the difference between ooRexx and IBM's Object REXX for Windows?

543


Can I cleanly uninstall oorexx?

578


How to code the db2 queries using rexx?

582


Is it possible to port existing applications from the mainframe or os/2? Are there major changes required to do this?

534


If I have limited experience with Rexx or it's been a long time since I've used it, what kind of help is available to get me started?

546


What does the sample library of uni-rexx consist of?

603


i want new rexx tool which will perform jcl chk without submitting it

1598


Can I combine uni-REXX with a compiled language in my application? What application programming interfaces are available? For example, can I share variables between uni-REXX and a compiled language?

539


how to access data held on the jes spool?

659