Portal | Manuals | References | Downloads | Info | Programs | JCLs | Master the Mainframes
IBM Mainframe Computers Forums Index
 
Register
 
IBM Mainframe Computers Forums Index Mainframe: Search IBM Mainframe Forum: FAQ Memberlist Usergroups Profile Log in to check your private messages Log in
 

 

GDG File generated by FTP with delete in the next step cause

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

Global Moderator


Joined: 14 Mar 2007
Posts: 8593
Location: Back in jolly old England

PostPosted: Wed Apr 15, 2009 4:39 pm    Post subject:
Reply with quote

Please explain what you are trying to acomplish.
A couple of questions here ......
How can you use a DD reference in the IEFBR14 step to access data on another system ? Or are you using FTP to and from the same system ?
Back to top
View user's profile Send private message

zos5415

New User


Joined: 29 Aug 2008
Posts: 18
Location: China

PostPosted: Thu Apr 16, 2009 2:26 pm    Post subject: Reply to: GDG File generated by FTP with delete in the next
Reply with quote

Yes,
I use FTP just to convert it from EBCDIC to ascii.

So the file should be in the same system.


the following 2 questions is what I want .
Or the step following FTP can't wait the return from FTP ?
FTP just have another control seperate with the job ?
Back to top
View user's profile Send private message
Robert Sample

Global Moderator


Joined: 06 Jun 2008
Posts: 7935
Location: Bellevue, IA

PostPosted: Thu Apr 16, 2009 4:49 pm    Post subject:
Reply with quote

Using FTP to convert a file from EBCDIC to ASCII is like using a blunderbuss to kill mosquitoes. Go to IBM's web site, pull up the manuals, and find the Unix System Services Command Reference. Read the chapter on iconv.

If you insist on using FTP, you'll need to allocate the +1 generation in your JCL and reference the DD name in the FTP commands rather than allowing the file to be dynamically allocated.
Back to top
View user's profile Send private message
Bill Dennis

Active Member


Joined: 17 Aug 2007
Posts: 562
Location: Iowa, USA

PostPosted: Thu Apr 16, 2009 7:06 pm    Post subject:
Reply with quote

Also, why delete the (+1) file with IEFBR14 that you just created via FTP?

Your problem was that the IEFBR14 step "reserved" the (+1) dsname at job initiation time. When the FTP step tries to allocate (+1) it is already "in use" because of the IEFBR14 step and the FTP fails to create the (+1) file. Then the IEF286I msg says DISP=SHR is not compatible with (+1) because it was never created yet.
Back to top
View user's profile Send private message
zos5415

New User


Joined: 29 Aug 2008
Posts: 18
Location: China

PostPosted: Fri Apr 17, 2009 8:17 am    Post subject:
Reply with quote

Quote:

Also, why delete the (+1) file with IEFBR14 that you just created via FTP?

This is my sample, what i mean is that FTP will generate some files which just as temp, and those files may contain many security data, so we need delete it when job end.



Quote:

Your problem was that the IEFBR14 step "reserved" the (+1) dsname at job initiation time. When the FTP step tries to allocate (+1) it is already "in use" because of the IEFBR14 step and the FTP fails to create the (+1) file. Then the IEF286I msg says DISP=SHR is not compatible with (+1) because it was never created yet.


you mean that I need first build the GDG's (+1) , then use FTP's put command to use it ?

But when I use the follow job
Code:

//*                                                                   
//STP0100  EXEC PGM=IDCAMS,COND=(0,NE)                               
//SYSOUT   DD SYSOUT=*                                               
//SYSPRINT DD SYSOUT=*                                               
//IN1      DD DSN=ABPP.PINGAN.CAI.ACGI.PS(0),DISP=SHR  114           
//OUT1     DD DSN=AATP.SOG.CMS.ACINV.S0.PS(+1),DISP=(,CATLG,DELETE), 
//            UNIT=SYSDA,SPACE=(CYL,(1,1),RLSE),                     
//            DCB=(RECFM=FB,LRECL=282,BLKSIZE=0)                     
//*                                                                   
//SYSIN    DD *                                                       
   REPRO INFILE(IN1) OUTFILE(OUT1)                                   
/*                                                                   
//*                                                                   
//*                                                                   
//STP0100  EXEC  PGM=FTP,REGION=4M,COND=(4,LT)                       
//********************************************************************
//***      FTP JOB TO TRANSFER FILES                               ***
//********************************************************************
//STEPLIB  DD    DSN=SYS1.TCPIP.SEZALIBN,DISP=SHR                     
//         DD    DSN=SYS1.TCPIP.SEZALNK2,DISP=SHR                     
//         DD    DSN=SYS1.TCPIP.SEZATCP,DISP=SHR                     
//SYSFTPD  DD    DSN=&TCPIP..FTP.DATA,DISP=SHR                       
//SYSTCPD  DD    DSN=&TCPIP..TCPIP.DATA,DISP=SHR                     
//SYSFTSX  DD    DSN=&TCPIP..STANDARD.TCPSCBIN,DISP=SHR               
//SYSDEBUG DD    SYSOUT=*,                                           
//             DCB=(BLKSIZE=160,LRECL=160,RECFM=F)                   
//JESDEBUG DD    SYSOUT=*,                                           
//             DCB=(BLKSIZE=160,LRECL=160,RECFM=F)                   
//SYSOUT  INCLUDE MEMBER=AASYSOU                                   
//SYSMDUMP DD    SYSOUT=*                                             
//OUTPUT   DD    SYSOUT=*                                             
//INPUT    DD  * DSN=&WCPSE..CTLCARD,DISP=OLD                         
nnn.nn.nn.nnn (EXIT                                                   
xxxxx                                                                 
yyyyy+                                                               
BINARY                                                               
BIG5 (SOSI ASCII NOTYPE                                               
GET 'AATP.SOG.CMS.ACINV.S0.PS(0)' //DD:ATHGZ                         
QUIT                                                                 
//ATHGZ    DD  DSN=AATP.SOG.CMS.FTPOUT.ADD3003F.PS(+1),                 
//             DISP=(NEW,CATLG,DELETE),                                 
//             UNIT=&DISK,                                             
//             SPACE=(CYL,(15,15),RLSE),                               
//             DCB=(RECFM=FB,LRECL=282,BLKSIZE=2820,BUFNO=16)           
//*                                                                     
//STP0000  EXEC  PGM=IEFBR14                                           
//ATCTL1   DD DSN=AATP.SOG.CMS.ACINV.S0.PS(+1),DISP=(OLD,DELETE,DELETE)


The files what I allocated before the FTP 'AATP.SOG.CMS.ACINV.S0.PS(+1) is still can't have issue.

Code:

EZA1736I FTP                                                                   
EZY2640I Using dd:SYSFTPD=TCPIP.FTP.DATA for local site configuration parameters
EZA1450I IBM FTP CS V1R8                                                       
EZA1456I Connect to ?                                                           
EZA1736I nnn.nn.nn.nnn (EXIT                                                   
EZA1554I Connecting to:   nnn.nn.nn.nnn port: 21.                               
220-TCPFTP1 IBM FTP CS V1R8 at SIXAVIPA.FDCSG.1DC.COM, 02:43:15 on 2009-04-17. 
220 Connection will close if idle for more than 5 minutes.                     
EZA1459I NAME (nnn.nn.nn.nnn:PAF2):                                             
EZA1701I >>> USER xxxxx                                                       
331 Send password please.                                                       
EZA1789I PASSWORD:                                                             
EZA1701I >>> PASS                                                               
230 VPFTP is logged on.  Working directory is "VPFTP.".                         
EZA1460I Command:                                                               
EZA1736I BINARY                                                                 
EZA1701I >>> TYPE I                                                             
200 Representation type is Image                                               
EZA1460I Command:                                                               
EZA1736I BIG5 (SOSI ASCII NOTYPE                                               
EZA1460I Command:                                                               
EZA1736I GET 'AATP.SOG.CMS.ACINV.S0.PS(0)' //DD:ATHGZ                           
EZA1701I >>> PORT nnn,nn,nn,nnn,9,10                                           
200 Port request OK.                                                           
EZA1701I >>> RETR 'AATP.SOG.CMS.ACINV.S0.PS(0)'                                 
450 Data set AATP.SOG.CMS.ACINV.S0.PS(0) is allocated to another job and is unavailable for RETR command.
EZA1735I Std Return Code = 16450, Error Code = 00002                           
EZA1701I >>> QUIT                                                               
221 Quit command received. Goodbye.       


The perform times is:


Code:

********************************************************************************
* JOBNAME   STEP  STEPNAME  PGM-NAME    START     STOP     ELAPSED     CPU-SU   
* PAF2DEC     2  STP0100   FTP       10:43:14  10:43:16  00:00:02       1754   
* PGN DATASP  VRCLM    PI  VIO-PI  PO  SWAPS P/SW-I  CPU-P-S      TCB  STEP     
*   0      0      0     0     0     0     0     0     358269     00:00:00.15   0
********************************************************************************
********************************************************************************
* JOBNAME   STEP  STEPNAME  PGM-NAME    START     STOP     ELAPSED     CPU-SU   
* PAF2DEC     3  STP0000   IEFBR14   10:43:16  10:43:17  00:00:00         68   
* PGN DATASP  VRCLM    PI  VIO-PI  PO  SWAPS P/SW-I  CPU-P-S      TCB  STEP     
*   0      0      0     0     0     0     0     0       1733     00:00:00.01   0
********************************************************************************
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 SORTJOIN - Copy Matched and Unmatched... Steve Ironmonger DFSORT/ICETOOL 5 Tue Jan 17, 2017 4:26 pm
No new posts Copy RECFM =VB TO FB file with RECL =... sahil41352 DFSORT/ICETOOL 3 Wed Dec 28, 2016 11:29 pm
No new posts Add PD field from 2nd file to PD in 1st Sushant Garje DFSORT/ICETOOL 6 Thu Dec 01, 2016 4:32 pm
No new posts JCL to delete component in a package sundaram.naveen Compuware & Other Tools 14 Tue Nov 29, 2016 6:21 pm
No new posts File Aid to File Manager conversion murali3955 IBM Tools 4 Thu Nov 24, 2016 3:41 pm


Facebook
Back to Top
 
Mainframe Wiki | Forum Rules | Bookmarks | Subscriptions | FAQ | Tutorials | Contact Us