Copy a Non-managed Disk File to a CA-DYNAM/D or CA-EPIC Start Track 1 FBA Non-controlled Data Set (VSE)

Use this Process to copy a non-managed disk file into a DYNAM/D or EPIC start-track 1 FBA non-controlled data set. This Process runs on the same IBM® Connect:Direct® node using PNODE=SNODE processing.

This Process uses symbolic values. CA-DYNAM/D or CA-EPIC will perform the disk allocation for IBM Connect:Direct. The data set is allocated as a start-track 1 data set with a VOL=SER it will not be a managed data set.

DSK2DYD3 PROC  PNODE=SC.VSE.NODE                                                -
               SNODE=SC.VSE.NODE                                                -
               &VSEDSN=USER01.TEST.NONDYD                                       -
               &VOLSER=FBA001
STEP0001 COPY  FROM ( PNODE                                                     -
                    DSN=LRR.LREC480.ADDX                                        -
                    DISP=SHR                                                    -
                    VOL=SER=USER01                                              -
                    DCB=(DSORG=PS,RECFM=FB,LRECL=80,BLKSIZE=800)                -
                    )                                                           -
               TO   ( SNODE                                                     -
                    DSN=&VSEDSN                                                 -
                    UNIT=DNOASGN                                                -
                    VOL=SER=&VOLSER                                             -
                    SPACE=(1,(5),RLSE)                                          -
                    DCB=(DSORG=PS,RECFM=FB,LRECL=80,BLKSIZE=27920)              -
                    )
STEP0002 IF    (STEP0001 EQ 0) THEN
                    RUN TASK (PGM=DMNOTIFY,                                     -
                        PARM=(’GOOD’,&VSEDSN))                                  -
                        PNODE
         ELSE
                    RUN TASK (PGM=DMNOTIFY,                                     -
                        PARM=(’FAIL’,&VSEDSN))                                  -
                        PNODE
         EIF