Answer / marlo

I've done this before and here's part of my code!!! You do
the research!!!

ADDRESS TSO "SUBCOM DSNREXX"
IF RC <> 0 THEN
DO
X_RC = RXSUBCOM('ADD','DSNREXX','DSNREXX')
IF X_RC <> 0 THEN
DO
SAY 'PROBLEM LOADING '||SUBSYS' ENVIRONMENT'
EXIT 0
END
END

ADDRESS DSNREXX "CONNECT" SUBSYS
...
...

ADDRESS DSNREXX "EXECSQL DECLARE C1 CURSOR FOR S1"
ADDRESS DSNREXX "EXECSQL PREPARE S1 FROM :SQLSTMT"
ADDRESS DSNREXX "EXECSQL OPEN C1"
ADDRESS DSNREXX "EXECSQL FETCH C1 INTO :COUNT "
ADDRESS DSNREXX "EXECSQL CLOSE C1"

-marloL.

Answer / martin

sometimes it is wise to start with an options, like:

ADDRESS AS400REXX 'EXECSQL SET OPTION COMMIT = *NONE'

don't know the db2 syntax, though

Answer / guest

REXX doesn't have support to DB2. But still you can access
it thru some TSO CPs. One of the commercial CP is
REXXTOOLS/MVS. If your shop has that s/w installed you
could able to access DB2.

can oorexx run normal rexx programs?

0 Answers   IBM,

---

can I redistribute oorexx freely with commercial software?

0 Answers   IBM,

---

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

0 Answers  

---

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.

0 Answers  

---

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?

0 Answers  

---

---

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

0 Answers   IBM,

---

i'm getting error while editing macro, its not even entering into the macro, getting error like 31 *-* "EDIT DATASET('"DSN"("MEM")') MACRO("CHGLINE")" +++ RC(-3) +++ ? any idea why?

1 Answers  

---

How do I Run My Rexx Exec.?

2 Answers  

---

is oorexx compatible with ibm object rexx?

0 Answers   IBM,

---

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,

---

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  

---

What is the use of uni-rexx?

0 Answers  

---