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: 1560
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: 8687
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: 1560
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: 8687
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: 1560
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: 8687
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 How to delete large data. Mounika Nemani DB2 1 Wed Jun 13, 2018 1:58 pm
No new posts What will happen if we dont code STOP... Poha Eater COBOL Programming 4 Mon Jun 04, 2018 5:27 pm
No new posts JCL to set Return code when Time Out ... vinu78 JCL & VSAM 6 Wed May 30, 2018 11:27 am
This topic is locked: you cannot edit posts or make replies. Rexx code to find greater then symobl... Bharath Vikraman CLIST & REXX 8 Tue May 29, 2018 9:40 am
No new posts RESP2 code -502 pshongal CICS 6 Mon May 28, 2018 10:58 am

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