Define a VSE VSAM File and Copying a Sequential File from z/OS

This multistep Process, initiated from an z/OS node, consists of RUN TASK statements and a COPY statement. STEP1 runs the DMRTAMS utility to delete and then define a target VSAM cluster on a Connect:Direct® for VSE/ESA node. STEP2 runs the DMRTDYN utility to unallocate the SYSOUT output data set generated by STEP1. STEP3 copies a sequential file from an z/OS node to a VSE node.

VSEVSAM  PROCES     PNODE=SC.OS390.NODE1 SNODE=SC.VSE.NODE1
STEP1    RUN TASK  (PGM=DMRTAMS,                                           -
                PARM=(C" MSG=YES DSN=SYSOUT.SYS011 DD=123 DISP=SHR",       -
                      C" DELETE VSE.VSAM.TEST CLUSTER             ",       -
                      C" DEFINE CLUSTER                         - ",       -
                      C" (NAME(VSE.VSAM.TEST)                   - ",       -
                      C"  RECORDS(25000 5000)                   - ",       -
                      C"  VOLUMES(VSAM01)                       - ",       -
                      C"  INDEXED                               - ",       -
                      C"  REUSE                                 - ",       -
                      C"  KEYS(8 6)                             - ",       -
                      C"  RECORDSIZE(262 880)                   - ",       -
                      C"  NOREPLICATE                           - ",       -
                      C"  SPANNED                               - ",       -
                      C"  SHR(2))                               - ",       -
                      C"  DATA(                                 - ",       -
                      C"  NAME(VSE.VSAM.TEST.DATA)              - ",       -
                      C"  CISZ(4096))                           - ",       -
                      C"  INDEX(                                - ",       -
                      C"  NAME(VSE.VSAM.TEST.INDEX)             - ",       -
                      C"  CISZ(512))                              "        -
                     ))
STEP2    RUN TASK  (PGM=DMRTDYN                                            -
                    PARM=(C’UNALLOC DSN=SYSOUT.SYS011 DD=123’)) SNODE
STEP3    COPY FROM (DSN=OS390.SEQ.DATASET                                  -
                    DISP=(SHR,KEEP)                                        -
                    PNODE)                                                 -
              TO   (DSN=VSE.VSAM.TEST                                      -
                    DISP=NEW                                               -
                    DCB=(DSORG=VSAM)                                       -
                    SNODE)