How do I access data in control blocks such as jobname?
- 1 Answers
- 7163 Views
- I also Faced
- E-Mail Answers
Answer / 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 |
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.
How do I find or access the current level of a GDG?
I have one input file and some 40 tables, I want to read input file and compare the input file value with the table value if it is present then we have to update with new value, this should be repeated for all 40 tables and we are reading only one input file, for this is there any REXX program or job or routine to accomplish above requirement. components of the requirements; 1. One input file 2. 40 DB2 tables 3. we have to read from the input file and compare with table value, if present then update with new value (this should be recurssive for all 40 tables for every record of input file). 4. quick help is appreciated.
I want to remove a duplicates form a given input field using rexx program. please Any one help me out to solve this ... Thanks in Advance.
What does the sample library of uni-rexx consist of?
can I port my existing applications from the mainframe or os/2? Will there be extensive changes required to do this?
I want to code a REXX Program in order to load many tables in a database simultaneously in a batch fashion. Currently batch codes ar available in which only one job is submitted at a time and this loads only one table. My requirement is that many tables should be loaded at a time when one Job is submitted and can this be done using REXX Tool???
What are the functions available in rexx?
How do I pass parms to my ISPF Edit macro
What do unusual return codes such as -3 and 0196 mean?
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?
COBOL 
