Packaging data to send via FTP using TSO XMIT.

Products

• MICS Resource Management

Issue/Introduction

Description:

Sample JCL to XMIT a dataset in preparation for FTPing to support.

Solution:

//your jobcard                                                       
//* The following step attempts to delete the output file            
//* before allocating it, a RC=08 may occur if the dataset           
//* does not exist                                                   
//DELETE   EXEC PGM=IDCAMS                                           
//SYSPRINT DD   SYSOUT=*                                             
//SYSIN    DD   *                                                    
 DELETE X.X.OUTPUT                                                   
/*                                                                   
//* The following step allocates the output file                     
//ALLOC     EXEC PGM=IEFBR14,REGION=2M                               
//MYOUTPUT  DD DISP=(NEW,CATLG,DELETE),                              
//             DSN=X.X.OUTPUT,                                       
//             SPACE=(CYL,(500,100)),UNIT=3390,VOL=SER=nnnnnn,       
//             DCB=(LRECL=80,BLKSIZE=8000,RECFM=FB)                  
//ISPF     EXEC PGM=IKJEFT1B,REGION=4096K,DYNAMNBR=100               
//ISPLOG   DD DCB=(LRECL=125,BLKSIZE=129,RECFM=VA),SYSOUT=*          
//SYSTSPRT DD DCB=(LRECL=133,BLKSIZE=133,RECFM=F),SYSOUT=*           
//ISPCTL1  DD UNIT=SYSDA,SPACE=(9040,(100,50)),                      
//            DCB=(LRECL=80,BLKSIZE=6160,RECFM=FB)                   
//ISPFILE  DD UNIT=SYSDA,SPACE=(9040,(50,50,45)),                    
//            DCB=(DSORG=PO,LRECL=80,BLKSIZE=9040,RECFM=FB)          
//ISPPROF  DD UNIT=SYSDA,SPACE=(TRK,(10,1,10)),                      
//            DSN=&&ISPPROF,                                         
//            DCB=(LRECL=80,BLKSIZE=9040,RECFM=FB)                   
//ISPTLIB  DD DSN=X.SISPTENU,DISP=SHR                                
//ISPMLIB  DD DSN=X.SISPMENU,DISP=SHR                                
//ISPPLIB  DD DSN=X.SISPPENU,DISP=SHR                                
//ISPSLIB  DD DSN=X.SISPSLIB,DISP=SHR                                
//* The INDATA DD is used for the data that you want to transmit     
//INDATA   DD DSN=X.X.DATA,DISP=SHR                                  
//SYSTSIN DD *                                                       
  XMIT nodename.userid FILE(INDATA) OUTDS('X.X.OUTPUT')              
/*                                                                   
//

Environment

Release:
Component: MBAS