Portal | Manuals | References | Downloads | Info | Programs | JCLs | Mainframe wiki | Quick Ref
IBM Mainframe Computers Forums Index
 
Register
 
IBM Mainframe Computers Forums Index Mainframe: Search IBM Mainframe Forum: FAQ Memberlist 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: 1522
Location: Chennai

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: 2086
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 How to write Rexx program to size and... sreejeshcs CLIST & REXX 14 Thu Oct 12, 2017 7:26 am
This topic is locked: you cannot edit posts or make replies. Rexx to execute spool commands upendrasri CLIST & REXX 5 Wed Oct 04, 2017 6:54 am
This topic is locked: you cannot edit posts or make replies. Rexx to execute spool commands upendrasri CLIST & REXX 47 Fri Sep 29, 2017 1:08 pm
No new posts Speed-up/reduce CPU use of code prino PL/I & Assembler 0 Tue Sep 26, 2017 12:05 am
No new posts ejck thru rexx to multiple jobs insid... Susanta All Other Mainframe Topics 5 Tue Sep 19, 2017 1:39 pm

Facebook
Back to Top
 
Job Vacancies | Forum Rules | Bookmarks | Subscriptions | FAQ | Polls | Contact Us