Copy a VSE/POWER LST Queue Member to a Controlled Disk Data Set

This Process extracts a VSE/POWER LST queue member (where: DSN=power.jobname) and places the data into a CA-DYNAM/D or CA-EPIC controlled disk data set. The disk data set has already been defined to the appropriate system catalog.

LST2DYD1 PROC  PNODE=SC.VSE.NODE                                            -
               SNODE=SC.VSE.NODE                                            -
               CLASS=5                                                      -
               &JBNAME=,                                                    -
               &JBDISP=D                                                    -
               &JBCLASS=A                                                   -
               &VSEDSN=USER01.TEST.GDGPOWR1
STEP0001 COPY FROM ( PNODE                                                  -
                   DSN=&JBNAME                                              -
                   LST=(CLASS=&JBCLASS DISP=&JBDISP)                        -
                   )                                                        -
             TO    ( SNODE                                                  -
                   DSN=&VSEDSN                                              -
                   UNIT=DLBLONLY                                            -
*                  DCB=(DSORG=PS,RECFM=VM,LRECL=133,BLKSIZE=137)            -
                   )
STEP0002 IF    (STEP0001 EQ 0) THEN
                RUN TASK (PGM=DMNOTIFY,                                     -
                PARM=(’GOOD’,&VSEDSN))                                      -
                PNODE
         ELSE
                RUN TASK (PGM=DMNOTIFY,                                     -
                PARM=(’FAIL’,&VSEDSN))                                      -
                PNODE
         EIF

You do not need to specify an output DCB parameter. This information will be obtained from the LST queue entry. The Process runs on the same IBM® Connect:Direct® node using PNODE=SNODE processing and uses symbolic values.