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.

5499


What are the functions available in rexx?

875


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

1022


can I redistribute oorexx freely with commercial software?

986


Can I cleanly uninstall oorexx?

904


can I port my existing applications from the mainframe or os/2? Will there be extensive changes required to do this?

916


how long does the install of oorexx take?

939


can oorexx run ibm object rexx programs?

950


is there an aix version of oorexx?

920


have you already used rexx - even for limited purposes? Do you need to maintain a high level of productivity during your transition to unix?

906


how to access data in control blocks such as jobname?

903


What is the use of uni-rexx?

873


can oorexx run normal rexx programs?

961


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

929


How to code the db2 queries using rexx?

919