Mainframe之间的文件传输

概述

两个系统在同一个Sysplex中

这两个系统共享同一个Catalog，所有文件都是共享的，所以不存在文件传输的问题。

两个OS/390系统共享磁盘

方法一

假如两个系统是彼此独立，但是共享磁盘，而且各自有不同的磁盘卷(VOLSER)和Catalog name。

方法二

两个相互独立的OS/390系统

这里是作业的实例：

首先，将要拷的文件用DSS打包到一个文件中

第二，用TSO XMIT命令将该文件转换成可以传输的格式

下面是该命令的注释:

 Display Filter View Print Options Help ------------------------------------------------------------------------------- SDSF SYSLOG 4317.101 OFD1 OFD1 04/25/2005 0W 29334 COLUMNS 1 80 COMMAND INPUT ===> /$D NODE SCROLL ===> CSR $HASP826 NODE(1) 886 $HASP826 NODE(1) NAME=PRODSYS1,STATUS=(OWNNODE), $HASP826 AUTH=(DEVICE=YES,JOB=YES,NET=NO,SYSTEM=YES), $HASP826 TRANSMIT=BOTH,RECEIVE=BOTH,HOLD=NONE, $HASP826 PENCRYPT=NO,ENDNODE=NO,REST=0,SENTREST=ACCEPT, $HASP826 COMPACT=0,LINE=0,LOGMODE=,LOGON=0, $HASP826 PASSWORD=(VERIFY=(SET),SEND=(FROM_OWNNODE)), $HASP826 PATHMGR=YES,PRIVATE=NO,SUBNET=,TRACE=YES 

------------------------------------------------------------------------------- SDSF NODE DISPLAY SYS9 OSHAWA1 N1 LINE 1-5 (5) COMMAND INPUT ===> SCROLL ===> CSR NP NUMBER NodeName Status Authority Trans Recv Hold N1 PRODSYS1 OWNNODE (D=Y,J=Y,N=N,S=Y) BOTH BOTH NONE N2 TESTSYS1 UNCONNECTED (D=Y,J=Y,N=N,S=Y) BOTH BOTH NONE N3 N3 UNCONNECTED (D=Y,J=Y,N=N,S=Y) BOTH BOTH NONE N4 N4 UNCONNECTED (D=Y,J=Y,N=N,S=Y) BOTH BOTH NONE N5 N5 UNCONNECTED (D=Y,J=Y,N=N,S=Y) BOTH BOTH NONE 

注意XMIT生成的文件的属性是： RECFM=FB,LRECL=80,BLKSIZE=3120 。在另一个系统上的XMIT文件一定要有与此相同的文件属性。

第三、将该文件传到另外一个ＯＳ/390系统上

两个系统在同一个网络中

ftp os390s2.company.com tso tsouser password binary quote site RECFM=FB LRECL=80 BLKSIZE=3120 quote site CYLINDERS PRIMARY=100 SECONDARY=100 put c: empdssdump.xmi 'hunter.file.xmit' quit 

第四，用TSO RECEIVE命令将该文件还原为DSS格式

第五，用DSS将文件还原

总结
以上总结了在不同情况下，在两个Mainframe系统之间进行文件传递的方法。

// //RESTORE EXEC PGM=ADRDSSU //SYSPRINT DD SYSOUT=* //DUMPFILE DD DISP=SHR,DSN=HUNTER.FILE.DUMP //DASD DD DISP=OLD,UNIT=SYSDA,VOL=SER=TSTMCT //SYSIN DD * RESTORE DATASET(INCLUDE(SP2487.)) - RENAMEU(HUNTER) - INDDNAME(DUMPFILE) - OUTDDNAME(DASD) - CATALOG /* 

// //RESTORE EXEC PGM=ADRDSSU //SYSPRINT DD SYSOUT=* //DUMPFILE DD DISP=SHR,DSN=HUNTER.FILE.DUMP //DASD DD DISP=OLD,UNIT=SYSDA,VOL=SER=TSTMCT //SYSIN DD * RESTORE DATASET(INCLUDE()) - INDDNAME(DUMPFILE) - OUTDDNAME(DASD) - CATALOG /* 

receive indsn('hunter.file.xmit') dataset('hunter.file.dump') 

ftp os390s1.company.com tso tsouser password binary get 'sp2487.file.xmit' c: empdssdump.xmi quit 

ftp os390s2.company.com tso tsouser password put 'sp2487.file.xmit' 'hunter.file.xmit' quit 

//DELETE EXEC PGM=IDCAMS //SYSPRINT DD SYSOUT=* //SYSIN DD * DELETE SP2487.FILE.DUMP IF LASTCC<=8 THEN SET MAXCC=0 //* //BACKUP EXEC PGM=ADRDSSU,COND=(0,NE) //SYSPRINT DD SYSOUT=* //DUMPDS DD DISP=(NEW,CATLG), // UNIT=SYSDA,RECFM=U,LRECL=32760, // SPACE=(CYL,(100,100),RLSE), <--- CHANGE // VOL=SER=SYSWRK, <--- CHANGE // DSN=SP2487.FILE.DUMP <--- CHANGE //SYSIN DD * <--- CHANGE DUMP DATASET(INCLUDE( - SYS1.IPLPARM - SYS1.PARMLIB - SYS1.TCPPARMS - SYS1.USER. - SP2487.ZHOUGH.JCL - SP2487.ZHOUGH.REXX - SP2487.ASM. - )) - OUTDDNAME(DUMPDS) - TOLERATE(ENQF) - COMPRESS /* 

//* //* VARY THE MASTER CATALOG VOLUME OF TEST SYSTEM ONLINE //* //ONLINE EXEC PGM=IKJEFT01,PARM='VARY 2102,ONLINE' //SYSEXEC DD DISP=SHR,DSN=SYS1.USER.CMDPROC //SYSTSPRT DD SYSOUT=* //SYSTSIN DD DUMMY //* //* IMPORT TEST SYSTEM MASTER CATALOG TO PRODUCTION SYSTEM. //* //IMPTMCAT EXEC PGM=IDCAMS //SYSPRINT DD SYSOUT=* //SYSIN DD * IMPORT CONNECT OBJECTS((SYS1.TEST.MASTCAT - VOLUMES(TSTMCT) DEVICETYPE(3390))) /* //* //* COPY THE PRODUCTION IODF DATASET FROM PRODUCTION TO TEST SYSTEM. //* //COPYIODF EXEC PGM=ADRDSSU //SYSPRINT DD SYSOUT=* //SYSIN DD * COPY DATASET(INCLUDE(SYS1.IODF00.CLUSTER)) - INDYNAM(SYSMCT) OUTDYNAM(TSTMCT) - RECAT(SYS1.TEST.MASTCAT) TOL(ENQF) REPLACE /* //* //* EXPORT TEST SYSTEM MASTER CATALOG FROM PRODUCTION SYSTEM. //* //EXPTMCAT EXEC PGM=IDCAMS //SYSPRINT DD SYSOUT=* //SYSIN DD * EXPORT SYS1.TEST.MASTCAT DISCONNECT /* //* //* VARY TARGET MASTER CATALOG VOLUME OFFLINE //* //OFFLINE EXEC PGM=IKJEFT01,PARM='VARY 2102,OFFLINE' //SYSEXEC DD DISP=SHR,DSN=SYS1.USER.CMDPROC //SYSTSPRT DD SYSOUT=* //SYSTSIN DD DUMMY