|
View previous topic :: View next topic
|
| Author |
Message |
mjadwani2785
New User
Joined: 28 Apr 2009
Posts: 89
Location: Noida , Dublin
|
|
|
|
Hi ,
I am writing a code to send email to support team .
I am using IEBGENER utility to write send this notification.
I used xmit in my rexx code first but it did not worked due to some gateway restriction.
But same when i tried in iebgener utility in jcl the notification was sent successfully.
Now want to use the same method in rexx doing linkmvs iebgener ?
If anyone can help me with the direction to refer which manual to achive this ?
My code is :
trace i
tstsrv="TCPSMTP" /* smtp address space name */
w = msg('off')
"free fi(sysin sysout sysprint sysut1 sysut2) "
w= msg('on')
"alloc fi(sysin) da(*) "
"alloc fi(sysout) da(*) "
"alloc fi(sysprint) da(*) "
"alloc fi(sysut1) da('"userid()".temp01.out') shr"
"alloc fi(sysut2) sysout (B,"tstsrv")"
parm = " "
if rc<>0 then exit
ADDRESS "LINKMVS" IEBGENER
if rc<>0 then exit
return
sysut2 ddname does not takes tstsrv value . Says extraenous information .
Code get stuck at IEBGENER Step and never gives back the control.
Corresponding jcl is
//STEP2 EXEC PGM=IEBGENER
//SYSOUT DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//SYSUT1 DD DISP=SHR,DSN=AC76332.TEMP01.OUT
//SYSUT2 DD SYSOUT=(B,TCPSMTP)
//SYSIN DD *
/*
Please suggest
Regards,
Manoj K Jadwani |
|
| Back to top |
|
 |
vasanthz
Global Moderator
Joined: 28 Aug 2007
Posts: 1742
Location: Tirupur, India
|
|
|
|
Hello,
| Quote: |
| never gives back the control. |
mmm...
Can you try replacing
| Code: |
| "alloc fi(sysin) da(*) " |
with
| Code: |
| "ALLOC FI(SYSIN) DUMMY REUSE SHR " |
|
|
| Back to top |
|
|
expat
Global Moderator
Joined: 14 Mar 2007
Posts: 8797
Location: Welsh Wales
|
|
|
|
And I prefer to use the CALL instruction
May I suggest that YOU learn to use the CODE tags
| Code: |
[code]
Put your code here
[/code] |
|
|
| Back to top |
|
|
Pedro
Global Moderator
Joined: 01 Sep 2006
Posts: 2547
Location: Silicon Valley
|
|
|
|
| Quote: |
| sysut2 ddname does not takes tstsrv value . Says extraenous information . |
The ALLOC command has slightly different syntax than JCL. You need to read the TSO Command Reference manual, specifically, read out the DEST parameter. |
|
| Back to top |
|
|
mjadwani2785
New User
Joined: 28 Apr 2009
Posts: 89
Location: Noida , Dublin
|
|
|
|
Thanks all !!
I used ISPF services and submitted JCL in batch .
But as usual I got to learn something new here about CALL funtion.
Next time for sure I will use tags .
Thanks all once again !!
Regards ,
Manoj K Jadwani |
|
| Back to top |
|
|
dick scherrer
Moderator Emeritus
Joined: 23 Nov 2006
Posts: 19244
Location: Inside the Matrix
|
|
|
|
Good to hear it is working - thank you for letting us know 
d |
|
| Back to top |
|
|
|
|
