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 [email protected] with the message: GET IBM-MAIN INFO
Search the archives at http://bama.ua.edu/archives/ibm-main.html
