Golgappa.net | Golgappa.org | BagIndia.net | BodyIndia.Com | CabIndia.net | CarsBikes.net | CarsBikes.org | CashIndia.net | ConsumerIndia.net | CookingIndia.net | DataIndia.net | DealIndia.net | EmailIndia.net | FirstTablet.com | FirstTourist.com | ForsaleIndia.net | IndiaBody.Com | IndiaCab.net | IndiaCash.net | IndiaModel.net | KidForum.net | OfficeIndia.net | PaysIndia.com | RestaurantIndia.net | RestaurantsIndia.net | SaleForum.net | SellForum.net | SoldIndia.com | StarIndia.net | TomatoCab.com | TomatoCabs.com | TownIndia.com
Interested to Buy Any Domain ? << Click Here >> for more details...

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

I just know the Panvalet dataset name, i would like to search all the members of that dataset for particular keyword through Rexx. how to achive? please suggest. Is it possible to open panvalet member in browse mode using Rexx? Your help would be appreciated very much. Thanks in advance.

5548


what would I use uni-rexx for?

944


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?

897


how to access data held on the jes spool?

1058


how to access data in control blocks such as jobname?

950


how to pass parms to ispf edit macro?

1093


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?

938


how long does the install of oorexx take?

1001


How to find or access the current level of a gdg?

823


How to code the db2 queries using rexx, and also plz send some link and examples using db2 queries?

915


Can anyone provide me the source code for LOC(lines of code) counter written in REXX language which can run on IBM mainframe z/OS V1R4. The LOC counter should be able to count the comments,lines of code,blank lines in a COBOL program and JCL's

2661


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.)

3204


Is it possible to combine uni-rexx with a compiled language in any application? What applications interfaces are there?

921


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

3045


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.

2304