I think you're going to have problems trying to FTP a RECFM=U dataset. I
think you need to either write it out as RECFM=FB, or use a utility like TSO
XMIT to turn it into a dataset that is easily FTP'd.

David Logan
Manager of Product Development, Pitney Bowes Business Insight
http://centrus.com
W: (720) 564-3056
C: (303) 818-8222


-----Original Message-----
From: IBM Mainframe Discussion List [mailto:[EMAIL PROTECTED] On Behalf
Of Jorge Garcia
Sent: Thursday, September 25, 2008 06:59
To: IBM-MAIN@BAMA.UA.EDU
Subject: Re: Export catalog by FTP

<<Could you supply the JCL you use to do the EXPORT or the DFDSS with the
messages?>>

Dump (with BLKSIZE=32760):

//BACKUP   EXEC PGM=ADRDSSU,REGION=5M                   
//SYSPRINT DD SYSOUT=*                                  
//DASD     DD UNIT=3390,DISP=SHR,VOL=SER=SIS808         
//OUT      DD DSN=STS.EXPORT.CAT.USUARIO.AVPRU.DSS,     
//          DISP=(NEW,CATLG,DELETE),                    
//          UNIT=3390,SPACE=(TRK,(500,150),RLSE),       
//          DCB=(DSORG=PS,RECFM=U,LRECL=0,BLKSIZE=32760)
//SYSUDUMP DD SYSOUT=*                                  
//SYSIN    DD *                                         
  DUMP -                                                
  DATASET(INCLUDE(CAT.USUARIO.AVPRU)) -                 
  LOGINDDNAME(DASD) -                                   
  OUTDDNAME(OUT) -                                      
  ALLDATA(*) -                                          
  ALLEXCP -                                             
  COMPRESS -                                            
  OPTIMIZE(4) -                                         
  SHARE -                                               
  SPHERE -                                              
  TOLERATE(ENQFAILURE)                                  


Export:

//JGJEXPOR JOB (S90),'SISTEMAS',CLASS=A,MSGCLASS=X,NOTIFY=&SYSUID 
//PASO30   EXEC PGM=IDCAMS,REGION=2048K,COND=(4,LT)               
//*----- CAT.USUARIO.PRUEBA                                       
//SYSPRINT DD  SYSOUT=*                                           
//CINTASA  DD  DSN=STS.EXPORT.CAT.USUARIO.AVPRU,                  
//         UNIT=3390,DISP=(NEW,CATLG,UNCATLG),                    
//         SPACE=(TRK,(20000,2000),RLSE),VOL=SER=SIS503           
//SYSIN    DD  *                                                  
   EXPORT CAT.USUARIO.AVPRU OUTFILE(CINTASA) TEMPORARY            
/*                                                                

Thanks

----------------------------------------------------------------------
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

----------------------------------------------------------------------
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

Reply via email to