I do this all the time, XMIT to a file, FTP down to a server (remember use BINARY), FTP back up to a mainframe (remember to use BINARY, LRECL(80) and RECFM(FB) and then receive. Sometimes I have to do a lot of datasets so a quick and dirty rexx which runs in batch and uses a PDS member as input:
suffix = '.XMIT' xuser = Userid() node = 'node_name' indsn = 'INPUT.DATASET' inmem.1 = 'member_with_list_of_datasets' inmem.0 = 1 Do q = 1 To inmem.0 input = indsn!!'('!!inmem.q""')' x = Outtrap('al.') 'ALLOC FI(XMIT) DA('"'"input"'"') SHR REU' 'EXECIO * DISKR XMIT (FINIS STEM DSN.' Do i = 1 To dsn.0 dsn = Strip(dsn.i) inpdsn = dsn outdsn = xuser!!'.'!!inpdsn!!suffix Say Copies('-',80) Say Centre('Processing input dataset' inpdsn 'at' Time()'.',80) 'TRANSMIT node!!'.'!!xuser , 'DA('"'"inpdsn"'"') OUTDS('"'"outdsn"'"') NOLOG' ts.p_rc = Rc Say Centre('Processing output dataset' outdsn 'at' Time()'.',80) Say Copies('-',80) End x = Outtrap('OFF') End Sebastian. ---------------------------------------------------------------------- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@bama.ua.edu with the message: GET IBM-MAIN INFO Search the archives at http://bama.ua.edu/archives/ibm-main.html