View previous topic :: View next topic |
Author |
Message |
bullfighter Beginner
Joined: 15 Apr 2005 Posts: 26 Topics: 9
|
Posted: Wed Apr 20, 2005 5:36 pm Post subject: calling cobol load from rexx program |
|
|
Hi,
I am calling a cobol load from my Rexx program as below. But the data is not getting passed correctly. Please let me know if I need to make any changes to the below call.
Code: |
/*Rexx*/
address tso "call 'MY.COBOL.LOADLIB(TEST1234)' 'ABCDE'"
----------------------
|
* COBOL Program
Code: |
LINKAGE SECTION.
01 VAR1 PIC X(05).
PROCEDURE DIVISION USING VAR1.
DISPLAY ' VAR1=' VAR1
GOBACK.
----------------------
|
The displays in the cobol are coming as
VAR1= :ABC
Thanks in advance |
|
Back to top |
|
|
kolusu Site Admin
Joined: 26 Nov 2002 Posts: 12372 Topics: 75 Location: San Jose
|
Posted: Wed Apr 20, 2005 5:51 pm Post subject: |
|
|
bullfighter,
Please do not post the same question in more than 1 forum. I deleted your duplicate post in the utilities forum.
You need to define the parm length field in the linkage section. Try this code
Code: |
Linkage Section.
01 L-VAR.
02 PARM-LEN PIC S9(4) comp.
02 PARM-DATA PIC X(05).
PROCEDURE DIVISION USING L-VAR.
|
Hope this helps...
Cheers
kolusu _________________ Kolusu
www.linkedin.com/in/kolusu |
|
Back to top |
|
|
bullfighter Beginner
Joined: 15 Apr 2005 Posts: 26 Topics: 9
|
Posted: Wed Apr 20, 2005 7:23 pm Post subject: |
|
|
thanks for your reply,
I have another query,
I am accessing an IMS database from the COBOL load, how do I pass the PSB in the REXX program
Thanks in Advance |
|
Back to top |
|
|
kolusu Site Admin
Joined: 26 Nov 2002 Posts: 12372 Topics: 75 Location: San Jose
|
|
Back to top |
|
|
|
|