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 */

I am new to rexx db2 ,can anyone help me by expalinin how to code the db2 queries using rexx,and also plz send some link and examples using db2 queries.

3 Answers  

---

How to code the db2 queries using rexx?

0 Answers  

---

Can I cleanly uninstall oorexx?

0 Answers   IBM,

---

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 , please

1 Answers  

---

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

0 Answers  

---

can oorexx run ibm object rexx programs?

0 Answers   IBM,

---

what is uni-rexx?

0 Answers   IBM,

---

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.

1 Answers  

---

can I redistribute oorexx freely with commercial software?

0 Answers   IBM,

---

What do unusual return codes such as -3 and 0196 mean?

2 Answers  

---

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?

0 Answers  

---

I am tryin to select one records(SQL) using Rexx.Here is the code ADDRESS DSNREXX "EXECSQL FETCH C1 USING DESCRIPTOR :TBSQLDA" IF SQLCODE = 0 THEN DO LINE = '' DO I = 1 TO TBSQLDA.SQLD LINE = LINE TBSQLDA.I.SQLDATA END I SAY LINE END ADDRESS DSNREXX "EXECSQL CLOSE C1" ADDRESS DSNREXX 'DISCONNECT' i am getting the following errors and also i dont know wr to see the ouput.Can anyone please hlep me in solving this? 28 +++ ADDRESS DSNREXX 'DISCONNECT' Error running DB2REXX, line 28: Incomplete DO/SELECT/IF

2 Answers   Syntel,

---