|
View previous topic :: View next topic
|
| Author |
Message |
nkothako
Active User
Joined: 26 Nov 2008
Posts: 125
Location: chennai
|
|
|
|
What is the mistake in my code
| Code: |
/*REXX */
ADDRESS TSO
"ALLOC DD(INP) DA('XXX.TEMP.NAG') SHR REUSE"
"ALLOC DD(OUT) DA('XXX.TEMP.NAG1') SHR REUSE"
"CALL 'XXX.LOD(XX13T15)' '&INP &OUT'"
"FREE F(INP)"
"FREE F(OUT)" |
Tried below as well but failed with same error
| Code: |
/*REXX */
ADDRESS TSO
"ALLOC FI(INP) DA('XXX.TEMP.NAG') SHR REUSE"
"ALLOC FI(OUT) DA('XXX.TEMP.NAG1') SHR REUSE"
"CALL 'XXX.LOD(XX13T15)' '&INP &OUT'"
"FREE F(INP)"
"FREE F(OUT)" |
|
|
| Back to top |
|
 |
dbzTHEdinosauer
Global Moderator
Joined: 20 Oct 2006
Posts: 6966
Location: porcelain throne
|
|
|
|
What are the dd names for the files within the cobol module?
(in select statement)
and how is your linkage working with the attempt at file name passing? |
|
| Back to top |
|
|
nkothako
Active User
Joined: 26 Nov 2008
Posts: 125
Location: chennai
|
|
|
|
| thx alot problem resolved and issue is due to DDNames |
|
| Back to top |
|
|
dbzTHEdinosauer
Global Moderator
Joined: 20 Oct 2006
Posts: 6966
Location: porcelain throne
|
|
|
|
glad to help, thx for feedback.
it's the little things in life that just eat you butt up. |
|
| Back to top |
|
|
|
|
