|
View previous topic :: View next topic
|
| Author |
Message |
smudunuru
New User
Joined: 01 Apr 2009
Posts: 7
Location: India
|
|
|
|
I have a Rexx module calling a cobol program. It passes a Parm1 to cobol and cobol should return a parm2. My code is as below.
| Code: |
/* REXX */
ADDRESS TSO;
parm1 ='A'
parm2='B'
say parm1
say parm2
"ISPEXEC LIBDEF ISPLLIB DATASET
ID('xxxx.xxxx.LNKPGM1','xxxx.xxxx.LNKPGM2')"
"ISPEXEC SELECT CMD(COBPGM1" parm1 parm2")"
say parm1
say parm2
|
But, Parm2 is having same value before and after the call of cobol program.( It is supposed to have a value of 'Y' or 'N' as set in the cobol program).
Can someone help to resolve this problem? |
|
| Back to top |
|
 |
superk
Global Moderator
Joined: 26 Apr 2004
Posts: 4652
Location: Raleigh, NC, USA
|
|
|
|
| Does COBPGM1 do a VPUT of the variable parm2, so that the calling exec can use a VGET to obtain the content? |
|
| Back to top |
|
|
smudunuru
New User
Joined: 01 Apr 2009
Posts: 7
Location: India
|
|
|
|
| Here, COBPGM1 is a Cobol program. I think, we can use VPUT only in a Rexx module. |
|
| Back to top |
|
|
Robert Sample
Global Moderator
Joined: 06 Jun 2008
Posts: 8696
Location: Dubuque, Iowa, USA
|
|
|
|
| Quote: |
| Here, COBPGM1 is a Cobol program. I think, we can use VPUT only in a Rexx module. |
Even I know better than that, and I don't write ISPF interface routines. |
|
| Back to top |
|
|
dbzTHEdinosauer
Global Moderator
Joined: 20 Oct 2006
Posts: 6966
Location: porcelain throne
|
|
|
|
smudunuru,
if you are going to be developing applications with REXX CALLing COBOL,
you need to familiarize yourself with ISPF Services
first you need to understand the interface requirements, ISPLINK .
after that, you can get into the detail of each of the different services,
which are outlined in the table of contents - the first link. |
|
| Back to top |
|
|
|
|
