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)