Copy a FB Text File to a z/OS PDS File and Pull Back to OpenVMS

In this example, a text file with fixed-length records on an OpenVMS node is being copied to a z/OS PDS file and then copied from the z/OS secondary node and pulled back to the OpenVMS primary node as a fixed-block text file.

ZOSPDS1  PROCESS      SNODE=Q1B.ZOS.V4600                                        -
                      SNODEID=(USERID,PWD)
STEP01   COPY  FROM  (DSN=DISK$AXP:[NDM_3400.INPUT]A80_80FB.dat DISP=SHR PNODE)  -
               TO    (DSN=CSDQA1.O.TESTFILE.PDS(a8080) DISP=RPL SNODE)
STEP01   COPY  FROM  (DSN=CSDQA1.O.TESTFILE.PDS(a8080) DISP=SHR SNODE)           -
               TO    (DSN=DISK$AXP:[NDM_3400.OUTPUT]zos_80.dat                   -
                      DCB=(DSORG=PS,RECFM=FB)                                    -
                      DISP=RPL  PNODE )