Copy VM files to a Shared File System (SFS)
This multi-step Process copies several different types of VM files to a SFS. In each step, if the file exists, IBM® Connect:Direct® replaces it. If the file does not exist, the IBM Connect:Direct system creates it as indicated by the DISP=RPL parameter. All of the files (input and output) are fixed length 80 byte records. Each step performs the following task:
- STEP1 copies a CMS file in a SFS to another SFS.
- STEP2 copies a CMS file from a Minidisk to a SFS.
- STEP3 copies a VSAM RRDS to a sequential file in a SFS.
- STEP4 copies a VSAM KSDS to a sequential file in a SFS.
- STEP5 copies a VSAM ESDS to a sequential file in a SFS.
SFSPROC PROCESS -
&PROCESS=SFSPROC -
&CKPT=0K -
&COMPRESS=COMPRESS -
&EXT=, -
&CUU1=0199 -
&CUU2=0195 -
&DIR1=’MYSFS:USER01.MYSFS’ -
&DIR2=’COSFS:USER02.COSFS’ -
&INUSER=USER01 -
&INUSERP=RPASS -
SNODEID=(USERID,PASSWD) -
&SNODE=CD.VM.NODE1 -
SNODE=&SNODE
STEP1 COPY FROM (PNODE -
SFSDIR=("&DIR1") -
DSN=’MYINPUT FILE’ -
DISP=SHR ) -
CKPT=&CKPT &COMPRESS &EXT -
TO (SNODE -
SFSDIR=("&DIR2") -
DSN=\xd5 FILETEST\&PROCESS.1\xd5 \ -
DCB=(LRECL=80,RECFM=F) -
DISP=RPL )
STEP2 COPY FROM (PNODE -
LINK=(&INUSER,&INUSERP,RR,&CUU1) -
DSN=’MYINPUT FILE2’ -
DCB=(LRECL=80,RECFM=F,DSORG=PS) -
DISP=SHR ) -
CKPT=&CKPT &COMPRESS &EXT -
TO (SNODE -
SFSDIR=("&DIR2") -
DSN=\xd5 FILETEST\&PROCESS.2\xd5 \ -
DCB=(LRECL=80,RECFM=F) -
DISP=RPL )
STEP3 COPY FROM (PNODE -
LINK=(&INUSER,&INUSERP,RR,&CUU2) -
DSN=MYHLQ.TESTFILE.VRRDS.FB80 -
DCB=(DSORG=VSAM) -
DISP=SHR ) -
CKPT=&CKPT &COMPRESS &EXT -
TO (SNODE -
SFSDIR=("&DIR2") -
DSN=\xd5 FILETEST\&PROCESS.3\xd5 \ -
DCB=(RECFM=FB,LRECL=80,BLKSIZE=3120) -
DISP=RPL )
STEP4 COPY FROM (PNODE -
LINK=(&INUSER,&INUSERP,RR,&CUU2) -
DSN=MYHLQ.TESTFILE.VKSDS.FB80 -
DCB=(DSORG=VSAM) -
DISP=SHR ) -
CKPT=&CKPT &COMPRESS &EXT -
TO (SNODE -
SFSDIR=("&DIR2") -
DSN=\xd5 FILETEST\&PROCESS.4\xd5 \ -
DCB=(RECFM=FB,LRECL=80,BLKSIZE=3120) -
DISP=RPL )
STEP5 COPY FROM (PNODE -
LINK=(&INUSER,&INUSERP,RR,&CUU2) -
DSN=MYHLQ.TESTFILE.VESDS.FB80 -
DCB=(DSORG=VSAM) -
DISP=SHR ) -
CKPT=&CKPT &COMPRESS &EXT -
TO (SNODE -
SFSDIR=("&DIR2") -
DSN=\xd5 FILETEST\&PROCESS.5\xd5 \ -
DCB=(RECFM=FB,LRECL=80,BLKSIZE=3120) -
DISP=RPL)