IBM Mainframe Forum Index
 
Log In
 
IBM Mainframe Forum Index Mainframe: Search IBM Mainframe Forum: FAQ Register
 

How to code instream data on FTP JCL.
IBM Mainframe Forums -> JCL & VSAM
Post new topic   Reply to topic Quick References
View previous topic :: View next topic  
Author Message
vasanthz

Global Moderator


Joined: 28 Aug 2007
Posts: 1742
Location: Tirupur, India
PostPosted: Thu Jan 20, 2011 5:39 pm
 Reply with quote
Hi,

I am trying to submit a job using FTP. So used the below FTP step,

Code:
//JS030    EXEC PGM=FTP,REGION=2M               
//SYSPRINT DD  SYSOUT=*                         
//FILEIN   DD  DSN=WELLS.FTP.JCLJOB,DISP=SHR   
//OUTPUT   DD  SYSOUT=*                         
//INPUT    DD  *                               
Address (EXIT TIMEOUT 900                   
UserID                                         
Password                                       
QUOTE SITE FILETYPE=JES                         
TYPE E                                         
MODE S                                         
RECORD                                         
SITE CONDDISP=DELETE                           
STATUS                                         
LOCSTAT                                         
PUT //DD:FILEIN                                 
QUIT                                           
/*                                             
//   



Currently the FTP'ed job is in the PS - WELLS.FTP.JCLJOB
Is it possible anyway to remove the reference to the external file (WELLS.FTP.JCLJOB,DISP=SHR) and code the FTP'ed JCL instream on this JCL itself.
We don't want to create an extra dataset on client environment, so if the FTP'ed job can be coded on this JCL itself then it will be very helpful.

Please share your thoughts. Thank you.
Back to top
View user's profile Send private message
expat

Global Moderator


Joined: 14 Mar 2007
Posts: 8797
Location: Welsh Wales
PostPosted: Thu Jan 20, 2011 5:44 pm
 Reply with quote
You can try
Code:
//JS030    EXEC PGM=FTP,REGION=2M               
//SYSPRINT DD  SYSOUT=*                         
//FILEIN   DD  DATA,DLM='##'
//whatever
//whatever
//whatever
//whatever
##
/*
//OUTPUT   DD  SYSOUT=*                         
//INPUT    DD  *                               
Address (EXIT TIMEOUT 900                   
UserID                                         
Password                                       
QUOTE SITE FILETYPE=JES                         
TYPE E                                         
MODE S                                         
RECORD                                         
SITE CONDDISP=DELETE                           
STATUS                                         
LOCSTAT                                         
PUT //DD:FILEIN                                 
QUIT                                           
/*                                             
//   
Back to top
View user's profile Send private message
vasanthz

Global Moderator


Joined: 28 Aug 2007
Posts: 1742
Location: Tirupur, India
PostPosted: Thu Jan 20, 2011 5:51 pm
 Reply with quote
Many Thanks Works Great! icon_smile.gif
Back to top
View user's profile Send private message
expat

Global Moderator


Joined: 14 Mar 2007
Posts: 8797
Location: Welsh Wales
PostPosted: Thu Jan 20, 2011 5:53 pm
 Reply with quote
Invoice on its way icon_lol.gif
Back to top
View user's profile Send private message
vasanthz

Global Moderator


Joined: 28 Aug 2007
Posts: 1742
Location: Tirupur, India
PostPosted: Thu Jan 20, 2011 6:03 pm
 Reply with quote
Sure will pay in person icon_smile.gif I've always wanted to eat at petit rue des bouchers with some Belgian Ale icon_smile.gif
Back to top
View user's profile Send private message
expat

Global Moderator


Joined: 14 Mar 2007
Posts: 8797
Location: Welsh Wales
PostPosted: Thu Jan 20, 2011 6:15 pm
 Reply with quote
No longer there unfortunately, the contract has expired.

Currently selling second hand cars to earn my crust icon_wink.gif
Back to top
View user's profile Send private message
View previous topic :: :: View next topic  
Post new topic   Reply to topic View Bookmarks
All times are GMT + 6 Hours
Forum Index -> JCL & VSAM

 

Similar Topics
Topic Forum Replies
No new posts How to save SYSLOG as text data via P... All Other Mainframe Topics 4
No new posts Store the data for fixed length COBOL Programming 1
No new posts run rexx code with jcl CLIST & REXX 15
No new posts Compile rexx code with jcl CLIST & REXX 6
No new posts Data set Rec-Cnt and Byte-Cnt Testing & Performance 2
Search our Forums:

Back to Top
IBMMainframes.com is not an official and/or affiliated with IBM® in anyway
Board Rules | FAQ | Downloads | Wiki | SiteMap | Contact Us