How about using IDCAMS to do the delete? The enqueue for a dataset referenced using JCL doesn't get freed until after the referencing step (TEBN#1 here).
Bill On Fri, 11 Jan 2008 13:13:05 -0700, Howard Brazee <[EMAIL PROTECTED]> wrote: >I have a file with sensitive information on it that gets FTP'd to a >secure server. > > > >The JCL contains: > > > >//TEBNF1 EXEC UEAA, (TRANSMIT T > >// PASSWRD='xxxx.yyyy.zzzz(aaaa)', > >//* LIBRARY AND MEMBER OF FILE CONTAINING PASS > >// FTPPARM='bbb.cccc.dddd(eeee) > >//* LIBRARY AND MEMBER OF FILE CONTAINING FTP > >//TEBNF2 EXEC URAA, (TRANSMIT To unix server) > >// REX1='ffff.gggg.hhhh(iiii)', > >//* LIBRARY AND MEMBER OF FILE CONTAINING PASSword for Unix server > >// REX2='jjjj.kkkk.llll(mmmm)' > >/* LIBRARY AND MEMBER OF FILE CONTAINING MACROS for Unix server > >I added the following code > > > > > >//CLEANUP IF (TEBNF1.UEAA#1.RC NE 0) THEN > > >//TEBNF3 EXEC TEBNF3 (CLEAN UP FILES) > > >//ENDCLEAN ENDIF > > >// > > > > > >This has for a couple of files: > >//TEBN#1 EXEC PGM=IEFBR14 > >//SIDFILEI DD DSN=my.file.name > >// DISP=(MOD,DELETE),SPACE=(TRK,0) > > > > > >Trouble is I get: > >12:53:18 FTP2: PUT 'my.file.name' my.file > >12:53:21 450 Data set tied up by another user > >12:53:21 FTP2: END > >12:55:19 425 Can't open data connection. > >12:55:19 221 Session terminated > >12:55:19 T01F2030I FTP2 returns CC=8 > > > >With an OC9 > > > > > >I was hoping a separate proc would allow me to do the deletes from >within this job. What other options do I have? > > ---------------------------------------------------------------------- For IBM-MAIN subscribe / signoff / archive access instructions, send email to [EMAIL PROTECTED] with the message: GET IBM-MAIN INFO Search the archives at http://bama.ua.edu/archives/ibm-main.html
