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
 
Override a DSN node

 
Post new topic   Reply to topic    IBMMAINFRAMES.com Support Forums -> All Other Mainframe Topics
View previous topic :: :: View next topic  
Author Message
sathyaraj

New User


Joined: 28 Sep 2007
Posts: 71
Location: India.

PostPosted: Wed Mar 26, 2008 8:00 pm    Post subject: Override a DSN node
Reply with quote

Hi,

My code is


Code:

// SET &YDATE=D080808                                     
//EMAIL    EXEC PGM=IKJEFT01,REGION=0M                   
//SYSPROC  DD DSN=SYSUSER.TSO.COMMON.CLIST,               
//            DISP=SHR                                   
//SYSTSPRT DD SYSOUT=*                                   
//SYSUDUMP DD SYSOUT=*                                   
/*                                                       
//SYSTSIN  DD *                                           
  %XMITIP SATHYARAJ.BALASUBRAMANIAN@....COM -       
  FROM ABC123@....COM -                                   
  SUBJECT 'ATTENTION:  CHANGE DETECTED TO LEGEND FILE ' -
  MSGT 'F5748TGH.TSUA8PK.LEGEND.ERRREP.&YDATE'           
/*                                                       


I am not able to overide the date in such a way.. Is there some other way to do it....?
Back to top
View user's profile Send private message

Devzee

Active Member


Joined: 20 Jan 2007
Posts: 684
Location: Hollywood

PostPosted: Wed Mar 26, 2008 8:28 pm    Post subject:
Reply with quote

With your approach you cannot override it.

Instead you need to make it two steps.
1. create the content of email with your date
2. do the email step
Back to top
View user's profile Send private message
superk

Moderator Team Head


Joined: 26 Apr 2004
Posts: 4650
Location: Raleigh, NC, USA

PostPosted: Wed Mar 26, 2008 8:47 pm    Post subject: Reply to: Override a DSN node
Reply with quote

Something like this may work:

Code:

// SET YDATE=D080808                                     
//*
//EMAIL    EXEC PGM=IKJEFT01,REGION=0M,PARM='%MYEXEC &YDATE'
//SYSPROC  DD DSN=SYSUSER.TSO.COMMON.CLIST,               
//            DISP=SHR                                   
//SYSTSPRT DD SYSOUT=*                                                   
//SYSTSIN  DD DUMMY


where 'SYSUSER.TSO.COMMON.CLIST(MYEXEC)' looks like this:

Code:

/* REXX */                                                   
Parse Arg ydate .                                         
"%XMITIP SATHYARAJ.BALASUBRAMANIAN@....COM -",               
  "FROM ABC123@....COM -",                                   
  "SUBJECT 'ATTENTION:  CHANGE DETECTED TO LEGEND FILE ' -",
  "MSGT 'F5748TGH.TSUA8PK.LEGEND.ERRREP."ydate"'"         
Exit 0                                                       
Back to top
View user's profile Send private message
sathyaraj

New User


Joined: 28 Sep 2007
Posts: 71
Location: India.

PostPosted: Fri Mar 28, 2008 8:38 pm    Post subject:
Reply with quote

Wow.. that worked out.. thnkx a ton..
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 -> All Other Mainframe Topics All times are GMT + 6 Hours
Page 1 of 1

 

Search our Forum:

Similar Topics
Topic Author Forum Replies Posted
No new posts Can DFSPARM override SORTKEYS paramet... ashek15 DB2 2 Tue Jan 31, 2017 11:36 pm
No new posts Compiler option for override the exte... muralikrishnan_new COBOL Programming 9 Fri Jul 08, 2016 12:09 pm
No new posts Validating TSO node id in Job venkaraj JCL & VSAM 16 Thu May 05, 2016 4:41 pm
No new posts to extract node name from XML via DB2... Gopalakrishnan V DB2 3 Mon Aug 31, 2015 1:58 pm
No new posts Symbolic OverRide within a 'Include' ... Sysaron JCL & VSAM 7 Thu Aug 27, 2015 10:51 pm

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