Portal | Manuals | References | Downloads | Info | Programs | JCLs | Master the Mainframes
IBM Mainframe Computers Forums Index
 
Register
 
IBM Mainframe Computers Forums Index Mainframe: Search IBM Mainframe Forum: FAQ Memberlist Usergroups Profile Log in to check your private messages Log in
 

 

Using address linkmvs iebgener in rexx code .

 
Post new topic   Reply to topic    IBMMAINFRAMES.com Support Forums -> CLIST & REXX
View previous topic :: :: View next topic  
Author Message
mjadwani2785

New User


Joined: 28 Apr 2009
Posts: 89
Location: Noida , Dublin

PostPosted: Thu Jul 11, 2013 5:02 pm    Post subject: Using address linkmvs iebgener in rexx code .
Reply with quote

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
View user's profile Send private message

vasanthz

Global Moderator


Joined: 28 Aug 2007
Posts: 1445
Location: Azeroth

PostPosted: Thu Jul 11, 2013 5:21 pm    Post subject:
Reply with quote

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
View user's profile Send private message
expat

Global Moderator


Joined: 14 Mar 2007
Posts: 8593
Location: Back in jolly old England

PostPosted: Thu Jul 11, 2013 5:30 pm    Post subject:
Reply with quote

And I prefer to use the CALL instruction
Code:
"CALL *(IEBGENER)"

May I suggest that YOU learn to use the CODE tags
Code:
[code]
Put your code here
[/code]
Back to top
View user's profile Send private message
Pedro

Senior Member


Joined: 01 Sep 2006
Posts: 2019
Location: Silicon Valley

PostPosted: Sat Jul 20, 2013 8:13 pm    Post subject: Reply to: Using address linkmvs iebgener in rexx code .
Reply with quote

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
View user's profile Send private message
mjadwani2785

New User


Joined: 28 Apr 2009
Posts: 89
Location: Noida , Dublin

PostPosted: Sat Jul 20, 2013 10:01 pm    Post subject:
Reply with quote

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
View user's profile Send private message
dick scherrer

Site Director


Joined: 23 Nov 2006
Posts: 19270
Location: Inside the Matrix

PostPosted: Mon Jul 22, 2013 3:14 am    Post subject:
Reply with quote

Good to hear it is working - thank you for letting us know icon_smile.gif

d
Back to top
View user's profile Send private message
View previous topic :: :: View next topic  
Post new topic   Reply to topic    IBMMAINFRAMES.com Support Forums -> CLIST & REXX All times are GMT + 6 Hours
Page 1 of 1

 

Search our Forum:

Similar Topics
Topic Author Forum Replies Posted
No new posts PL/I code tuning/Performance improvement Virendra Shambharkar PL/I & Assembler 4 Mon Dec 05, 2016 11:57 am
No new posts What is the code in CLIST to enable t... jackzhang75 CLIST & REXX 1 Fri Dec 02, 2016 3:02 am
No new posts IDEAL - Code Retrieval yugendran CA Products 0 Fri Nov 25, 2016 3:27 pm
No new posts What is the command to check MODE of ... rohanthengal CLIST & REXX 6 Fri Nov 18, 2016 1:48 pm
This topic is locked: you cannot edit posts or make replies. Rexx to create GDG by scanning JJ result krish.deepu CLIST & REXX 5 Tue Oct 25, 2016 5:32 pm


Facebook
Back to Top
 
Mainframe Wiki | Forum Rules | Bookmarks | Subscriptions | FAQ | Tutorials | Contact Us