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
can I redistribute oorexx freely with commercial software?
What are the various error conditions seen in rexx?
How to code the db2 queries using rexx?
Can I cleanly uninstall oorexx?
How to code the db2 queries using rexx, and also plz send some link and examples using db2 queries?
How to run my rexx exec?
What are various loop types supported by rexx?
When will a port of ooRexx to "XYZ" be available?
how to access data in control blocks such as jobname?
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.
is there an aix version of oorexx?
have you already used rexx - even for limited purposes? Do you need to maintain a high level of productivity during your transition to unix?
I want to open particular list of members inside pds.Let me know whether below code will work.if not tell me how it works INPUT='DDM.DATASET(AAA*)' X = OUTTRAP(MEMS.)
can oorexx run normal rexx programs?
for which platforms is uni-rexx available?