Interested to Buy Any Domain ? << Click Here >> for more details...
How do I access data in control blocks such as jobname?
- 1 Answers
- 8216 Views
- I also Faced
- E-Mail Answers
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
for which platforms is uni-rexx available?
can I port my existing applications from the mainframe or os/2? Will there be extensive changes required to do this?
What are the functions available in rexx?
what is uni-rexx?
When will a port of ooRexx to "XYZ" be available?
how to access data in control blocks such as jobname?
What is the use of uni-rexx?
i want new rexx tool which will perform jcl chk without submitting it
How to find or access the current level of a gdg?
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
What are various loop types supported by rexx?
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?
can oorexx run ibm object rexx programs?
Suppose I want to code a rexx program in order to get the inputfile and output files of jcl. I want code snippet or the coding for this?
I want to set position for a particular text in a certain position in several of my cics maps.Please provide me with a solution. Ex: If "F1-Help" has to be set to pos(4,27) always in all the maps within a PDS.
