Copy a z/OS BSAM File to a VSE-Controlled Disk Data Set

Use this Process to transfer a z/OS/ESA BSAM file into a VSE CA-DYNAM/D or CA-EPIC controlled disk data set. The disk data set has already been defined to the appropriate system catalog. You do not need to specify DCB attributes for the output data set, these will be taken from the input data set.

This Process was written with symbolics for substitution.

ZOS2DYD1  PROC   SNODE=SC.OS390.NODE                                           -
                 PNODE=SC.VSE.NODE                                             -
STEP0001  COPY                                                                 -
          FROM ( SNODE                                                         -
               DSN=USER01.TEST.OS390PRT01                                      -
               DISP=SHR                                                        -
               )                                                               -
          TO   ( PNODE                                                         -
               DSN=&VSEDSN                                                     -
               UNIT=DLBLONLY                                                   -
               DCB=(DSORG=PS,RECFM=FBA,LRECL=121,BLKSIZE=27951)                -
               )                                                               -
STEP0002 IF    (STEP0001 EQ 0) THEN
                    RUN TASK (PGM=DMNOTIFY,                                    -
                       PARM=(’GOOD’,&VSEDSN))                                  -
                    RUN TASK (PGM=DMNOTIFY,                                    -
                       PARM=(’FAIL’,&VSEDSN))                                  -