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
 
How to code instream data on FTP JCL.

 
Post new topic   Reply to topic    IBMMAINFRAMES.com Support Forums -> JCL & VSAM
View previous topic :: :: View next topic  
Author Message
vasanthz

Global Moderator


Joined: 28 Aug 2007
Posts: 1532
Location: Chennai

PostPosted: Thu Jan 20, 2011 5:39 pm    Post subject: How to code instream data on FTP JCL.
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: 8620
Location: Back in jolly old England

PostPosted: Thu Jan 20, 2011 5:44 pm    Post subject:
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: 1532
Location: Chennai

PostPosted: Thu Jan 20, 2011 5:51 pm    Post subject:
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: 8620
Location: Back in jolly old England

PostPosted: Thu Jan 20, 2011 5:53 pm    Post subject:
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: 1532
Location: Chennai

PostPosted: Thu Jan 20, 2011 6:03 pm    Post subject:
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: 8620
Location: Back in jolly old England

PostPosted: Thu Jan 20, 2011 6:15 pm    Post subject:
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    IBMMAINFRAMES.com Support Forums -> JCL & VSAM All times are GMT + 6 Hours
Page 1 of 1

 

Search our Forum:

Similar Topics
Topic Author Forum Replies Posted
No new posts Moving a COMP-3 Variable to a Numeric... ajayachander COBOL Programming 2 Thu Dec 14, 2017 5:46 pm
No new posts IBEGENER RETURN CODE 12 anilkumar922 All Other Mainframe Topics 5 Wed Dec 13, 2017 11:41 am
No new posts Finding the plan when code compiled u... Ahemad DB2 1 Fri Dec 01, 2017 6:38 pm
No new posts Strange Code amitc23 COBOL Programming 6 Tue Nov 28, 2017 11:25 am
No new posts Extract record for change in combinat... Trinadh DFSORT/ICETOOL 6 Thu Nov 23, 2017 3:32 pm

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