Answer Posted / 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.

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

580

---

How to run my rexx exec?

565

---

What does the sample library of uni-rexx consist of?

610

---

When will a port of ooRexx to "XYZ" be available?

530

---

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

562

---

---

What are various loop types supported by rexx?

539

---

why is there no os/2 (ecs) port of oorexx?

590

---

is oorexx compatible with rexx?

571

---

Is it possible to port existing applications from the mainframe or os/2? Are there major changes required to do this?

537

---

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

544

---

Enlist the features of rexx as a programming language.

625

---

is oorexx compatible with ibm object rexx?

628

---

how to pass parms to ispf edit macro?

648

---

can I redistribute oorexx freely with commercial software?

579

---

how long does the install of oorexx take?

571

---