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                                             -
                 &VSEDSN=USER01.TEST.COPYFILE
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)                -
               )                                                               -
               COMPRESS
STEP0002 IF    (STEP0001 EQ 0) THEN
                    RUN TASK (PGM=DMNOTIFY,                                    -
                       PARM=(’GOOD’,&VSEDSN))                                  -
                       PNODE
         ELSE
                    RUN TASK (PGM=DMNOTIFY,                                    -
                       PARM=(’FAIL’,&VSEDSN))                                  -
                       PNODE
         EIF